⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.93
Server IP:
65.108.141.171
Server:
Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
7.4.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
webmin
/
Edit File: 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); } }
Simpan