#!/usr/local/bin/perl # # This Perl Script was Programmed by Hideaki `ArctanX' TANABE # 1996/03/05 # # Usage:%whatsnew.pl # # in HTML, use like following with SSI(Server Side Include) # # # set giffile path from command line $gif_path = $ARGV[0]; # set filename from command line $filename = $ARGV[1]; # set timestamp of file ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename); # set now time $now = time; # calculate passed time $diff = $now - $mtime; # if passed time < 86400sec(for 1 day) if ($diff < 86400) { print "\"™\"\n"; } # if passed time < 259200sec(for 3 days) elsif ($diff < 259200) { print "\"š\"\n"; } # if passed time < 604800sec(for 1 week) elsif ($diff < 604800) { print "\"\"\n"; } # if passed time < 1209600sec(for 2 weeks) elsif ($diff < 1209600) { print "\"›\"\n"; } # if passed time < 2592000sec(for 1 month) elsif ($diff < 2592000) { print "\"œ\"\n"; } # if passed time < 7776000sec(for 3 months) elsif ($diff < 7776000) { print "\"¢\"\n"; } # if passed time >= 7776000sec(for 3 months) else { print "\"£\"\n"; } # end