AMXS drange

#!/usr/bin/perl # sub htencode { local($htencd) = shift; $htencd =~ s/&/&/g; $htencd =~ s/"/"/g; $htencd =~ s//>/g; $htencd; } $str = $ENV{"QUERY_STRING"}; ($dir, $fnm) = split(/\+/, $str); if ($dir ne "") { $dir .= "/"; } if (open(IN, "./bin/drange $dir$fnm |")) { $_ = ; if (/^OK/) { $err = 0; } else { $err = 1; $msg = $_; } } else { $err = 1; $msg = "drange.cgi: drange start fail."; } if ($err == 1) { print "Content-type: text/html; charset=iso-8859-1\n\n"; #### $htmlbody =< AMXS drange EOM #### $htmlbody =~ s/__MESG__/$msg/; print $htmlbody; } else { print "Content-type: text/html; charset=iso-8859-1\n\n"; #### $htmlbody =< AMXS drange

[ Data-Range __DFN__ ]

EOM
####
    $htmlbody =~ s/__DFN__/$dir$fnm/;
    print $htmlbody;
    while () { print &htencode($_); }
    print "

\n\n\n"; } close(IN); exit(0);