[Midnightbsd-cvs] mports [18884] trunk/Tools/magus/master/delete_run.pl: add a new script to delete runs.

[laffer1 at midnightbsd.org]

Revision: 18884
          http://svnweb.midnightbsd.org/mports/?rev=18884
Author:   laffer1
Date:     2015-05-09 14:57:32 -0400 (Sat, 09 May 2015)
Log Message:
-----------
add a new script to delete runs.

Added Paths:
-----------
    trunk/Tools/magus/master/delete_run.pl

Added: trunk/Tools/magus/master/delete_run.pl
===================================================================
--- trunk/Tools/magus/master/delete_run.pl	                        (rev 0)
+++ trunk/Tools/magus/master/delete_run.pl	2015-05-09 18:57:32 UTC (rev 18884)
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+#
+# $MidnightBSD$
+
+use strict;
+use warnings;
+use lib qw(/usr/mports/Tools/lib);
+
+use Magus;
+
+#
+# quick little script to delete runs from the db.
+#
+
+while (@ARGV) {
+
+  my $run = Magus::Run->retrieve(shift) || die "Couldn't get run!\n";
+
+  $run->delete;
+}


Property changes on: trunk/Tools/magus/master/delete_run.pl
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property