[MOBY-guts] biomoby commit

[Pieter Neerincs]

pieter
Wed Dec  5 12:10:18 EST 2007
Update of /home/repository/moby/moby-live/Perl/scripts
In directory dev.open-bio.org:/tmp/cvs-serv22599

Modified Files:
	CloneCentralDatabases.pl service_tester.pl 
Log Message:
Swithed default BioMOBY Central to new server in Calgary for CloneCentralDatabases.pl and service_tester.pl
moby-live/Perl/scripts CloneCentralDatabases.pl,1.3,1.4 service_tester.pl,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/CloneCentralDatabases.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/scripts/CloneCentralDatabases.pl	2005/11/02 13:18:29	1.3
+++ /home/repository/moby/moby-live/Perl/scripts/CloneCentralDatabases.pl	2007/12/05 17:10:18	1.4
@@ -23,8 +23,8 @@
 #
 # Official MOBY Central. (Currently down)
 #
-my $master_central_uri = 'http://mobycentral.icapture.ubc.ca/MOBY/Central';
-my $master_central_url = 'http://mobycentral.icapture.ubc.ca/cgi-bin/MOBY05/mobycentral.pl';
+my $master_central_uri = 'http://moby.ucalgary.ca/MOBY/Central';
+my $master_central_url = 'http://moby.ucalgary.ca/moby/MOBY-Central.pl';
 
 #
 # Get options.
@@ -225,13 +225,13 @@
 		print "         provided that you have already installed the scripts and configured your\n";
 		print "         webserver.\n";
 		
-		die;
+		exit;
 
 	}
 
 	unless (-e $confile && -r $confile) {
 	
-		die "ERROR:   MOBY_CENTRAL_CONFIG env var pointing to a missing or unreadable file.\n";
+		exit "ERROR:   MOBY_CENTRAL_CONFIG env var pointing to a missing or unreadable file.\n";
 	
 	} else {
 

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/service_tester.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/scripts/service_tester.pl	2007/08/15 19:39:36	1.2
+++ /home/repository/moby/moby-live/Perl/scripts/service_tester.pl	2007/12/05 17:10:18	1.3
@@ -51,10 +51,8 @@
 ######-------------------------------------------######
 
 # the registry to query
-my $URL = $ENV{MOBY_SERVER} || 'http://mobycentral.icapture.ubc.ca/cgi-bin/MOBY05/mobycentral.pl';
-my $URI = $ENV{MOBY_URI} || 'http://mobycentral.icapture.ubc.ca/MOBY/Central';
-#$URL = 'http://bioinfo.icapture.ubc.ca/cgi-bin/mobycentral/MOBY-Central.pl';
-#$URI = 'http://bioinfo.icapture.ubc.ca/MOBY/Central';
+my $URL = $ENV{MOBY_SERVER} || 'http://moby.ucalgary.ca/moby/MOBY-Central.pl';
+my $URI = $ENV{MOBY_URI} || 'http://moby.ucalgary.ca/MOBY/Central';
 
 # The directory to store the job details
 my $CONF  = MOBY::Config->new;
@@ -64,9 +62,6 @@
 my %ALIVE     = ();
 my $FILENAME  = 'isAliveStats.xml';
 
-
-
-
 # create some shared variables
 my $alive_handle = tie %ALIVE, 'IPC::Shareable', undef, { destroy => 'yes' };