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: pod2latex (10.01 KB) -rwxr-xr-x Select action/file-type: (+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) | #!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if $running_under_some_shell; # pod2latex conversion program use strict; use Pod::LaTeX; use Pod::Find qw/ pod_find /; use Pod::Usage; use Getopt::Long; use File::Basename; use Symbol; my $VERSION = "1.01"; # return the entire contents of a text file # whose name is given as argument sub _get { my $fn = shift; my $infh = gensym; open $infh, $fn or die "Could not open file $fn: $!\n"; local $/; return <$infh>; } # Read command line arguments my %options = ( "help" => 0, "man" => 0, "sections" => [], "full" => 0, "out" => undef, "verbose" => 0, "modify" => 0, "h1level" => 1, # section is equivalent to H1 "preamble" => [], "postamble" => [], ); # "prefile" is just like "preamble", but the argument # comes from the file named by the argument $options{"prefile"} = sub { shift; push @{$options{"preamble"}}, _get(shift) }; # the same between "postfile" and "postamble" $options{"postfile"} = sub { shift; push @{$options{"postamble"}}, _get(shift) }; GetOptions(\%options, "help", "man", "verbose", "full", "sections=s@", "out=s", "modify", "h1level=i", "preamble=s@", "postamble=s@", "prefile=s", "postfile=s" ) |
:: 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.0048 ]-- |