EOF
) > ${REPORT_NAME}
perl ${_DIR}/txt2Html.pl - mysqltuner_${server}.txt >> ${REPORT_NAME}
(
cat << 'EOF'
EOF
) >> ${REPORT_NAME}
perl ${_DIR}/txt2Html.pl \# pt-summary_${server}.txt >> ${REPORT_NAME}
(
cat << 'EOF'
EOF
) >> ${REPORT_NAME}
perl ${_DIR}/txt2Html.pl \# pt-mysql-summary_${server}.txt >> ${REPORT_NAME}
(
cat << 'EOF'
EOF
) >> ${REPORT_NAME}
cat innotop_${server}.txt >> ${REPORT_NAME}
(
cat << 'EOF'
EOF
) >> ${REPORT_NAME}
echo "* ALL IS OK"
exit 0 MySQLTuner-perl-2.5.2/build/runMT.sh 0000664 0000000 0000000 00000001303 14560463211 0017142 0 ustar 00root root 0000000 0000000 #!/bin/sh
input="./build/configimg.conf"
while IFS='' read -r line
do
[ -z "$line" ] && continue
container_port=$(echo "$line" | cut -d\; -f1)
container_name=$(echo "$line" | cut -d\; -f2)
container_datadir=$(echo "$line" | cut -d\; -f3)
image_name=$(echo "$line" | cut -d\; -f4)
if [ -n "$1" -a "$1" != "$container_name" ]; then
continue
fi
shift
sudo rm -f /var/lib/mysql
sudo ln -sf $container_datadir /var/lib/mysql
sudo chmod 777 /var/lib/mysql
#sudo docker logs $container_name > /tmp/mysqld.log
ls -ls /var/lib | grep -E 'mysql$'
#set +x
perl mysqltuner.pl $* --host 127.0.0.1 --port $container_port
exit $?
done < "$input"
MySQLTuner-perl-2.5.2/build/sync.sh 0000664 0000000 0000000 00000000646 14560463211 0017062 0 ustar 00root root 0000000 0000000 #!/bin/sh
# Used to sync the original project with local project.
#Save existing working
git stash
#add project url to current repository as upstream-live
git remote add upstream-live https://github.com/major/MySQLTuner-perl
#Fetch updated code
git fetch upstream-live
#Going back to the master branch for mearging latest code
git checkout master
#Merge latest code with master branch.
git merge upstream-live/master
MySQLTuner-perl-2.5.2/build/txt2Html.pl 0000664 0000000 0000000 00000001015 14560463211 0017624 0 ustar 00root root 0000000 0000000 #!/bin/env perl
use strict;
use warnings;
use File::Basename;
my $headerSep=$ARGV[0];
my $txtFile=$ARGV[1];
my $fileid =basename($txtFile);
$fileid=~ s/\./-/g;
open(my $fh, '<', $txtFile) or die "Could not open file '$txtFile' $!";
print "\n