AMXS tail

#!/usr/bin/perl # sub htencode { local($htencd) = shift; $htencd =~ s/&/&/g; $htencd =~ s/"/"/g; $htencd =~ s//>/g; $htencd; } do "acqPATHs.pl"; $str = $ENV{"QUERY_STRING"}; ($dir, $fnm, $len) = split(/\+/, $str); if ($dir ne "") { $dir .= "/"; } $path = "$DATAPATH/$dir$fnm"; print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS tail

[ tail -__LEN__ __DFN__ ] EOM $htmlbody =~ s/__DFN__/$dir$fnm/; $htmlbody =~ s/__LEN__/$len/; print $htmlbody; # if (open(IN, "tail -$len $path 2>&1 |")) { print "

";
    while ($line=) { print &htencode($line); }
    close(IN);
    print "

\n"; } else { print "
ERROR:\n"; print " File open fail.\n"; } # print "

\n\n\n"; exit(0);