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

Change staging.upgrade.percona.com to $ENV{PERCONA_VERSION_CHECK_URL} || http://v.percona.com.

Browse Source
This commit is contained in:
Daniel Nichter
2012-08-22 15:10:33 -06:00
parent 7cd73be614
commit 66f1bdf403
20 changed files with 38 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
bin/pt-archiver
View File

@@ -4609,7 +4609,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {

3
bin/pt-config-diff
View File

@@ -3711,7 +3711,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -3830,6 +3830,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-deadlock-logger
View File

@@ -3168,7 +3168,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -3287,6 +3287,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-diskstats
View File

@@ -4281,7 +4281,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -4400,6 +4400,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

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

@@ -4125,7 +4125,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -4244,6 +4244,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-find
View File

@@ -2965,7 +2965,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -3084,6 +3084,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

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

@@ -2872,7 +2872,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -2991,6 +2991,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-heartbeat
View File

@@ -4049,7 +4049,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -4168,6 +4168,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-index-usage
View File

@@ -5632,7 +5632,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -5751,6 +5751,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-kill
View File

@@ -5629,7 +5629,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -5748,6 +5748,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

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

@@ -6651,7 +6651,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -6770,6 +6770,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-query-advisor
View File

@@ -6814,7 +6814,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -6933,6 +6933,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-query-digest
View File

@@ -12663,7 +12663,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -12782,6 +12782,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-slave-delay
View File

@@ -3282,7 +3282,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -3401,6 +3401,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-slave-restart
View File

@@ -3904,7 +3904,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -4023,6 +4023,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-table-checksum
View File

@@ -833,7 +833,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -952,6 +952,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-table-sync
View File

@@ -9053,7 +9053,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -9172,6 +9172,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-upgrade
View File

@@ -11106,7 +11106,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -11225,6 +11225,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

3
bin/pt-variable-advisor
View File

@@ -4194,7 +4194,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {
@@ -4313,6 +4313,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
}
sub encode_client_response {

2
lib/Pingback.pm
View File

@@ -74,7 +74,7 @@ sub version_check {
my $dbh = shift; # optional
my $advice = pingback(
url => 'http://staging.upgrade.percona.com',
url => $ENV{PERCONA_VERSION_CHECK_URL} || 'http://v.percona.com',
dbh => $dbh,
);
if ( $advice ) {