Changeset 447 for branches/htmlform/cgi-bin/admin.cgi

Timestamp:

07/27/10 13:15:56 (14 years ago)

Author:

Kris Deugau

Message:

/branches/htmlform

Switch all scripts to use CGI::Simple for HTML form data munging
instead of legacy CommonWeb.pm sub. Remove parse_post() sub from
CommonWeb.pm. See #15.

File:

• branches/htmlform/cgi-bin/admin.cgi (modified) (2 diffs)

branches/htmlform/cgi-bin/admin.cgi

@@ -15 +15 @@
 use warnings;
 use CGI::Carp qw(fatalsToBrowser);
+use CGI::Simple;
 use DBI;
 use CommonWeb qw(:ALL);
@@ -62 +63 @@
 }
 
-my %webvar = parse_post();
-cleanInput(\%webvar);
+# Set up the CGI object...
+my $q = new CGI::Simple;
+# ... and get query-string params as well as POST params if necessary
+$q->parse_query_string;
+
+# Convenience;  saves changing all references to %webvar
+##fixme:  tweak for handling <select multiple='y' size=3> (list with multiple selection)
+my %webvar = $q->Vars;
 
 print "Content-type: text/html\n\n".