datesandmileage.pl

#!/usr/pkg/bin/perl -w
@wday = qw{ Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday };
@mon  = qw{ January February March April May June July August
		September October November December };
my($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime;
@date = ( $wday[$wday], $day, $mon[$mon], $year+1900 );

print "Content-type: text/html\n\n";

open HEADER, "../parts/header";
foreach (<HEADER>) {
    s{__TITLE__}{Dates and Mileage};
    s{__BCKGRND__}{/tiles/purple_marble.png};
    if ( ! /navpane.html.part/ ) {
	print $_;
    } else {
	system "./navpane.pl" ;
    }
}
close HEADER;

system "./datesandmileage.cgi";

open FOOTER, "../parts/footer";
foreach (<FOOTER>) {
    s{__DATE__}{@date};
    print $_;
}
close FOOTER;

This source has been viewed 40 times.

Wednesday, 24 April 2024 Michael J. Chappell Contact me at: mcsuper5@freeshell.org