PERL   32

tech products

Guest on 10th July 2022 08:00:39 PM

  1. #!/usr/bin/perl
  2.  
  3. print "Content-type: text/html\n\n";
  4.  
  5. #foreach $e (%ENV) {
  6. #       print "$e = ".$ENV{$e}."<br>\n";
  7. #}
  8.  
  9. (@uri) = split(m;/;,$ENV{'REQUEST_URI'});
  10.  
  11. $file = pop(@uri);
  12. ($product,$junk) = split(/_/,$file);
  13.  
  14. print "<input type=radio name=00N00000005coul value=\"OAS Local\" ";
  15. if($product eq "OASL") { print "checked";}
  16. print "> Open AdStream<sup><span class=content-superscript>&reg;</span></sup> Local (Enterprise Solution)<br>\n";
  17. print "<input type=radio name=00N00000005coul value=\"OAS Central\" ";
  18. if($product eq "OASC") { print "checked";}
  19. print "> Open AdStream<sup><span class=content-superscript>&reg;</span></sup> Central (ASP Solution)</font><br>\n";
  20. print "<font size=2><input type=radio name=00N00000005coul value=\"Open Advertiser\" ";
  21. if($product eq "OAD") { print "checked";}
  22. print "> Open Advertiser<span class=content-superscript>&reg;</span></sup><br>\n";
  23. print "<input type=radio name=00N00000005coul value=\"Open Insight\" ";
  24. if($product eq "OI") { print "checked";}
  25. print "> Open Insight (Web site Analytics)</font>\n";

Raw Paste


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