fortune.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 );

## use CGI::SSI (autotie => STDOUT); # not available

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

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

print qq|<p><pre class="terminal-wide">
    ______           __                 
   / ____/___  _____/ /___  ______  ___ 
  / /_  / __ \\/ ___/ __/ / / / __ \\/ _ \\
 / __/ / /_/ / /  / /_/ /_/ / / / /  __/
/_/    \\____/_/   \\__/\\__,_/_/ /_/\\___/ 
                                        
</pre></p>
    |;
for ($i=0;$i<8;$i++) {
    print qq|<p><pre class="terminal-wide">\n|;
    system "/usr/pkg/games/fortune";
    print qq|</pre></p>\n|;
}
print qq|
<hr/><div>
<a href="./fortune.pl">Another page of fortunes...</a>
</div><hr/>
    |;
open FOOTER, "../parts/footer";
foreach (<FOOTER>) {
    s{__DATE__}{@date};
    print $_;
}
close FOOTER;

This source has been viewed 28 times.

Monday, 14 July 2025 Michael J. Chappell Contact me at: mcsuper5@freeshell.org

Search Engines

Miscellaneous

fortune.pl