Changeset 447 for branches/htmlform/cgi-bin/CommonWeb.pm

Timestamp:

07/27/10 13:15:56 (15 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/CommonWeb.pm (modified) (1 diff)

branches/htmlform/cgi-bin/CommonWeb.pm

@@ -16 +16 @@
 $VERSION     = 1.00;
 @ISA         = qw(Exporter);
-@EXPORT_OK      = qw(&parse_post &printFooter &printHeader &printError &printAndExit &desanitize &cleanInput &desanitize);
+@EXPORT_OK      = qw(&printFooter &printHeader &printError &printAndExit &desanitize &cleanInput &desanitize);
 
 @EXPORT      = (); #export nothing by default
-%EXPORT_TAGS = ( ALL => [qw( &parse_post &printFooter &printHeader &printError
+%EXPORT_TAGS = ( ALL => [qw( &printFooter &printHeader &printError
                                 &printAndExit &desanitize &cleanInput )],
-                 lean    => [qw( &parse_post &printFooter &printHeader &printError
+                 lean    => [qw( &printFooter &printHeader &printError
                                 &printAndExit &cleanInput )]
                 );
-
-sub parse_post {
-  my $buffer;
-  if ($ENV{'REQUEST_METHOD'} eq "GET") {
-    $buffer=$ENV{'QUERY_STRING'}
-  } elsif ($ENV{'REQUEST_METHOD'} eq 'POST' && $ENV{'CONTENT_TYPE'} eq "application/x-www-form-urlencoded") {
-    read(STDIN, $buffer, $ENV{CONTENT_LENGTH});
-  } else {
-    $buffer = $ENV{'QUERY_STRING'};
-    $buffer || read(STDIN, $buffer, $ENV{CONTENT_LENGTH});
-  }
-  my @pairs = split(/&/, $buffer);
-  my %webvarLocal;
-  foreach my $pair (@pairs) {
-    my ($name, $value) = split(/=/, $pair);
-    $name  =~ tr/+/ /;
-    $name  =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-    $value =~ tr/+/ /;
-    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-    $value =~ s/\'/\\\'/g;
-    $webvarLocal{$name} = $value;
-  }
-  return %webvarLocal;
-}