#!/usr/bin/perl ##################################### # TPA DATE # The Perl Archive # http://www.perlarchive.com/ # # This program is 100% freeware - do # with it what you wish. # $font = ''; &date; print "Content-type: text/html\n\n"; print qq~ $font Thank you for visiting, $ENV{'REMOTE_ADDR'}
It is $fulldate at $time. ~; if ($ENV{'HTTP_REFERER'}){ print qq~

Back~; } print ""; exit; sub date { @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'); @monthsword = ('January','February','March','April','May','June','July','August','September','October','November','December'); ($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time); $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec); $year += 1900; $monthword = $monthsword[$mon]; $dayword = $days[$wday]; $fulldate = "$dayword, $monthword $day, $year"; }