Added QXZanalyzer.pl to help analyze QXZ function in web PHP scripts
git-svn-id: svn://192.168.202.10@2191 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
@@ -0,0 +1,186 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
# QXZanalyzer.pl version 2.10
|
||||
#
|
||||
# Copyright (C) 2014 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
|
||||
#
|
||||
|
||||
# CHANGES
|
||||
# 141117-1734 - First build
|
||||
#
|
||||
|
||||
############################################
|
||||
# QXZanalyzer.pl - parses a PHP file to find all instances of QXZ function
|
||||
# inside of it and further analysis
|
||||
#
|
||||
|
||||
$secX = time();
|
||||
|
||||
# constants
|
||||
$DB=0; # Debug flag, set to 0 for no debug messages, lots of output
|
||||
$US='_';
|
||||
$MT[0]='';
|
||||
$QXZlines=0;
|
||||
$QXZvalues=0;
|
||||
$QXZvaronly=0;
|
||||
$QXZlengthonly=0;
|
||||
$QXZplaceonly=0;
|
||||
$PATHconf='';
|
||||
|
||||
### begin parsing run-time options ###
|
||||
if (length($ARGV[0])>1)
|
||||
{
|
||||
$i=0;
|
||||
while ($#ARGV >= $i)
|
||||
{
|
||||
$args = "$args $ARGV[$i]";
|
||||
$i++;
|
||||
}
|
||||
|
||||
if ($args =~ /--help/i)
|
||||
{
|
||||
print "QXZanalyzer.pl - analyze php scripts for QXZ functions and contents\n";
|
||||
print "\n";
|
||||
print "options:\n";
|
||||
print " [--help] = this help screen\n";
|
||||
print " [--debug] = verbose debug messages\n";
|
||||
print " [--QXZlines] = print full lines that include QXZ functions\n";
|
||||
print " [--QXZvalues] = print only QXZ function values\n";
|
||||
print " [--QXZvaronly] = print only QXZ function values with PHP variables in them\n";
|
||||
print " [--QXZlengthonly] = print only QXZ function values that include a length spec\n";
|
||||
print " [--QXZplaceonly] = print only QXZ function values with placeholder variables in them\n";
|
||||
print " [--file=/path/from/root] = define PHP file to analyze\n";
|
||||
print "\n";
|
||||
|
||||
exit;
|
||||
}
|
||||
else
|
||||
{
|
||||
if ($args =~ /--debug/i) # Debug flag
|
||||
{$DB=1;}
|
||||
if ($args =~ /--QXZlines/i) # QXZlines flag
|
||||
{$QXZlines=1;}
|
||||
if ($args =~ /--QXZvalues/i) # QXZvalues flag
|
||||
{$QXZvalues=1;}
|
||||
if ($args =~ /--QXZvaronly/i) # QXZvaronly flag
|
||||
{$QXZvaronly=1;}
|
||||
if ($args =~ /--QXZlengthonly/i) # QXZlengthonly flag
|
||||
{$QXZlengthonly=1;}
|
||||
if ($args =~ /--QXZplaceonly/i) # QXZplaceonly flag
|
||||
{$QXZplaceonly=1;}
|
||||
if ($args =~ /--file=/i) # CLI defined file path
|
||||
{
|
||||
@CLIconffileARY = split(/--file=/,$args);
|
||||
@CLIconffileARX = split(/ /,$CLIconffileARY[1]);
|
||||
if (length($CLIconffileARX[0])>2)
|
||||
{
|
||||
$PATHconf = $CLIconffileARX[0];
|
||||
$PATHconf =~ s/\/$| |\r|\n|\t//gi;
|
||||
print " CLI defined file path: $PATHconf\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
print "no command line options set, exiting\n";
|
||||
exit;
|
||||
}
|
||||
if (length($PATHconf)<2)
|
||||
{
|
||||
print "no file to analyze($PATHconf), exiting\n";
|
||||
exit;
|
||||
}
|
||||
### end parsing run-time options ###
|
||||
|
||||
|
||||
$QXZlinecount=0;
|
||||
$QXZcount=0;
|
||||
$QXZcount_var=0;
|
||||
$QXZcount_length=0;
|
||||
$QXZcount_place=0;
|
||||
|
||||
if (-e "$PATHconf")
|
||||
{
|
||||
print "file found at: $PATHconf\n";
|
||||
print "\n";
|
||||
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
|
||||
@conf = <conf>;
|
||||
close(conf);
|
||||
$i=0;
|
||||
foreach(@conf)
|
||||
{
|
||||
$line = $conf[$i];
|
||||
$line =~ s/\n|\r|\t//gi;
|
||||
|
||||
if ( ($line =~ /QXZ/))
|
||||
{
|
||||
$QXZlinecount++;
|
||||
$QXZ_in_line = () = $line =~ /\_QXZ\(/g;
|
||||
$QXZcount = ($QXZcount + $QXZ_in_line);
|
||||
@eachQXZ = split(/\_QXZ\(/,$line);
|
||||
$each_ct=0;
|
||||
while ($each_ct <= $#eachQXZ)
|
||||
{
|
||||
if ($each_ct > 0)
|
||||
{
|
||||
@eachQXZvalue = split(/\)/,$eachQXZ[$each_ct]);
|
||||
|
||||
if ( ($QXZvalues > 0) && ($QXZvaronly < 1) && ($QXZlengthonly < 1) && ($QXZplaceonly < 1) )
|
||||
{print "$eachQXZvalue[0]\n";}
|
||||
if ($eachQXZvalue[0] =~ /\$/)
|
||||
{
|
||||
$QXZcount_var++;
|
||||
if ($QXZvaronly > 0)
|
||||
{print "$eachQXZvalue[0]\n";}
|
||||
}
|
||||
if ($eachQXZvalue[0] =~ /\d$|\d $/)
|
||||
{
|
||||
$QXZcount_length++;
|
||||
if ($QXZlengthonly > 0)
|
||||
{print "$eachQXZvalue[0]\n";}
|
||||
}
|
||||
if ($eachQXZvalue[0] =~ /%/)
|
||||
{
|
||||
$QXZcount_place++;
|
||||
if ($QXZplaceonly > 0)
|
||||
{print "$eachQXZvalue[0]\n";}
|
||||
}
|
||||
}
|
||||
|
||||
$each_ct++;
|
||||
}
|
||||
|
||||
|
||||
if ($QXZlines > 0)
|
||||
{print "$i|$QXZlinecount|$QXZ_in_line|$line\n";}
|
||||
|
||||
|
||||
}
|
||||
|
||||
$i++;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
print "no file to analyze($PATHconf), exiting\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
|
||||
print "\n";
|
||||
print "ANALYSIS FINISHED!\n";
|
||||
print "File path: $PATHconf\n";
|
||||
print "Lines in file: $i\n";
|
||||
print "QXZ line count: $QXZlinecount\n";
|
||||
print "QXZ count: $QXZcount\n";
|
||||
print "QXZ with PHP vars: $QXZcount_var\n";
|
||||
print "QXZ with length set: $QXZcount_length\n";
|
||||
print "QXZ with var place set: $QXZcount_place\n";
|
||||
print "\n";
|
||||
|
||||
$secy = time(); $secz = ($secy - $secX); $minz = ($secz/60); # calculate script runtime so far
|
||||
print "\n - process runtime ($secz sec) ($minz minutes)\n";
|
||||
|
||||
|
||||
exit;
|
||||
Reference in New Issue
Block a user