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