From 01961b14e347542183e36e8e0d08cc0d7b857bd0 Mon Sep 17 00:00:00 2001
From: Jessica Severin <jessica@ebi.ac.uk>
Date: Mon, 15 Aug 2005 16:03:07 +0000
Subject: [PATCH] commandline utility script to provide job-level blocking
control via urls.
---
scripts/ehive_unblock.pl | 40 ++++++++++++++++++++++++++++++++++++++++
1 file changed, 40 insertions(+)
create mode 100755 scripts/ehive_unblock.pl
diff --git a/scripts/ehive_unblock.pl b/scripts/ehive_unblock.pl
new file mode 100755
index 000000000..dc46c8ea7
--- /dev/null
+++ b/scripts/ehive_unblock.pl
@@ -0,0 +1,40 @@
+#!/usr/local/ensembl/bin/perl -w
+
+use strict;
+use DBI;
+use Getopt::Long;
+use Bio::EnsEMBL::Hive;
+
+my ($help, $url);
+
+GetOptions('help' => \$help,
+ 'url=s' => \$url,
+ );
+
+if ($help) { usage(); }
+
+my $job = Bio::EnsEMBL::Hive::URLFactory->fetch($url);
+die("Unable to fecth job via url $url\n") unless($job);
+
+$job->print_job;
+$job->update_status('READY');
+
+exit(0);
+
+
+#######################
+#
+# subroutines
+#
+#######################
+
+sub usage {
+ print "ehive_unblock.pl [options]\n";
+ print " -help : print this help\n";
+ print " -url <url string> : url defining hive job\n";
+ print "ehive_unblock.pl v1.7\n";
+
+ exit(1);
+}
+
+
--
GitLab