PERL 40

select cgi

Guest on 2nd August 2022 08:11:37 AM

#!/dcs/bin/perl
# select.cgi: HTTP redirect to $Base$Pick where $X here means the
# value associated with the form variable X
# franklin , 12 February
$cgilib = "/Web/httpd/cgi-bin";
push(@INC,$cgilib);
require 'cgi-lib.pl';
&ReadParse;
## next line for debugging use only
# print "Content-type: text/plain\n\n";
print "Location:".$in{"Base"}.$in{"Pick"}."\n\n";

Raw Paste

#!/dcs/bin/perl # select.cgi: HTTP redirect to $Base$Pick where $X here means the # value associated with the form variable X # franklin , 12 February $cgilib = "/Web/httpd/cgi-bin"; push(@INC,$cgilib); require 'cgi-lib.pl'; &ReadParse; ## next line for debugging use only # print "Content-type: text/plain\n\n"; print "Location:".$in{"Base"}.$in{"Pick"}."\n\n";

Login or Register to edit or fork this paste. It's free.