[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Apr 30 13:08:30 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts
In directory dev.open-bio.org:/tmp/cvs-serv13748/Perl/MOBY-Server/bin/scripts

Modified Files:
	moby-s-install.pl 
Log Message:
instead of checking for WSRF and its dependencies, we now prompt the user if they would like to use those libraries and then check. This saves you the hassle of having to try and install the dependencies for WSRF when you dont plan on using those libraries.
moby-live/Perl/MOBY-Server/bin/scripts moby-s-install.pl,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts/moby-s-install.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts/moby-s-install.pl	2008/03/19 16:55:35	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts/moby-s-install.pl	2008/04/30 17:08:30	1.4
@@ -57,14 +57,6 @@
 		File::HomeDir
 		File::ShareDir
 		Class::Inspector
-		XML::DOM
-		DateTime::Format::Epoch
-		DateTime::Format::W3CDTF
-		HTTP::Daemon
-		MIME::Base64
-		Digest::SHA1
-		Crypt::OpenSSL::RSA
-		Sys::Hostname::Long
 		RDF::Core
 		XML::XPath
 		Text::Shellwords
@@ -87,9 +79,28 @@
 		check_module('IO::Prompt');
 		require IO::Prompt;
 		import IO::Prompt;
-		check_module('WSRF::Lite');
-		check_module('Crypt::OpenSSL::X509');
+		# module required for service_tester.pl
 		check_module('IPC::Shareable');
+		# check for async libraries if user wants to ....
+		do {
+			foreach $module (
+			qw / WSRF::Lite
+				 XML::DOM
+				 DateTime::Format::Epoch
+				 DateTime::Format::W3CDTF
+				 HTTP::Daemon
+				 Crypt::OpenSSL::X509
+				 MIME::Base64
+		         Digest::SHA1
+		         Crypt::OpenSSL::RSA
+				 Sys::Hostname::Long
+				 HTTP::Daemon::SSL
+				 XML::CanonicalizeXML
+			   / ) {
+				check_module($module);
+				
+			}
+		} if prompt( "Shall we check for the moby-async libraries\n\t(do this only if you plan on creating async moby services)? ", -yn );
 	}
 
 	if ($errors_found) {