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

register2.cgi (428B) - 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/plain;charset=iso-8859-1\n\n";
     11 print "here are our results...\n";
     12 
     13 foreach my $parameter (sort keys %parameters) {
     14     #print "$parameter -> $parameters{$parameter}\n";
     15     foreach (split /:/, $parameters{$parameter}) {
     16         print "$parameter -> $_\n";
     17     }
     18 }