|
#!/usr/bin/perl print "Content-type: text/html\n\n"; # alt-96 for ` print '<pre>'; $u = "thaiall"; $cmd =`finger $u`; &printline; exec `finger $u > temp`; # if your directory allow for nobody $cmd =`ls -al temp`; &printline; exec `rm temp`; # exec will return nothing $cmd =`id`; &printline; $cmd =`cat /etc/passwd`; &printline; sub printline { @rec = split( "\n", $cmd); foreach $r ( @rec) { print "$r<br>"; } print "<hr>"; } |