Unnamed

#!/usr/bin/perl -w

@files = `ls -ltr ../www`;
$latest =  pop @files;

open FH, '<.latest' or die "Couldn't open .latest: $!";
$previous = <FH>;
close FH;


if ($latest eq $previous) {
        print "nothing new\n";
} else {

        open FH, '>.latest' or die "Couldn't open .latest: $!";
        print FH $latest;
        close FH;

        # trim filename
        $latest =~ s/.* //;

        print "posting announcment: updated http://uescape.h1x.com/$latest\n";
}