Changeset 449 for branches/htmlform/cgi-bin/search.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/search.cgi (modified) (3 diffs)

branches/htmlform/cgi-bin/search.cgi

@@ -15 +15 @@
 use CGI::Carp qw(fatalsToBrowser);
 use CGI::Simple;
+use HTML::Template;
 use DBI;
 use CommonWeb qw(:ALL);
@@ -53 +54 @@
 # Global variables
 my $RESULTS_PER_PAGE = 25;
+##fixme - need to autofill this somehow
+$ENV{HTML_TEMPLATE_ROOT} = '/home/kdeugau/dev/ipdb/trunk/templates';
 
 # Set up the CGI object...
@@ -298 +301 @@
 # Shut down and clean up.
 finish($ip_dbh);
-printFooter;
+
+# We print the footer here, so we don't have to do it elsewhere.
+my $footer = HTML::Template->new(filename => "footer.tmpl");
+# include the admin tools link in the output?
+$footer->param(adminlink => ($IPDBacl{$authuser} =~ /A/));
+
+print $footer->output;
+
 # We shouldn't need to directly execute any code below here;  it's all subroutines.
 exit 0;