===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
fex-20160919/lib/fex.pp-225-sub reexec {
fex-20160919/lib/fex.pp:226: exec($FEXHOME.'/bin/fexsrv') if $ENV{KEEP_ALIVE};
fex-20160919/lib/fex.pp-227- exit;
##############################################
fex-20160919/lib/fex.pp-1131- $n =~ s/.//;
fex-20160919/lib/fex.pp:1132: $_ = eval(qq(use Data::Dumper;Data::Dumper->Dump([\\$v])));
fex-20160919/lib/fex.pp-1133- s/\$VAR1/$v/;
##############################################
fex-20160919/lib/fex.pp-1662- # on error show STDOUT and STDERR
fex-20160919/lib/fex.pp:1663: my $fo = `$fexsend 2>&1`;
fex-20160919/lib/fex.pp-1664- warn $fexsend.'\n'.$fo if $?;
##############################################
fex-20160919/lib/dop-165- $qfile =~ s/([^\/\.\+\w!=,_-])/\\$1/g;
fex-20160919/lib/dop:166: $_ = `file $qfile`;
fex-20160919/lib/dop-167- if (/HTML/) {
##############################################
fex-20160919/lib/dop-240- # eval code without output substitution
fex-20160919/lib/dop:241: eval('package DOP;' . $pc);
fex-20160919/lib/dop-242- last if $timeout;
##############################################
fex-20160919/lib/dop-248- tie *STDOUT => "Buffer",\$__;
fex-20160919/lib/dop:249: my $r .= eval('package DOP;' . $pc);
fex-20160919/lib/dop-250- $__ .= $r if $pc !~ /;\s*$/;
##############################################
fex-20160919/bin/fexsend-1020- my $qf = quote($file);
fex-20160919/bin/fexsend:1021: if (`du -ms $qf` =~ /^(\d+)/) {
fex-20160919/bin/fexsend-1022- $size += $1;
##############################################
fex-20160919/bin/fexsend-1874- my $qdir = quote($dir);
fex-20160919/bin/fexsend:1875: if (`du -s $qdir` =~ /^(\d+)/ and $1 < 2**21) {
fex-20160919/bin/fexsend-1876- $opt_a = "$dir.zip";
##############################################
fex-20160919/bin/fexsend-1913- if ($windoof) {
fex-20160919/bin/fexsend:1914: # if ($opt_c) { system(qw'7z a -tzip',$transferfile,@ARGV) }
fex-20160919/bin/fexsend:1915: # else { system(qw'7z a -tzip -mm=copy',$transferfile,@ARGV) }
fex-20160919/bin/fexsend:1916: system(qw'7z a -tzip',$transferfile,@ARGV);
fex-20160919/bin/fexsend-1917- @files = ($transferfile);
##############################################
fex-20160919/bin/fexsend-1940- }
fex-20160919/bin/fexsend:1941: if ($opt_c) { system(qw'7z a',@X,$transferfile,@ARGV) }
fex-20160919/bin/fexsend:1942: else { system(qw'7z a -t7z -mx0',@X,$transferfile,@ARGV) }
fex-20160919/bin/fexsend-1943- @transferfiles = @files = ($transferfile);
##############################################
fex-20160919/bin/fexsend-1945- if ($windoof) {
fex-20160919/bin/fexsend:1946: system(qw'7z a -ttar',$transferfile,@ARGV);
fex-20160919/bin/fexsend-1947- @transferfiles = @files = ($transferfile);
##############################################
fex-20160919/bin/fexsend-1949- ## tar is now handled by formdatapost()
fex-20160919/bin/fexsend:1950: # system(qw'tar cvf',$transferfile,@ARGV);
fex-20160919/bin/fexsend-1951- system 'true';
##############################################
fex-20160919/bin/fexsend-1958- ## tgz is now handled by formdatapost()
fex-20160919/bin/fexsend:1959: # system(qw'tar cvzf',$transferfile,@ARGV);
fex-20160919/bin/fexsend-1960- @files = ($opt_a);
##############################################
fex-20160919/bin/fexsend-2290-
fex-20160919/bin/fexsend:2291: if ($ft = `file $transferfile 2>/dev/null`) {
fex-20160919/bin/fexsend-2292- if ($ft =~ /compressed/) {
##############################################
fex-20160919/bin/fexsend-2295- }
fex-20160919/bin/fexsend:2296: $ft = `file $transferfile`;
fex-20160919/bin/fexsend-2297- }
##############################################
fex-20160919/bin/fexsend-2327- # }
fex-20160919/bin/fexsend:2328: system("$untar $transferfile && rm $transferfile");
fex-20160919/bin/fexsend-2329- die "$0: error while untaring, see $transferfile\n" if -f $transferfile;
##############################################
fex-20160919/bin/fexget-380- }
fex-20160919/bin/fexget:381: if (system('gpg',$download) == 0) {
fex-20160919/bin/fexget-382- unlink $download;
##############################################
fex-20160919/bin/fexget-435- print "Files in archive:\n";
fex-20160919/bin/fexget:436: system(split(' ',$l),$download);
fex-20160919/bin/fexget-437- $d =~ s:.*/:./:;
##############################################
fex-20160919/bin/fexget-464- print "extracting to $xd :\n" if $xd;
fex-20160919/bin/fexget:465: system(split(' ',$x),$download);
fex-20160919/bin/fexget-466- print "extracted to $xd\n" if $xd;
##############################################
fex-20160919/bin/afex-24- if ($2) {
fex-20160919/bin/afex:25: vexec("sexget $opt_v $a $id | tar xvf -");
fex-20160919/bin/afex-26- } else {
fex-20160919/bin/afex:27: vexec(ws("sexget $opt_v $a $id"));
fex-20160919/bin/afex-28- }
##############################################
fex-20160919/bin/afex-39- print "# streaming files and waiting for SEX recipient:\n";
fex-20160919/bin/afex:40: vexec("tar cvf - @ARGV | sexsend -q $opt_v $a $id");
fex-20160919/bin/afex-41- } else {
##############################################
fex-20160919/bin/afex-43- print "asex $id\n";
fex-20160919/bin/afex:44: vexec(ws("sexsend -q $opt_v $a $id"));
fex-20160919/bin/afex-45- }
##############################################
fex-20160919/bin/afex-54- $cmd = "wget -qO/dev/null $u/fop/anonymous/anonymous/afex_$n.tar?DELETE";
fex-20160919/bin/afex:55: vsystem(ws($cmd));
fex-20160919/bin/afex-56- print "not " if $?;
##############################################
fex-20160919/bin/afex-66- if ($nq) {
fex-20160919/bin/afex:67: vexec("fexget $opt_v -s- $u | tar xvf -");
fex-20160919/bin/afex-68- } else {
##############################################
fex-20160919/bin/afex-70- $cmd = "fexget $opt_v -s- $u >$aft";
fex-20160919/bin/afex:71: vsystem($cmd);
fex-20160919/bin/afex:72: if (`file $aft` =~ /tar archive/) {
fex-20160919/bin/afex-73- print "Files in archive:\n";
fex-20160919/bin/afex-74- $cmd = "tar tvf $aft";
fex-20160919/bin/afex:75: vsystem(ws($cmd));
fex-20160919/bin/afex-76- print "extract these files (Y/n)? ";
##############################################
fex-20160919/bin/afex-78- $cmd = "tar xvf $aft";
fex-20160919/bin/afex:79: vsystem(ws($cmd));
fex-20160919/bin/afex-80- unlink $aft;
##############################################
fex-20160919/bin/afex-101- my $durl ="$u/fop/anonymous/anonymous/$aft??ID=ANONYMOUS";
fex-20160919/bin/afex:102: if (`wget -S --spider $durl 2>&1` =~ /X-Location:/) {
fex-20160919/bin/afex-103- die "$0: afex $id already exists - choose another ID\n";
##############################################
fex-20160919/bin/afex-106- if (@ARGV) {
fex-20160919/bin/afex:107: vsystem(@fexsend,'-a',$aft,@ARGV,"$u/anonymous");
fex-20160919/bin/afex-108- exit $? if $?;
##############################################
fex-20160919/bin/afex-113- close $aft;
fex-20160919/bin/afex:114: $s = vsystem(@fexsend,$aft,"$u/anonymous");
fex-20160919/bin/afex-115- unlink $aft;
##############################################
fex-20160919/bin/zz-287- $editor = $ENV{EDITOR} or die "$0: environment variable EDITOR not set\n";
fex-20160919/bin/zz:288: system(qw'vv -s',$file) if -f $file; # save current version
fex-20160919/bin/zz:289: system($editor,@ARGV,$file); exit $? if $?;
fex-20160919/bin/zz-290- unlink $ofile; # delete new file~ created by editor
fex-20160919/bin/zz:291: system(qw'vv -0',$file); # post rotating
fex-20160919/bin/zz:292: system(qw'vv -b',$file); # save backup
fex-20160919/bin/zz-293- exit;
##############################################
fex-20160919/bin/zz-563-
fex-20160919/bin/zz:564: chomp ($ct = `file $file`);
fex-20160919/bin/zz-565- $ct =~ s/.*?: //;
##############################################
fex-20160919/bin/zz-656- close $to;
fex-20160919/bin/zz:657: if (system(qw'rsync -aA',$from,$to) == 0) {
fex-20160919/bin/zz-658- if ($ENV{VIMRUNTIME}) {
##############################################
fex-20160919/bin/ezz-287- $editor = $ENV{EDITOR} or die "$0: environment variable EDITOR not set\n";
fex-20160919/bin/ezz:288: system(qw'vv -s',$file) if -f $file; # save current version
fex-20160919/bin/ezz:289: system($editor,@ARGV,$file); exit $? if $?;
fex-20160919/bin/ezz-290- unlink $ofile; # delete new file~ created by editor
fex-20160919/bin/ezz:291: system(qw'vv -0',$file); # post rotating
fex-20160919/bin/ezz:292: system(qw'vv -b',$file); # save backup
fex-20160919/bin/ezz-293- exit;
##############################################
fex-20160919/bin/ezz-563-
fex-20160919/bin/ezz:564: chomp ($ct = `file $file`);
fex-20160919/bin/ezz-565- $ct =~ s/.*?: //;
##############################################
fex-20160919/bin/ezz-656- close $to;
fex-20160919/bin/ezz:657: if (system(qw'rsync -aA',$from,$to) == 0) {
fex-20160919/bin/ezz-658- if ($ENV{VIMRUNTIME}) {
##############################################
fex-20160919/bin/fpg-163- # next if -z $file; # Achtung: special files unter /proc sind "empty" !
fex-20160919/bin/fpg:164: # $type = `file -L $file`;
fex-20160919/bin/fpg-165- # if ($type =~ /text/i and open F,$file or open F,"strings $file|") {
##############################################
fex-20160919/bin/l-415- } else {
fex-20160919/bin/l:416: ($mode,$links,$uid,$gid,$size) = split /\s+/,`ls -ld $file 2>/dev/null`;
fex-20160919/bin/l-417- return undef unless defined $mode;
##############################################
fex-20160919/bin/l-419- # for (my $i=0;$i<3;$i++) { push @dates,'????-??-?? ??:??:??' }
fex-20160919/bin/l:420: # $date = `gfind $dir -maxdepth 1 -name $file -printf '%Ty-%Tm-%Td %TT\n'`;
fex-20160919/bin/l-421- }
##############################################
fex-20160919/bin/fex_cleanup-323- $admin_pw = randstring(8);
fex-20160919/bin/fex_cleanup:324: system("$FEXHOME/bin/fac -u $admin $admin_pw");
fex-20160919/bin/fex_cleanup-325- }
##############################################
fex-20160919/bin/fex_cleanup-389- sleep rand(10);
fex-20160919/bin/fex_cleanup:390: $newnew = `wget -qO- http://fex.belwue.de/$qn 2>/dev/null`;
fex-20160919/bin/fex_cleanup-391- last if $newnew =~ /release/;
fex-20160919/bin/fex_cleanup:392: # $newnew = `wget -qO- http://fex.rus.uni-stuttgart.de/$qn 2>/dev/null`;
fex-20160919/bin/fex_cleanup-393- # last if $newnew =~ /release/;
##############################################
fex-20160919/bin/logwatch-181- sleep 1;
fex-20160919/bin/logwatch:182: @log = `ls -rt $logdir[0]/.debug/*_${pid}.$cgi 2>/dev/null`;
fex-20160919/bin/logwatch-183- if ($log = $log[-1] and open $log,$log) {
##############################################
fex-20160919/bin/xx-1020- my $qf = quote($file);
fex-20160919/bin/xx:1021: if (`du -ms $qf` =~ /^(\d+)/) {
fex-20160919/bin/xx-1022- $size += $1;
##############################################
fex-20160919/bin/xx-1874- my $qdir = quote($dir);
fex-20160919/bin/xx:1875: if (`du -s $qdir` =~ /^(\d+)/ and $1 < 2**21) {
fex-20160919/bin/xx-1876- $opt_a = "$dir.zip";
##############################################
fex-20160919/bin/xx-1913- if ($windoof) {
fex-20160919/bin/xx:1914: # if ($opt_c) { system(qw'7z a -tzip',$transferfile,@ARGV) }
fex-20160919/bin/xx:1915: # else { system(qw'7z a -tzip -mm=copy',$transferfile,@ARGV) }
fex-20160919/bin/xx:1916: system(qw'7z a -tzip',$transferfile,@ARGV);
fex-20160919/bin/xx-1917- @files = ($transferfile);
##############################################
fex-20160919/bin/xx-1940- }
fex-20160919/bin/xx:1941: if ($opt_c) { system(qw'7z a',@X,$transferfile,@ARGV) }
fex-20160919/bin/xx:1942: else { system(qw'7z a -t7z -mx0',@X,$transferfile,@ARGV) }
fex-20160919/bin/xx-1943- @transferfiles = @files = ($transferfile);
##############################################
fex-20160919/bin/xx-1945- if ($windoof) {
fex-20160919/bin/xx:1946: system(qw'7z a -ttar',$transferfile,@ARGV);
fex-20160919/bin/xx-1947- @transferfiles = @files = ($transferfile);
##############################################
fex-20160919/bin/xx-1949- ## tar is now handled by formdatapost()
fex-20160919/bin/xx:1950: # system(qw'tar cvf',$transferfile,@ARGV);
fex-20160919/bin/xx-1951- system 'true';
##############################################
fex-20160919/bin/xx-1958- ## tgz is now handled by formdatapost()
fex-20160919/bin/xx:1959: # system(qw'tar cvzf',$transferfile,@ARGV);
fex-20160919/bin/xx-1960- @files = ($opt_a);
##############################################
fex-20160919/bin/xx-2290-
fex-20160919/bin/xx:2291: if ($ft = `file $transferfile 2>/dev/null`) {
fex-20160919/bin/xx-2292- if ($ft =~ /compressed/) {
##############################################
fex-20160919/bin/xx-2295- }
fex-20160919/bin/xx:2296: $ft = `file $transferfile`;
fex-20160919/bin/xx-2297- }
##############################################
fex-20160919/bin/xx-2327- # }
fex-20160919/bin/xx:2328: system("$untar $transferfile && rm $transferfile");
fex-20160919/bin/xx-2329- die "$0: error while untaring, see $transferfile\n" if -f $transferfile;
##############################################
fex-20160919/bin/asex-24- if ($2) {
fex-20160919/bin/asex:25: vexec("sexget $opt_v $a $id | tar xvf -");
fex-20160919/bin/asex-26- } else {
fex-20160919/bin/asex:27: vexec(ws("sexget $opt_v $a $id"));
fex-20160919/bin/asex-28- }
##############################################
fex-20160919/bin/asex-39- print "# streaming files and waiting for SEX recipient:\n";
fex-20160919/bin/asex:40: vexec("tar cvf - @ARGV | sexsend -q $opt_v $a $id");
fex-20160919/bin/asex-41- } else {
##############################################
fex-20160919/bin/asex-43- print "asex $id\n";
fex-20160919/bin/asex:44: vexec(ws("sexsend -q $opt_v $a $id"));
fex-20160919/bin/asex-45- }
##############################################
fex-20160919/bin/asex-54- $cmd = "wget -qO/dev/null $u/fop/anonymous/anonymous/afex_$n.tar?DELETE";
fex-20160919/bin/asex:55: vsystem(ws($cmd));
fex-20160919/bin/asex-56- print "not " if $?;
##############################################
fex-20160919/bin/asex-66- if ($nq) {
fex-20160919/bin/asex:67: vexec("fexget $opt_v -s- $u | tar xvf -");
fex-20160919/bin/asex-68- } else {
##############################################
fex-20160919/bin/asex-70- $cmd = "fexget $opt_v -s- $u >$aft";
fex-20160919/bin/asex:71: vsystem($cmd);
fex-20160919/bin/asex:72: if (`file $aft` =~ /tar archive/) {
fex-20160919/bin/asex-73- print "Files in archive:\n";
fex-20160919/bin/asex-74- $cmd = "tar tvf $aft";
fex-20160919/bin/asex:75: vsystem(ws($cmd));
fex-20160919/bin/asex-76- print "extract these files (Y/n)? ";
##############################################
fex-20160919/bin/asex-78- $cmd = "tar xvf $aft";
fex-20160919/bin/asex:79: vsystem(ws($cmd));
fex-20160919/bin/asex-80- unlink $aft;
##############################################
fex-20160919/bin/asex-101- my $durl ="$u/fop/anonymous/anonymous/$aft??ID=ANONYMOUS";
fex-20160919/bin/asex:102: if (`wget -S --spider $durl 2>&1` =~ /X-Location:/) {
fex-20160919/bin/asex-103- die "$0: afex $id already exists - choose another ID\n";
##############################################
fex-20160919/bin/asex-106- if (@ARGV) {
fex-20160919/bin/asex:107: vsystem(@fexsend,'-a',$aft,@ARGV,"$u/anonymous");
fex-20160919/bin/asex-108- exit $? if $?;
##############################################
fex-20160919/bin/asex-113- close $aft;
fex-20160919/bin/asex:114: $s = vsystem(@fexsend,$aft,"$u/anonymous");
fex-20160919/bin/asex-115- unlink $aft;
##############################################
fex-20160919/bin/ll-415- } else {
fex-20160919/bin/ll:416: ($mode,$links,$uid,$gid,$size) = split /\s+/,`ls -ld $file 2>/dev/null`;
fex-20160919/bin/ll-417- return undef unless defined $mode;
##############################################
fex-20160919/bin/ll-419- # for (my $i=0;$i<3;$i++) { push @dates,'????-??-?? ??:??:??' }
fex-20160919/bin/ll:420: # $date = `gfind $dir -maxdepth 1 -name $file -printf '%Ty-%Tm-%Td %TT\n'`;
fex-20160919/bin/ll-421- }
##############################################
fex-20160919/bin/lf-415- } else {
fex-20160919/bin/lf:416: ($mode,$links,$uid,$gid,$size) = split /\s+/,`ls -ld $file 2>/dev/null`;
fex-20160919/bin/lf-417- return undef unless defined $mode;
##############################################
fex-20160919/bin/lf-419- # for (my $i=0;$i<3;$i++) { push @dates,'????-??-?? ??:??:??' }
fex-20160919/bin/lf:420: # $date = `gfind $dir -maxdepth 1 -name $file -printf '%Ty-%Tm-%Td %TT\n'`;
fex-20160919/bin/lf-421- }
##############################################
fex-20160919/bin/fexsrv-148- if ($ssl_ra =~ /[\w:]:\w/) {
fex-20160919/bin/fexsrv:149: # ($rh) = `host $ssl_ra 2>/dev/null` =~ /name pointer (.+)\.$/;
fex-20160919/bin/fexsrv-150- $^W = 0; eval 'use Socket6'; $^W = 1;
##############################################
fex-20160919/bin/fexsrv-152- $iaddr = inet_pton(AF_INET6,$ssl_ra) and
fex-20160919/bin/fexsrv:153: $rh = gethostbyaddr($iaddr,AF_INET6);
fex-20160919/bin/fexsrv-154- } else {
fex-20160919/bin/fexsrv:155: $rh = gethostbyaddr(inet_aton($ra),AF_INET);
fex-20160919/bin/fexsrv-156- }
##############################################
fex-20160919/bin/fexsrv-168- $ENV{REMOTE_ADDR} = $ra = inet_ntoa($iaddr);
fex-20160919/bin/fexsrv:169: $rh = gethostbyaddr($iaddr,AF_INET);
fex-20160919/bin/fexsrv-170- ($port) = sockaddr_in(getsockname(STDIN));
##############################################
fex-20160919/bin/fexsrv-175- $ENV{REMOTE_ADDR} = $ra = inet_ntop(AF_INET6,$iaddr);
fex-20160919/bin/fexsrv:176: $rh = gethostbyaddr($iaddr,AF_INET6);
fex-20160919/bin/fexsrv-177- ($port) = unpack_sockaddr_in6(getsockname(STDIN));
##############################################
fex-20160919/bin/fexsrv-260- $ENV{REMOTE_ADDR} = $ra = $2;
fex-20160919/bin/fexsrv:261: $ENV{REMOTE_HOST} = $rh = gethostbyaddr(inet_aton($ra),AF_INET) || '';
fex-20160919/bin/fexsrv-262- $ENV{HTTP_HOST} = $hostname;
##############################################
fex-20160919/cgi-bin/fop-805- nvt_print("X-File-ID: $fileid") if $fileid;
fex-20160919/cgi-bin/fop:806: # if ((`file "$file/data" 2>/dev/null` || '') =~ m{.*/data:\s(.+)}) {
fex-20160919/cgi-bin/fop-807- # nvt_print("X-File-Type: $1");
##############################################
fex-20160919/cgi-bin/fuc-526- "< $gf.pk >/dev/null 2>&1";
fex-20160919/cgi-bin/fuc:527: if (`gpg --batch <$gf 2>/dev/null` =~ /^pub\s.*<\Q$user\E>/sm) {
fex-20160919/cgi-bin/fuc:528: $pk = `gpg --batch <$gf 2>&1`;
fex-20160919/cgi-bin/fuc-529- $pk =~ s/&/&/g;
##############################################
fex-20160919/cgi-bin/fuc-541- } else {
fex-20160919/cgi-bin/fuc:542: $pk = `gpg --batch <$gf.pk 2>&1`;
fex-20160919/cgi-bin/fuc-543- $pk =~ s/&/&/g;
##############################################
fex-20160919/cgi-bin/fuc-587- if (-f $gf) {
fex-20160919/cgi-bin/fuc:588: my $g = `gpg < $gf`;
fex-20160919/cgi-bin/fuc-589- $g =~ s/</</g;
##############################################
fex-20160919/cgi-bin/fac-551- close $new or http_die("cannot write $new - $!");;
fex-20160919/cgi-bin/fac:552: my $status = dehtml(`perl -c $FEXLIB/fex.ph_new 2>&1`);
fex-20160919/cgi-bin/fac-553- if ($status =~ /syntax OK/ ) {
##############################################
fex-20160919/cgi-bin/pup-96- );
fex-20160919/cgi-bin/pup:97: exec($FEXHOME.'/bin/fexsrv') if $ENV{KEEP_ALIVE};
fex-20160919/cgi-bin/pup-98- exit;
##############################################
fex-20160919/htdocs/download/fexsend-1020- my $qf = quote($file);
fex-20160919/htdocs/download/fexsend:1021: if (`du -ms $qf` =~ /^(\d+)/) {
fex-20160919/htdocs/download/fexsend-1022- $size += $1;
##############################################
fex-20160919/htdocs/download/fexsend-1874- my $qdir = quote($dir);
fex-20160919/htdocs/download/fexsend:1875: if (`du -s $qdir` =~ /^(\d+)/ and $1 < 2**21) {
fex-20160919/htdocs/download/fexsend-1876- $opt_a = "$dir.zip";
##############################################
fex-20160919/htdocs/download/fexsend-1913- if ($windoof) {
fex-20160919/htdocs/download/fexsend:1914: # if ($opt_c) { system(qw'7z a -tzip',$transferfile,@ARGV) }
fex-20160919/htdocs/download/fexsend:1915: # else { system(qw'7z a -tzip -mm=copy',$transferfile,@ARGV) }
fex-20160919/htdocs/download/fexsend:1916: system(qw'7z a -tzip',$transferfile,@ARGV);
fex-20160919/htdocs/download/fexsend-1917- @files = ($transferfile);
##############################################
fex-20160919/htdocs/download/fexsend-1940- }
fex-20160919/htdocs/download/fexsend:1941: if ($opt_c) { system(qw'7z a',@X,$transferfile,@ARGV) }
fex-20160919/htdocs/download/fexsend:1942: else { system(qw'7z a -t7z -mx0',@X,$transferfile,@ARGV) }
fex-20160919/htdocs/download/fexsend-1943- @transferfiles = @files = ($transferfile);
##############################################
fex-20160919/htdocs/download/fexsend-1945- if ($windoof) {
fex-20160919/htdocs/download/fexsend:1946: system(qw'7z a -ttar',$transferfile,@ARGV);
fex-20160919/htdocs/download/fexsend-1947- @transferfiles = @files = ($transferfile);
##############################################
fex-20160919/htdocs/download/fexsend-1949- ## tar is now handled by formdatapost()
fex-20160919/htdocs/download/fexsend:1950: # system(qw'tar cvf',$transferfile,@ARGV);
fex-20160919/htdocs/download/fexsend-1951- system 'true';
##############################################
fex-20160919/htdocs/download/fexsend-1958- ## tgz is now handled by formdatapost()
fex-20160919/htdocs/download/fexsend:1959: # system(qw'tar cvzf',$transferfile,@ARGV);
fex-20160919/htdocs/download/fexsend-1960- @files = ($opt_a);
##############################################
fex-20160919/htdocs/download/fexsend-2290-
fex-20160919/htdocs/download/fexsend:2291: if ($ft = `file $transferfile 2>/dev/null`) {
fex-20160919/htdocs/download/fexsend-2292- if ($ft =~ /compressed/) {
##############################################
fex-20160919/htdocs/download/fexsend-2295- }
fex-20160919/htdocs/download/fexsend:2296: $ft = `file $transferfile`;
fex-20160919/htdocs/download/fexsend-2297- }
##############################################
fex-20160919/htdocs/download/fexsend-2327- # }
fex-20160919/htdocs/download/fexsend:2328: system("$untar $transferfile && rm $transferfile");
fex-20160919/htdocs/download/fexsend-2329- die "$0: error while untaring, see $transferfile\n" if -f $transferfile;
##############################################
fex-20160919/htdocs/download/fexget-380- }
fex-20160919/htdocs/download/fexget:381: if (system('gpg',$download) == 0) {
fex-20160919/htdocs/download/fexget-382- unlink $download;
##############################################
fex-20160919/htdocs/download/fexget-435- print "Files in archive:\n";
fex-20160919/htdocs/download/fexget:436: system(split(' ',$l),$download);
fex-20160919/htdocs/download/fexget-437- $d =~ s:.*/:./:;
##############################################
fex-20160919/htdocs/download/fexget-464- print "extracting to $xd :\n" if $xd;
fex-20160919/htdocs/download/fexget:465: system(split(' ',$x),$download);
fex-20160919/htdocs/download/fexget-466- print "extracted to $xd\n" if $xd;
##############################################
fex-20160919/install-23-$fex = 'fex.rus.uni-stuttgart.de';
fex-20160919/install:24:if (system("host $fex >/dev/null") != 0) {
fex-20160919/install-25- die "host $fex is not resolvable - check /etc/resolv.conf\n";
##############################################
fex-20160919/install-78-
fex-20160919/install:79:($hostname) = gethostbyaddr(gethostbyname($ip),AF_INET);
fex-20160919/install-80-die "cannot find hostname for IP $ip\n" unless $hostname;
##############################################
fex-20160919/install-421-
fex-20160919/install:422:if (`$sendmail -h 2>&1 </dev/null` =~ /exim/ and
fex-20160919/install-423- `grep trusted_users /etc/exim4/exim4.conf 2>/dev/null` !~ /\bfex\b/) {
##############################################
fex-20160919/upgrade-23-$fex = 'fex.rus.uni-stuttgart.de';
fex-20160919/upgrade:24:if (system("host $fex >/dev/null") != 0) {
fex-20160919/upgrade-25- die "host $fex is not resolvable - check /etc/resolv.conf\n";
##############################################
fex-20160919/upgrade-78-
fex-20160919/upgrade:79:($hostname) = gethostbyaddr(gethostbyname($ip),AF_INET);
fex-20160919/upgrade-80-die "cannot find hostname for IP $ip\n" unless $hostname;
##############################################
fex-20160919/upgrade-421-
fex-20160919/upgrade:422:if (`$sendmail -h 2>&1 </dev/null` =~ /exim/ and
fex-20160919/upgrade-423- `grep trusted_users /etc/exim4/exim4.conf 2>/dev/null` !~ /\bfex\b/) {
##############################################
fex-20160919/debian/fex.postinst-213-
fex-20160919/debian/fex.postinst:214: logdir=`sed -n '/\$logdir/s/^\$logdir\s*=\s*['"'"'"]\(.*\)['"'"'"].*/\1/p' /etc/fex/fex.ph|tail -n 1||true`
fex-20160919/debian/fex.postinst-215- if [ "$logdir" = "/var/log/fex" ];then
##############################################
fex-20160919/debian/fex.postrm-64- # We're running openbsd-inetd or something similar
fex-20160919/debian/fex.postrm:65: fextcpport=`grep /usr/share/fex/bin/fexsrv /etc/inetd.conf 2>/dev/null|awk '{print $1}'||true`
fex-20160919/debian/fex.postrm-66- if [ ! -z "$fextcpport" -a -x /usr/sbin/update-inetd ];then
##############################################
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-148- if ($ssl_ra =~ /[\w:]:\w/) {
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv:149: # ($rh) = `host $ssl_ra 2>/dev/null` =~ /name pointer (.+)\.$/;
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-150- $^W = 0; eval 'use Socket6'; $^W = 1;
##############################################
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-152- $iaddr = inet_pton(AF_INET6,$ssl_ra) and
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv:153: $rh = gethostbyaddr($iaddr,AF_INET6);
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-154- } else {
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv:155: $rh = gethostbyaddr(inet_aton($ra),AF_INET);
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-156- }
##############################################
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-168- $ENV{REMOTE_ADDR} = $ra = inet_ntoa($iaddr);
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv:169: $rh = gethostbyaddr($iaddr,AF_INET);
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-170- ($port) = sockaddr_in(getsockname(STDIN));
##############################################
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-175- $ENV{REMOTE_ADDR} = $ra = inet_ntop(AF_INET6,$iaddr);
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv:176: $rh = gethostbyaddr($iaddr,AF_INET6);
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-177- ($port) = unpack_sockaddr_in6(getsockname(STDIN));
##############################################
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-260- $ENV{REMOTE_ADDR} = $ra = $2;
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv:261: $ENV{REMOTE_HOST} = $rh = gethostbyaddr(inet_aton($ra),AF_INET) || '';
fex-20160919/.pc/03_fexsrv_security.dpatch/bin/fexsrv-262- $ENV{HTTP_HOST} = $hostname;