uawdijnntqw1x1x1
IP : 216.73.216.88
Hostname : xhost1.intravision.ru
Kernel : Linux xhost1.intravision.ru 3.16.0-7-amd64 #1 SMP Debian 3.16.59-1 (2018-10-03) x86_64
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
OS : Linux
PATH:
/
var
/
.
/
..
/
usr
/
share
/
reportbug
/
..
/
ghostscript
/
..
/
mysql
/
..
/
zoneinfo
/
..
/
webmin
/
mount
/
..
/
perlpath.pl
/
/
#!/usr/bin/perl # perlpath.pl # This script gets run only from setup.sh in order to replace the # #!/usr/local/bin/perl line at the start of scripts with the real path to perl $ppath = $ARGV[0]; if ($ARGV[1] eq "-") { @files = <STDIN>; chop(@files); } else { # Get files from command line @files = @ARGV[1..$#ARGV]; } foreach $f (@files) { open(IN, $f); @lines = <IN>; close(IN); if ($lines[0] =~ /^#!\/\S*perl\S*(.*)/) { open(OUT, "> $f"); print OUT "#!$ppath$1\n"; for($i=1; $i<@lines; $i++) { print OUT $lines[$i]; } close(OUT); } }
/var/./../usr/share/reportbug/../ghostscript/../mysql/../zoneinfo/../webmin/mount/../perlpath.pl