Software: Apache/2.2.3 (CentOS). PHP/5.1.6 uname -a: Linux mx-ll-110-164-51-230.static.3bb.co.th 2.6.18-194.el5PAE #1 SMP Fri Apr 2 15:37:44 uid=48(apache) gid=48(apache) groups=48(apache) Safe-mode: OFF (not secure) /usr/bin/ drwxr-xr-x |
Viewing file: dbiprof (4.52 KB) -rwxr-xr-x Select action/file-type: (+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) | #!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell use strict; my $VERSION = "1.0"; use DBI::ProfileData; use Getopt::Long; # default options my $number = 10; my $sort = 'total'; my $filename = 'dbi.prof'; my $reverse = 0; my $case_sensitive = 0; my (%match, %exclude); # get options from command line GetOptions( 'version' => sub { die "dbiprof $VERSION\n"; }, 'number=i' => \$number, 'sort=s' => \$sort, 'reverse' => \$reverse, 'match=s' => \%match, 'exclude=s' => \%exclude, 'case-sensitive' => \$case_sensitive, ); # list of files defaults to dbi.prof my @files = @ARGV ? @ARGV : ('dbi.prof'); # instantiate ProfileData object my $prof; eval { $prof = DBI::ProfileData->new(Files => \@files) }; die "Unable to load profile data: $@\n" if $@; # handle matches while (my ($key, $val) = each %match) { if ($val =~ m!^/(.+)/$!) { $val = $case_sensitive ? qr/$1/ : qr/$1/i; } $prof->match($key, $val, case_sensitive => $case_sensitive); } # handle excludes while (my ($key, $val) = each %exclude) { if ($val =~ m!^/(.+)/$!) { $val = $case_sensitive ? qr/$1/ : qr/$1/i; } $prof->exclude($key, $val, case_sensitive => $case_sensitive); } # sort the data $prof->sort(field => $sort, reverse => $reverse); # all done, print it out print $prof->report(number => $number); exit 0; __END__ =head1 NAME dbiprof - command-line client for DBI::ProfileData =head1 SYNOPSIS See a report of the ten queries with the longest total runtime in the profile dump file F |
:: Command execute :: | |
:: Shadow's tricks :D :: | |
Useful Commands
|
:: Preddy's tricks :D :: | |
Php Safe-Mode Bypass (Read Files)
|
--[ c999shell v. 1.0 pre-release build #16 Modded by Shadow & Preddy | RootShell Security Group | r57 c99 shell | Generation time: 0.0051 ]-- |