PERL   40

select cgi

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

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

Raw Paste


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