#!/usr/local/bin/perl -w

use CGI;
$cgi = new CGI;
$key = $cgi->param("key");

if ($key =~ m#^200\d/\d\d/\d\d/\d+(:\d+:\d+)?$#) {
        system("/bin/rm -r $key");
        # print our a redirect back to the referrer url after deletng?
        print $cgi->redirect($cgi->referer);
} else {
        print $cgi->header();
        print $cgi->start_html(-title=>"Bad or Missing Key: $key");
        print "Bad or Missing Key: $key\n";
        print $cgi->end_html();
}