=**************************************
    = Name: CGI-Fortune with Extras
    = Description:This script displays a new
    =     `fortune` every time it's ran, only work
    =     s on systems with the fortune program in
    =     stalled, and in the $PATH of a webserver
    =     .
    = By: Slava Shirokov
    =
    = Inputs:It accepts CGI variables:
    fortune.pl?o=1 is equivelent to running 'fortune -o'
    fortune.pl?s=1 is equivelent to running 'fortune -s'
    and the combination of the 2: fortune.pl?s=1&o;=1 is the same as 'fortune -o -s'
    One more variable, show-source, if set as a CGI var to a true value, will make this script display it's own source code formatted as proper HTML. (ex. fortune.pl?show-source=1 would display program listing)
    =
    = Returns:Returns either a fortune, or i
    =     t's own source code.
    =
    = Assumes:This code only runs as a CGI s
    =     cript, run it standalone only if you can
    =     visualize HTML in your head. It asumes t
    =     hat it can open 'fortune' as a pipe with
    =     out specifing a full path.
    =
    = Side Effects:For every run, a copy of 
    =     fortune will be opened by a pipe, so any
    =     rescources it takes alone, will be combi
    =     ned with the rescources needed to run th
    =     is script.
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/xq/ASP/txtCode
    =     Id.290/lngWId.6/qx/vb/scripts/ShowCode.h
    =     tm    =for details.    =**************************************
    
    #!/usr/bin/perl -w 
    use strict;
    use CGI;
    my $cgi = new CGI;
    my @fortune;
    my $flags = " ";
    my $amp = pack("c", "038"); #Needed to make HTML display right
    print 
    	$cgi->header(),
    	$cgi->start_html(
    		-title => "Fortune of the moment"
    	);
    if($cgi->param("o")) {
    	$flags .= " -o";
    }
    if($cgi->param("s")) {
    	$flags .= " -s";
    }
    open(FORT, "fortune $flags|") or death();
    @fortune = <FORT>;
    close(FORT);
    foreach (@fortune) {
    	s/\n/<br>\n/;
    }
    if(!$cgi->param("show-source")) {
    	print @fortune;
    }
    else {
    	open(SELF, "$0") or death();
    	@fortune = <SELF>;
    	foreach (@fortune) { #Escape everything propertly for HTML
    		s/\&/${amp}amp;/g;
    		s/\t/${amp}nbsp;${amp}nbsp;${amp}nbsp;${amp}nbsp;/g;
    		s/\</${amp}lt;/g;
    		s/\>/${amp}gt;/g;
    		s/\n/<br>\n/g;
    	}
    	print 
    		$cgi->b(
    			"$0 by Slava Shirokov mutatorr\@accessirc.net"
    		),
    		$cgi->br(),
    		$cgi->br(); 
    	print @fortune;
    }
    print
    	$cgi->end_html();
    sub death {
    	print "An error has occured.\<br\>";
    	print "I will shut down.";
    	print $cgi->end_html();
    	exit 1;
    }