#!/usr/bin/perl

print "Status: 301 Moved Permanently\n";
print "Location: https://kirk.is/thisday/\n\n";
exit;

#!/usr/bin/perl


require "kisrael.pl";
require "../tumble.pl";

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


&chugCGI(*input);



$date = $input{"date"};
if($date eq "" || $date eq "today"){
    if($date eq "today"){
      $skiptoday = 1;
    }
    ($year,$mon,$mday) = getYYYY_MM_DDfromTimestamp(time);
    $date = getYYYYdotMMdotDDfromTimestamp(time);
} else {
    ($year,$mon,$mday) = split(/\./,$date);
}

$prettymday = DD2D($mday);



$prettymonth = lc(get3LetterMonthCountOne($mon));

$prettydate = "$prettymday $prettymonth";

#now figure out prevday and nextday....



$y =  getYesterYYYYdotMMdotDDfromTimestamp($date);
$t = getTomorrowYYYYdotMMdotDDfromTimestamp($date);

$topper = <<__EOQ__;
<a href="retrospect.cgi?date=$y">&lt;</a> 
retrospect:
$prettydate    
<a href="retrospect.cgi?date=$t">&gt;</a> 
 <LINK rel="stylesheet" type="text/css" href="/styles/main.css">
__EOQ__

printGenericTop("retrospect - $prettydate", "$topper");

print "<br><br>";




#kisrael.com started 2000/12/30
if($mon == 12 && $mday >= 30){
    @years = (2000);
} else {
    @years = ();
}

if($skiptoday == 1){
  $year--;
}


for($i = 2001; $i <= $year; $i++){

    push @years,$i;
}



$colorheadingbg = "#000000"; #global :-(


print "<div class='basicwrap'><div class='maincontent'>";
foreach $year (reverse @years){
    #printEntry($year.".".$mon.".".$mday);
  
print tumbleEntry($year.".".$mon.".".$mday, 1);


}
print "</div></div>";


$kfiles = ();

$kindex  = $kdir."/dateindex.tab";
open(READKINDEX,$kindex);
while(defined($line=<READKINDEX>)){
    chomp $line;
    $line =~ /^(.*?)\t(.*)$/;
    $key = $1;
    $rest = $2;
    if($key eq $mon.".".$mday){
	$kref = $rest;
    }
}


$lastnum = "";

if($kref ne ""){


    @entries = split(/\t/,$kref);

    foreach  $entry(reverse @entries){
	($num,$offset) = split(/\_/,$entry);
	
	if($num ne $lastnum){
	    @currentKlines = fileContentsAsArray($kdir."/".$num.".html");
	    
	    $ktitle{$num} = findKtitle(@currentKlines);

	    $lastnum = $num;


}
	$kbuf = "";
	$done = 0;
	$ptr = $offset;
	while($done == 0){
	    $kline = @currentKlines[$ptr];
	    $kbuf{$num} .= $kline;
	    if($kline =~ /\-\-\-/ || $kline =~ /\<\/td\>/i || $ptr > 1000){
		$done = 1;
	    }
	    $ptr++;
	}
}
print<<__EOQ__;
<br><br>
<table width=300 align="center" border=0>
__EOQ__

foreach $num(reverse (sort keys %kbuf)){

	print<<__EOQ__;
<tr><td bgcolor="black" align="center">
<a href="/khftcea/$num.html"><FONT FACE="Arial" COLOR="#FFFFFF">
<B>$ktitle{$num}</b></font></a>
</td></tr>
<tr><td>
$kbuf{$num}
</td></tr>
__EOQ__
}

print<<__EOQ__;
</table>
__EOQ__
}

print<<__EOQ__;
<br><br>
<hr width=200>
<center><FONT FACE="ARIAL" SIZE="6" color="black">$topper</font></center>
__EOQ__

sub findKtitle{
    my(@currentKlines) = @_;
    foreach $line (@currentKlines){
	print $line;
	if($line =~ /\<title\>(.*)\<\/title\>/i){
	    $foo = $1;
	    return $foo;
	}
    }
    return "(whoops)";
}