#!/usr/bin/perl

# Try to fix these date-parsing problems, where the date ends up being the current date.

    use Data::Dumper;

my @files = glob 'story_contents/*';
#print Dumper \@files;

foreach my $file (@files) {
    open FIN, "<$file" or die;
    my $firstline = <FIN>;
    close FIN;
    my @fields = split /\t/, $firstline;

    (my $f = $file) =~ s#^.*/##si;
    if ($fields[2] > 1190977140) {
        print "$f   ", scalar(localtime($fields[2])), "\n";
        unlink($file);
    }
}