[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Tue Apr 29 15:59:43 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts
In directory dev.open-bio.org:/tmp/cvs-serv10474/Perl/MOSES-MOBY/bin/scripts

Modified Files:
	moses-install.pl 
Log Message:
added support for biomoby services of category cgi 
moby-live/Perl/MOSES-MOBY/bin/scripts moses-install.pl,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-install.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-install.pl	2008/02/21 00:12:55	1.3
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-install.pl	2008/04/29 19:59:43	1.4
@@ -182,6 +182,18 @@
 
 # create install directory if necessary
 eval {
+	my ($v, $d, $f) = File::Spec->splitpath( $pmoses_home . "/cgi" );
+	my $dir = File::Spec->catdir($v);
+	foreach my $part ( File::Spec->splitdir( ($d.$f ) ) ) {
+	   	$dir = File::Spec->catdir($dir, $part);
+   		next if -d $dir or -e $dir;
+	    mkdir( $dir ) || die("Error creating installation directory directory '".$dir."':\n$!");
+	}
+};
+say $@ ? $@ : "Created install directory '$pmoses_home/cgi'.";
+
+# create install directory if necessary
+eval {
 	my ($v, $d, $f) = File::Spec->splitpath( $samples_home );
 	my $dir = File::Spec->catdir($v);
 	foreach my $part ( File::Spec->splitdir( ($d.$f ) ) ) {