in reply to Re: Re: fortune
in thread fortune
davorg is right! So I modified my original, um, modification to include some nice HTML formatting to it. Here's the new code. Thanks davorg for getting me to fix it! -timallen
... followed by the original (hilarious) quips!#!/usr/bin/env perl -w use strict; my $quip = ""; { $/ = "%%\n"; rand($.) < 1 && chomp($quip = $_) while(<DATA>); } print "Content-Type: text/html\n\n"; print "<html><head><title>Fortune Teller Says...</title></head>"; print "<body bgcolor=#CCFFFF>"; print "<h3>$quip</h3>" || "<font color=FF0000>Could not get quote</fon +t>"; print "</body></html>"; __END__
|
---|
Replies are listed 'Best First'. | |
---|---|
(ichimunki) Re4: fortune
by ichimunki (Priest) on Jan 26, 2001 at 16:58 UTC |
In Section
Code Catacombs