[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Oct  9 11:31:01 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts
In directory dev.open-bio.org:/tmp/cvs-serv13298/MOSES-MOBY/bin/scripts

Modified Files:
	moses-testing-service.pl 
Log Message:
added a line that prints the LSAE message if $opt_v is chosen when checking the status of a submitted job.
moby-live/Perl/MOSES-MOBY/bin/scripts moses-testing-service.pl,1.11,1.12
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl	2009/04/16 18:17:24	1.11
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl	2009/10/09 15:31:00	1.12
@@ -153,6 +153,7 @@
 			$completed->{$queryID} = 1;
 		} elsif ( $status->percentage < 100 ) {
 			print "Current percentage: ", $status->percentage, "\n" if $opt_v;
+			print "\tmsg: ", ($status->message ? $status->message : "no message found ..."), "\n" if $opt_v;
 			sleep(20);
 		} else {
 			die "ERROR:  analysis event block not well formed.\n";
@@ -168,6 +169,7 @@
 				  || ( $status->new_state =~ m"running"i ) )
 		{
 			print "Current State: ", $status->new_state, "\n" if $opt_v;
+			print "\tmsg: ", ($status->message ? $status->message : "no message found ..."), "\n" if $opt_v;
 			sleep(20);
 		} else {
 			die "ERROR:  analysis event block not well formed.\n";
@@ -178,6 +180,7 @@
 			$completed->{$queryID} = 1;
 		} elsif ( $status->steps_completed < $status->total_steps ) {
 			print "Steps completed: ", $status->steps_completed, "\n" if $opt_v;
+			print "\tmsg: ", ($status->message ? $status->message : "no message found ..."), "\n" if $opt_v;
 			sleep(20);
 		} else {
 			die "ERROR:  analysis event block not well formed.\n";
@@ -188,6 +191,7 @@
 			$completed->{$queryID} = 1;
 		} elsif ( $status->remaining > 0 ) {
 			print "Time remaining: ", $status->remaining, "\n" if $opt_v;
+			print "\tmsg: ", ($status->message ? $status->message : "no message found ..."), "\n" if $opt_v;
 			sleep(20);
 		} else {
 			die "ERROR:  analysis event block not well formed.\n";