uawdijnntqw1x1x1
IP : 216.73.216.157
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
/
lib
/
.
/
nfs
/
..
/
python-support
/
..
/
..
/
share
/
python
/
..
/
java
/
..
/
webmin
/
apache
/
..
/
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/lib/./nfs/../python-support/../../share/python/../java/../webmin/apache/../perlpath.pl