#!/usr/bin/perl
use File::Copy;
$|=1;
($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$year += 1900;
$mon++;
if(length($mon) == 1) { $mon = "0".$mon;}
require "blendcommon.cgi";
PrintHeader();
if(-e "$dirworks/$year/$mon"){
$index = "/blend/works/$year/$mon";
} else {
$index = "noworksyet.html";
}
print<<__EOQ__;
Blender of Love's NewMatic Viewer
__EOQ__