clones/MySQLTuner-perl
1
0
Fork 0
mirror of https://github.com/major/MySQLTuner-perl.git synced 2024-09-21 07:47:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Reorder features based on Makefile

Browse Source
This commit is contained in:
Jean-Marie Renouard 2023-09-09 08:20:48 +02:00
parent ee64f17144
commit fb4ea3fb1d
3 changed files with 66 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
Makefile Normal file
View File

@ -0,0 +1,60 @@
VERSION=$(shell grep '\- Version ' mysqltuner.pl | awk '{ print $$NF}')
UPDATE_SUB_VERSION=$(shell echo $(VERSION) | awk -F. '{ print $$1"."$$2"."$$3+1 }')
UPDATE_MINOR_VERSION=$(shell echo $(VERSION) | awk -F. '{ print $$1"."$$2+1".0" }')
UPDATE_MAJOR_VERSION=$(shell echo $(VERSION) | awk -F. '{ print $$1+1".0.0" }')
all: generate_cve generate_features generate_usage tidy increment_sub_version
help:
@echo "Usage: make <target>"
@echo " help: Show this help"
@echo " generate_usage: Generate USAGE.md"
@echo " generate_cve: Generate vulnerabilities.csv"
@echo " generate_features: Generate FEATURES.md"
@echo " tidy: Tidy mysqltuner.pl"
@echo " installdep_debian: Install dependencies on Debian"
@echo " increment_sub_version: Increment sub version"
@echo " increment_minor_version: Increment minor version"
@echo " increment_major_version: Increment major version"
@echo " push: Push to GitHub"
installdep_debian:
apt install -y cpanminus libpod-markdown-perl libwww-mechanize-gzip-perl perltidy dos2unix
cpanm File::Util
tidy:
dos2unix ./mysqltuner.pl
perltidy -b ./mysqltuner.pl
# git add ./mysqltuner.pl
# git commit -m "Indenting mysqltuner at $(shell date --iso=seconds)"
generate_usage:
pod2markdown mysqltuner.pl >USAGE.md
# git add ./USAGE.md
# git commit -m "Generate USAGE.md at $(shell date --iso=seconds)"
generate_cve:
perl ./build/updateCVElist.pl
# git add ./vulnerabilities.csv
# git commit -m "Generate CVE list at $(shell date --iso=seconds)"
generate_features:
perl ./build/genFeatures.sh
# git add ./FEATURES.md
# git commit -m "Generate FEATURES.md at $(shell date --iso=seconds)"
increment_sub_version:
@echo "Incrementing sub version from $(VERSION) to $(UPDATE_SUB_VERSION)"
sed -i "s/$(VERSION)/$(UPDATE_SUB_VERSION)/" mysqltuner.pl *.md
increment_minor_version:
@echo "Incrementing minor version from $(VERSION) to $(UPDATE_MINOR_VERSION)"
sed -i "s/$(VERSION)/$(UPDATE_MINOR_VERSION)/" mysqltuner.pl *.md
increment_major_version:
@echo "Incrementing major version from $(VERSION) to $(UPDATE_MAJOR_VERSION)"
sed -i "s/$(VERSION)/$(UPDATE_MAJOR_VERSION)/" mysqltuner.pl *.md
push:
git push

8
build/genFeatures.sh
View File

@ -4,10 +4,10 @@
(
export LANG=C
echo -e "Features list for option: --feature (dev only)\n---\n\n"
grep -E '^sub ' ../mysqltuner.pl | \
grep -E '^sub ' ./mysqltuner.pl | \
perl -pe 's/sub //;s/\s*\{//g' | \
sort -n | \
perl -pe 's/^/* /g' | \
grep -vE '(get_|close_|check_|memerror|human_size|string2file|file2|arr2|dump|which|percentage|trim|is_|hr_|info|print|select|wrap|remove_)'
) > ../FEATURES.md
cat ../FEATURES.md
grep -vE '(get_|close_|check_|memerror|cpu_cores|compare_tuner_version|grep_file_contents|update_tuner_version|mysql_version_|calculations|merge_hash|os_setup|pretty_uptime|update_tuner_version|human_size|string2file|file2|arr2|dump|which|percentage|trim|is_|hr_|info|print|select|wrap|remove_)'
) > ./FEATURES.md
cat ./FEATURES.md

4
build/updateCVElist.pl
View File

@ -49,7 +49,7 @@ File::Util->flock_rules( qw/ IGNORE/ );
my @versions;
my $temp;
unlink '../vulnerabilities.csv' if -f '../vulnerabilities.csv';
unlink './vulnerabilities.csv' if -f './vulnerabilities.csv';
open(CVE, 'cve.csv') or die("Could not open file.");
foreach my $line (<CVE>) {
if ($line =~ /(mysql|mariadb|percona)/i
@ -69,7 +69,7 @@ foreach my $line (<CVE>) {
#print $vers."\n".Dumper @nb;
#print "$line";
#exit 0 if ($line =~/before/i) ;
$f->write_file('file' => '../vulnerabilities.csv', 'content' => "$nb[0].$nb[1].$nb[2];$nb[0];$nb[1];$nb[2];$line", 'mode' => 'append');
$f->write_file('file' => './vulnerabilities.csv', 'content' => "$nb[0].$nb[1].$nb[2];$nb[0];$nb[1];$nb[2];$line", 'mode' => 'append');
}
}
}