cgi-dev

Repository that serves as my CGI "scratchpad" to try things out.
git clone git://git.samirparikh.com/cgi-dev
Log | Files | Refs | README

register3.cgi (727B) - raw

      1 #!/usr/bin/perl
      2 
      3 use lib '.';
      4 use strict;
      5 use warnings;
      6 use Parse_Form_Data qw ( parse_form_data );
      7 
      8 my %parameters = parse_form_data();
      9 
     10 print "Content-type: text/html\n\n";
     11 
     12 print <<END_OF_HEADING;
     13 <!DOCTYPE html>
     14 <HTML>
     15 <HEAD>
     16   <meta charset="utf-8">
     17   <TITLE>Mailing List Parameters</TITLE>
     18 </HEAD>
     19 
     20 <BODY>
     21 <H1>Here are our results...</H1>
     22 
     23 <TABLE BORDER=1>
     24   <TR>
     25     <TH>Parameter</TH>
     26     <TH>Value</TH>
     27   </TR>
     28 END_OF_HEADING
     29 
     30 foreach my $parameter (sort keys %parameters) {
     31     foreach my $value(split /:/, $parameters{$parameter}) {
     32         print "<TR>
     33                    <TD><B>$parameter</B></TD>
     34                    <TD>$value</TD>
     35                </TD>\n";
     36     }
     37 }
     38 
     39 print <<FOOTER;
     40 </TABLE>
     41 </BODY>
     42 </HTML>
     43 FOOTER