#!/usr/local/bin/perl use Time::Local; print "Content-type:text/html\n\n"; $jdir = "/data/MAIN/kirk.is/journal"; opendir(DIR,"$jdir") or print "can't open $jdir"; 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} = ; close READ; } print<<__EOQ__; kisrael.com all titles
kisrael.com: all titles, sorted alphabetically

__EOQ__ foreach $entry (sort {$title{$a} cmp $title{$b}}keys %title){ $link = $entry; $link=~ s/.txt$//; if($title{$entry} eq $last){ # $dup = "DUP!"; } else { # $dup = ""; } print<<__EOQ__; __EOQ__ $last = $title{$entry}; } print<<__EOQ__
$link $title{$entry} $dup
 
__EOQ__