Changeset 507 for branches/stable/cgi-bin/CommonWeb.pm
- Timestamp:
- 11/15/11 18:08:14 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable/cgi-bin/CommonWeb.pm
r445 r507 52 52 sub printHeader { 53 53 my $title = shift; 54 my $webpath = shift; 54 55 print "Content-type: text/html\n\n"; 55 56 # This doesn't work well. Must investigate. … … 62 63 63 64 $html =~ s/\$\$TITLE\$\$/$title/; 65 $html =~ s/\$\$WEBPATH\$\$/$webpath/g; 64 66 # Necessary for mangling arbitrary bits of the header 65 67 my $i=0;
Note:
See TracChangeset
for help on using the changeset viewer.