#!/usr/bin/perl # Michael Tartaglia - template file for CGI pages # This is a simple package that holds two subroutines # and one global variable. "baseURL" is, obviously, the home # directory of the website. "startHTML" contains all HTML tags # up to where the CGI output is to be included. "endHTML" contains # the last bits of HTML code to be included after the CGI program # outputs what is necessary. This file is implemented by typing # "require template" in the applicable CGI files package template; use Exporter; @ISA = qw(Exporter); @EXPORT = qw (&startHTML &endHTML $baseUrl); $baseUrl = "http://storm.cis.fordham.edu/~tartagli/"; sub startHTML { $title = $_[0]; # TITLE OF PROGRAM $headr = $_[1]; # HEADING OF PROGRAM print < M Tartaglia @ Fordham - CGI - $title
 

$headr

EndOfHTML } sub endHTML { print <
 

-------
© 2002, 2003 M. Tartàglia
EndOfHTML }