[Midnightbsd-cvs] mports: delete-result.cgi: remove delete result script.

Wed Mar 19 23:48:55 EDT 2008

Log Message:
-----------
remove delete result script.  results are dead man. dead.

Removed Files:
-------------
    mports/Tools/magus/www/data/magus/auth:
        delete-result.cgi

-------------- next part --------------

--- Tools/magus/www/data/magus/auth/delete-result.cgi
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/local/bin/perl
-
-use strict;
-use warnings;
-use lib qw(/usr/mports/Tools/lib);
-
-use Magus;
-use CGI;
-
-
-eval { main() };
-
-if ($@) {
-	print "Content-Type: text/html\n\n";
-	print <<END_OF_ERROR;
-<html>
-<head><title>Error</title></head>
-<body>
-<h1>Error</h1>
-<p>The following error occured:</p>
-<pre>$@</pre>
-END_OF_ERROR
-}
-
-sub main {
-	my $q = CGI->new;
-	my $id = $q->param('id') || die "No id given.\n";
-
-	my $result = Magus::Result->retrieve($id) || die "No such result: $id\n";
-	
-	$result->delete;
-
-	print $q->redirect($q->referer);
-}
