| Server IP : 14.207.165.8 / Your IP : 216.73.216.101 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/proc/self/root/usr/share/webmin/ |
Upload File : |
#!/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);
}
}