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

Timestamp:

09/23/11 17:36:06 (13 years ago)

Author:

Kris Deugau

Message:

/branches/htmlform

Remove stale, unused cleanInput(), desanitize() subs in CommonWeb.pm
Quickly hack up search.cgi to remove printAndExit() from CommonWeb.pm
See #15, #26

File:

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

branches/htmlform/cgi-bin/CommonWeb.pm

@@ -16 +16 @@
 $VERSION     = 1.00;
 @ISA         = qw(Exporter);
-@EXPORT_OK      = qw( &printError &printAndExit &desanitize &cleanInput &desanitize);
+@EXPORT_OK      = qw( &printError );
 
 @EXPORT      = (); #export nothing by default
-%EXPORT_TAGS = ( ALL => [qw( &printError &printAndExit &desanitize &cleanInput )],
-                 lean    => [qw( &printError &printAndExit &cleanInput )]
+%EXPORT_TAGS = ( ALL => [qw( &printError )],
+                 lean    => [qw( &printError )]
                 );
 
@@ -34 +34 @@
 }
 
-sub printAndExit($)
-{
-        my $errStr = $_[0];
-        print qq(
-        <center><p class="regular"> $errStr </p>
-        <input type="button" value="Back" onclick="history.go(-1)">
-        </center>
-        );
-        print "<br>would print footer but already dun gone and shot(self->foot)\n";
-        exit(0);
-}
-
-# needs a reference to the webvar hash.
-# takes out backticks and single quotes
-sub cleanInput($)
-{
-        my $hashRef = $_[0];
-
-        foreach my $key (keys %$hashRef) 
-        {
-                $hashRef->{$key} =~ s/`/\\`/g;
-                $hashRef->{$key} =~ s/'/\'/g;
-        }
-}
-
-# undoes clean input.  takes a string as an arg.
-sub desanitize($)
-{
-        my $string = $_[0];
-        $string =~ s/\\`/`/g;
-        $string =~ s/\\'/'/g;
-        return $string;
-}
-
 # indicate that the module loaded okay.
 1;