[Midnightbsd-cvs] mports: delete_result.pl: Quick little script to delete results from the

[ctriv at midnightbsd.org]

Log Message:
-----------
Quick little script to delete results from the db

Added Files:
-----------
    mports/Tools/magus/master:
        delete_result.pl (r1.1)

-------------- next part --------------
--- /dev/null
+++ Tools/magus/master/delete_result.pl
@@ -0,0 +1,21 @@
+#!/usr/local/bin/perl
+#
+# $MidnightBSD: mports/Tools/magus/master/delete_result.pl,v 1.1 2007/10/24 00:31:41 ctriv Exp $
+#
+
+use strict;
+use warnings;
+use lib qw(/usr/mports/Tools/lib);
+
+use Magus;
+
+#
+# quick little script to delete results from the db.
+#
+
+while (@ARGV) {
+
+  my $result = Magus::Result->retrieve(shift) || die "Couldn't get result!\n";
+
+  $result->delete;
+}
\ No newline at end of file