#!/usr/bin/perl -wT use strict; use CGI::Pretty qw(:all); use CGI::Carp qw(fatalsToBrowser); # during debugging #use CGI::Carp; # after debugging use Time::localtime; use File::stat; my $dtd = '-//W3C//DTD HTML 4.0 Transitional//EN'; my $servname = $ENV{'SERVER_NAME'}; my $file = 'template-not.pl'; my $filemod = ctime(stat($file)-> mtime); my %urlhash = ( b('home') => '/', b('sitedocs') => '/sitedocs.pl', b('switches') => '/switches.pl', b('netdocs') => '/netdocs.pl', ); print header(-type => 'text/html'), start_html( -title => "$servname", -dtd => "$dtd", ); print ( map { a({href => $urlhash{$_}}, $_), br } sort keys %urlhash ); print ( p, 'code update', ($filemod), end_html ); ##

##

#!/usr/bin/perl -wT

use strict;
use HTML::Template;
use HTML::Entities;
use CGI::Pretty qw(:all);
use CGI::Carp qw(fatalsToBrowser);  # during debugging
#use CGI::Carp;                     # after debugging complete
use Time::localtime;
use File::stat;

my $template = HTML::Template->new(filename => 'template.tmpl');
my $code   = 'template.pl';
my $tmpl   = 'template.tmpl';

$template-> param(
    CODEMOD  => ctime(stat($code)-> mtime),
    TMPLMOD  => ctime(stat($tmpl) -> mtime),
    SERVNAME => $ENV{'SERVER_NAME'},
    );

# hash of URLs and text labels goes here somehow

print header, $template->output;

##

##





<!-- TMPL_VAR NAME=SERVNAME -->



TMP_LOOP(?) of %urlhash goes here


Code update 


Template update