--- delete.cgi.orig	2006-07-28 16:30:24.000000000 -0400
+++ delete.cgi	2011-08-09 14:49:40.000000000 -0400
@@ -1,16 +1,17 @@
-#!/usr/local/bin/perl -w
+#!/usr/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);
+if ($key =~ m#^[a-zA-Z0-9]{10}$#) {
+	my $dir = '../' . substr($key,0,2) . '/' . substr($key,2,8);
+	system("/bin/rm -r $dir");
+	# 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();
+	print $cgi->header();
+	print $cgi->start_html(-title=>"Bad or Missing Key: $key");
+	print "Bad or Missing Key: $key\n";
+	print $cgi->end_html();
 }