[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Tue Nov 25 14:47:23 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts
In directory dev.open-bio.org:/tmp/cvs-serv15813/Perl/MOBY-Server/bin/scripts

Modified Files:
	moby-s-install.pl 
Log Message:
added a check for XML::Simple and added a copy statement for service_unit_tester.pl
moby-live/Perl/MOBY-Server/bin/scripts moby-s-install.pl,1.13,1.14
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts/moby-s-install.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts/moby-s-install.pl	2008/09/02 13:19:13	1.13
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts/moby-s-install.pl	2008/11/25 19:47:23	1.14
@@ -76,6 +76,7 @@
 		DBI
 		DBD::mysql
 		LS
+		XML::Simple
 		)
 	  )
 	{
@@ -1393,7 +1394,7 @@
 }
 
 $answer = pprompt(
-"Would you like to auxillary scripts? These include the service pinger, a test page for the rdf agent, an RDF generator page, etc? [y] ",
+"Would you like to auxillary scripts? These include the service pinger, unit tester, a test page for the rdf agent, an RDF generator page, etc? [y] ",
 	-ynd => 'y'
     );
 if ($answer eq 'y') {
@@ -1442,7 +1443,19 @@
 	    { '#!/usr/bin/perl -w' => "#!$perl_exec", }
 	);
 	say
-'Please don\'t forget to place the service pinger on a cron! TODO - explain how to do that!';
+'Please don\'t forget to place the service pinger on a cron!';
+
+	# copy the service unit tester script
+    file_from_template(
+	    "$service_tester_path/service_unit_tester.pl",
+	    File::ShareDir::dist_file(
+		'MOBY', 'cgi/service_unit_tester.pl'
+	    ),
+	    'MOBY-Central service unit tester script',
+	    { '#!/usr/bin/perl -w' => "#!$perl_exec", }
+	);
+	say
+'Please don\'t forget to place the service unit tester on a cron!';
 
 	#copy the other scripts now
 	file_from_template(