Changeset 449 for branches/htmlform/cgi-bin/admin.cgi

Timestamp:

07/27/10 17:06:18 (15 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/admin.cgi (modified) (3 diffs)

branches/htmlform/cgi-bin/admin.cgi

@@ -16 +16 @@
 use CGI::Carp qw(fatalsToBrowser);
 use CGI::Simple;
+use HTML::Template;
 use DBI;
 use CommonWeb qw(:ALL);
@@ -51 +52 @@
 }
 initIPDBGlobals($ip_dbh);
+
+##fixme - need to autofill this somehow
+$ENV{HTML_TEMPLATE_ROOT} = '/home/kdeugau/dev/ipdb/trunk/templates';
 
 if ($IPDBacl{$authuser} !~ /A/) {
@@ -660 +664 @@
 print qq(<hr><a href="/ip/">Back</a> to main interface</a>\n);
 
-printFooter;
+# We print the footer here, so we don't have to do it elsewhere.
+my $footer = HTML::Template->new(filename => "footer.tmpl");
+# we're already in the admin tools, no need to provide a bottom link.  maybe.
+#$footer->param(adminlink => ($IPDBacl{$authuser} =~ /A/));
+
+print $footer->output;
 
 $ip_dbh->disconnect;