[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Jun 20 15:56:37 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts
In directory dev.open-bio.org:/tmp/cvs-serv23594/Perl/MOBY-Server/bin/scripts

Modified Files:
	moby-s-install.pl 
Log Message:

moby-live/Perl/MOBY-Server/bin/scripts moby-s-install.pl,1.10,1.11
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts/moby-s-install.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts/moby-s-install.pl	2008/06/20 18:57:49	1.10
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/bin/scripts/moby-s-install.pl	2008/06/20 19:56:37	1.11
@@ -8,19 +8,26 @@
 
 BEGIN {
 	use Getopt::Std;
-	use vars qw/ $opt_h $opt_F /;
+	use vars qw/ $opt_h /;
 	getopt;
 
 	# usage
 	if ($opt_h) {
 		print STDOUT <<'END_OF_USAGE';
 Preparing the stage for hosting a BioMOBY registry.
-Usage: [-F]
+Usage: moby-s-install.pl [-h]
 
-    --- SYNOPSIS HERE ---
+	-h .... shows this message ;-)
+	
+    Installer script for installing a BioMOBY registry
+    
+    This script goes through and edits your apache configuration,
+    mysql settings, and installs cgi scripts needed to host your
+    own registry. It is best to do this as root, because items are
+    copied into priviledged locations (apache directory, etc.).
     
-	The existing files are not overwritten - unless an option -F
-    has been used.
+    Good luck!
+	
 
 END_OF_USAGE
 		exit(0);
@@ -863,11 +870,11 @@
 	    my @sections = split /(\[\s*\S+\s*\][^\[]*)/s, join "", <IN>;
 	    my %db_sections = ();
 	    foreach my $section (@sections) {
-		my $dbConfig = MOBY::dbConfig->new( section => $section );
-		next unless $dbConfig;
-		my $dbname = $dbConfig->section_title;
-		next unless $dbname;
-		$db_sections{$dbname} = $dbConfig;
+			my $dbConfig = MOBY::dbConfig->new( section => $section );
+			next unless $dbConfig;
+			my $dbname = $dbConfig->section_title;
+			next unless $dbname;
+			$db_sections{$dbname} = $dbConfig;
 	    }
 
 	    $moby_username  = $db_sections{mobycentral}->{username};