Changeset 449 for branches/htmlform/cgi-bin/CommonWeb.pm
- Timestamp:
- 07/27/10 17:06:18 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/htmlform/cgi-bin/CommonWeb.pm
r447 r449 16 16 $VERSION = 1.00; 17 17 @ISA = qw(Exporter); 18 @EXPORT_OK = qw( &printFooter&printHeader &printError &printAndExit &desanitize &cleanInput &desanitize);18 @EXPORT_OK = qw( &printHeader &printError &printAndExit &desanitize &cleanInput &desanitize); 19 19 20 20 @EXPORT = (); #export nothing by default 21 %EXPORT_TAGS = ( ALL => [qw( &print Footer &printHeader &printError21 %EXPORT_TAGS = ( ALL => [qw( &printHeader &printError 22 22 &printAndExit &desanitize &cleanInput )], 23 lean => [qw( &print Footer &printHeader &printError23 lean => [qw( &printHeader &printError 24 24 &printAndExit &cleanInput )] 25 25 ); … … 47 47 } 48 48 49 sub printFooter50 {51 open FILE, "../footer.inc"52 or croak $!;53 while (<FILE>)54 {55 print;56 }57 close FILE;58 }59 60 49 sub printError($) 61 50 { … … 76 65 </center> 77 66 ); 78 print Footer();67 print "<br>would print footer but already dun gone and shot($self->foot)\n"; 79 68 exit(0); 80 69 }
Note:
See TracChangeset
for help on using the changeset viewer.