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

Timestamp:

07/27/10 17:06:18 (14 years ago)

Author:

Kris Deugau

Message:

/branches/htmlform

Remove printFooter from CommonWeb.pm
Add HTML::Template to main.cgi, admin.cgi, and search.cgi
Convert footer.inc to templates/footer.tmpl, and normalize
output for three scripts above
See #3.

File:

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

branches/htmlform/cgi-bin/CommonWeb.pm

@@ -16 +16 @@
 $VERSION     = 1.00;
 @ISA         = qw(Exporter);
-@EXPORT_OK      = qw(&printFooter &printHeader &printError &printAndExit &desanitize &cleanInput &desanitize);
+@EXPORT_OK      = qw( &printHeader &printError &printAndExit &desanitize &cleanInput &desanitize);
 
 @EXPORT      = (); #export nothing by default
-%EXPORT_TAGS = ( ALL => [qw( &printFooter &printHeader &printError
+%EXPORT_TAGS = ( ALL => [qw( &printHeader &printError
                                 &printAndExit &desanitize &cleanInput )],
-                 lean    => [qw( &printFooter &printHeader &printError
+                 lean    => [qw( &printHeader &printError
                                 &printAndExit &cleanInput )]
                 );
@@ -47 +47 @@
 }
 
-sub printFooter
-{
-  open FILE, "../footer.inc"
-        or croak $!;
-  while (<FILE>) 
-  {
-    print;
-  }
-  close FILE;
-}
-
 sub printError($)
 {
@@ -76 +65 @@
         </center>
         );
-        printFooter();
+        print "<br>would print footer but already dun gone and shot($self->foot)\n";
         exit(0);
 }