#!/usr/local/bin/perl

use CGI;

use Date::Calc qw( Today_and_Now Delta_YMDHMS ) ;

$query = new CGI;

print $query->header;

print <<EOT;
<html><head><title>
Have You Seen This Man?
</title>
</head>
<STYLE TYPE="text/css">
:link   {text-decoration: none; }
:visited        {text-decoration: none; }
</style>
<body bgcolor="#ffffff">
<div align='center'>
<table border='0' width='100%'><tr><td bgcolor='#66CCAA'><font color='#000000'
size='36px'><div align='center'>&nbsp;Bush Press Conference
Clock&nbsp;</div></font></td></tr></table>
<br/>
As of right now, it has been:
<br/><br/><font size='+2'><b>
EOT

# March 06 20:54:00 EST 2003
$year1='2004';
$month1='4';
$day1='13';
$hour1='20';
$min1='31';
$sec1='0';

$now=time();

($year2,$month2,$day2, $hour2,$min2,$sec2) = Today_and_Now();

($D_y,$D_m,$D_d, $Dh,$Dm,$Ds) = Delta_YMDHMS($year1,$month1,$day1,
$hour1,$min1,$sec1, $year2,$month2,$day2, $hour2,$min2,$sec2);

print "$D_m months, $D_d days, $Dh hours, $Dm minutes and $Ds seconds";

if ( $hour2 > 12 ) {
	$hour2 = $hour2 - 12;
}

print <<EOT;
</b></font><font style='vertical-align: super;' size='-2'>
<a href='#caveat'>*</a></font>
<br/><br/>...since the end of George W. Bush's 
<a
href='http://www.whitehouse.gov/news/releases/2004/04/20040413-20.html'>last</a> 
press conference with open questions on American soil.
<br/>
<font size='-2'>(<a href="#caveat2">Or has it?</a>)</font>
<br/>
<img src='shrub.jpg'><br/>
<br/>
It's $hour2 o'clock (GMT-5)... do you know where your President is?
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/>
<font size='-1'>* Counting from $hour1:$min1 Eastern (GMT-5) Time
<a name='caveat'>&nbsp;</a>
<br/>
<br/>
** There is strong reason to believe that the question-and-answer section
of the 6 March 2003 "Press Conference" was <a
href='http://www.buzzflash.com/analysis/03/03/07_scripted.html'>scripted</a>.
If it happened once, it probably happened multiple times.
<a name='caveat2'>&nbsp;</a>
<br/>
<br/>
<table border='0' width='66%'><tr><td><font size='-2'>
Corrections and updates happily <a
href='mailto:bushclock$now\@memory.blank.org'>accepted</a>.  
Hate mail
will be edited to make you look even more stupid and then posted with
any personal information about you that I can gather.  (Or just ignored.)
</font></td></tr></table>
</div>
</body></html>
EOT

exit 0;

