percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-10 21:19:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Minor update to --version-check: Let the user know if there were no suggestions

Browse Source
This commit is contained in:
Brian Fraser
2012-09-24 16:24:11 -03:00
parent ad78b5caa5
commit 484fcb6a2f
19 changed files with 76 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bin/pt-archiver
View File

@@ -4684,8 +4684,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-config-diff
View File

@@ -3799,8 +3799,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-deadlock-logger
View File

@@ -3243,8 +3243,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-diskstats
View File

@@ -4354,8 +4354,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-duplicate-key-checker
View File

@@ -4200,8 +4200,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-find
View File

@@ -3040,8 +3040,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-fk-error-logger
View File

@@ -2947,8 +2947,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-heartbeat
View File

@@ -4124,8 +4124,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-index-usage
View File

@@ -5706,8 +5706,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-kill
View File

@@ -5715,8 +5715,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-online-schema-change
View File

@@ -6737,8 +6737,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-query-advisor
View File

@@ -6891,8 +6891,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-query-digest
View File

@@ -12740,8 +12740,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-slave-delay
View File

@@ -3356,8 +3356,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-slave-restart
View File

@@ -3979,8 +3979,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-table-checksum
View File

@@ -905,8 +905,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-upgrade
View File

@@ -11181,8 +11181,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
bin/pt-variable-advisor
View File

@@ -4268,8 +4268,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {

6
lib/Pingback.pm
View File

@@ -97,8 +97,10 @@ sub version_check {
print "# Percona suggests these upgrades:\n"; print "# Percona suggests these upgrades:\n";
print join("\n", map { "# * $_" } @$advice), "\n\n"; print join("\n", map { "# * $_" } @$advice), "\n\n";
} }
elsif ( $ENV{PTVCDEBUG} || PTDEBUG ) { else {
_d('--version-check worked, but there were no suggestions'); print "# No suggestions at this time.\n\n";
($ENV{PTVCDEBUG} || PTDEBUG )
&& _d('--version-check worked, but there were no suggestions');
} }
}; };
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {