

Dr. Xu Zerong, detained
#!/usr/bin/perl
# ==================
# Month must be 3 letters, and the first in caps. Space between month
# and day is required.
$GOAL="Jan 1"; # not 10, because of the leap year.
# ==================
%month= ( 'Jan',0,'Feb',31,'Mar',59,'Apr',90,'May',120,'Jun',151,
'Jul',181,'Aug',212,'Sep',243,'Oct',273,'Nov',304,'Dec',334 );
($sec,$min,$hour,$mday,$mon,$year,$wday,$CURRENT,$isdst)=localtime(time);
$CURRENT++;
($gmonth,$gday)=split(' ',$GOAL);
$GOAL = $month{$gmonth} + $gday;
$TOTAL = $CURRENT-$GOAL+160+365;
#if ($CURRENT > $GOAL) { $TOTAL=($GOAL+(364-$CURRENT)); }
#else { $TOTAL= $GOAL-$CURRENT; }
print "Content-type: text/html\n\n$TOTAL";
exit;
days

|