hhf/MySQLTuner-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

--updateversion saves updates to incorrect location #499

Browse source
This commit is contained in:
Jean-Marie Renouard 2022-03-28 23:02:47 +02:00
parent 8347472947
commit e1524048cf
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
mysqltuner.pl
View file

@ -1,5 +1,5 @@
#!/usr/bin/env perl
# mysqltuner.pl - Version 1.9.7
# mysqltuner.pl - Version 1.9.8
# High Performance MySQL Tuning Script
# Copyright (C) 2006-2022 Major Hayden - major@mhtx.net
# Copyright (C) 2006-2022 Jean-Marie Renouard - jmrenouard@gmail.com
@ -57,7 +57,7 @@ use Cwd 'abs_path';
#use Env;
# Set up a few variables for use in the script
my $tunerversion = "1.9.7";
my $tunerversion = "1.9.8";
my ( @adjvars, @generalrec );
# Set defaults
@ -594,6 +594,7 @@ sub update_tuner_version {
}
my $update;
my $fullpath="";
my $url = "https://raw.githubusercontent.com/major/MySQLTuner-perl/master/";
my @scripts =
( "mysqltuner.pl", "basic_passwords.txt", "vulnerabilities.csv" );
@ -606,10 +607,12 @@ sub update_tuner_version {
if ( $httpcli =~ /curl$/ ) {
debugprint "$httpcli is available.";
$fullpath=dirname(__FILE__)."/".$script;
debugprint "FullPath: $fullpath"
debugprint
"$httpcli --connect-timeout 3 '$url$script' 2>$devnull > $script";
"$httpcli --connect-timeout 3 '$url$script' 2>$devnull > $fullpath";
$update =
`$httpcli --connect-timeout 3 '$url$script' 2>$devnull > $script`;
`$httpcli --connect-timeout 3 '$url$script' 2>$devnull > $fullpath`;
chomp($update);
debugprint "$script updated: $update";
@ -6872,7 +6875,7 @@ __END__
=head1 NAME
MySQLTuner 1.9.7 - MySQL High Performance Tuning Script
MySQLTuner 1.9.8 - MySQL High Performance Tuning Script
=head1 IMPORTANT USAGE GUIDELINES