Changeset 511 for branches/htmlform/cgi-bin/main.cgi
- Timestamp:
- 09/27/12 18:13:16 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/htmlform/cgi-bin/main.cgi
r505 r511 77 77 $header->param(version => $IPDB::VERSION); 78 78 $header->param(addperm => $IPDBacl{$authuser} =~ /a/); 79 $header->param(webpath => $IPDB::webpath); 79 80 print "Content-type: text/html\n\n", $header->output; 80 81 … … 208 209 # can't do this yet, too many blowups 209 210 #print "Content-type: text/html\n\n", $header->output; 210 211 $page->param(webpath => $IPDB::webpath); 211 212 print $page->output; 212 213 213 214 # include the admin tools link in the output? 214 215 $footer->param(adminlink => ($IPDBacl{$authuser} =~ /A/)); 215 216 $footer->param(webpath => $IPDB::webpath); 216 217 print $footer->output; 217 218
Note:
See TracChangeset
for help on using the changeset viewer.