#!/usr/local/bin/perl 


use Time::Local;


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



$jdir = "/usr/www/htdocs/kisrael/journal";


opendir(DIR,"$jdir") or print "can't open $dirname";
while(defined($file= readdir(DIR))) {
    if($file =~ /\.txt$/){
            push @files, $file;

    }
}
closedir(DIR);



foreach $file (@files){
    open(READ,"$jdir/$file") || print "Can't open $jdir/$file $!";
    $title{$file} = <READ>;
    close READ;
}

foreach $entry (sort {$title{$a} cmp $title{$b}}keys %title){
    $link = $entry;
    $link=~ s/.txt$//;
	       print<<__EOQ__
$link <a href="/viewblog/?date=$link">$title{$entry}</a><br>
__EOQ__
	   }