combine.cgi
#!/usr/bin/perl if ($ENV{'REQUEST_METHOD'} eq 'GET') { @pairs = split(/&/, $ENV{'QUERY_STRING'}); } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); if ($ENV{'QUERY_STRING'}) { @getpairs =split(/&/, $ENV{'QUERY_STRING'}); push(@pairs,@getpairs); } } else { print "Content-type: text/html\n\n"; print "<P>Use Post or Get"; } @classes = ("Latin 305", "Advanced Greek Grammar"); $newclasses = $formdata{'newclasses'}; @newclasses = split(/,/, $newclasses); @classes = (@classes, @newclasses); print "Content-type: text/html\n\n"; print "<h2>You added:</h2><UL>"; foreach $item (@newclasses) { print "<LI>$item"; } print "</UL>"; print "<h2>Your complete list is now:</h2><UL>"; foreach $item (@classes) { print "<LI>$item"; } print "</UL>";