[MOBY-guts] biomoby commit

Eddie Kawas kawas at dev.open-bio.org
Sat May 10 00:23:06 UTC 2008


kawas
Fri May  9 20:23:05 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators
In directory dev.open-bio.org:/tmp/cvs-serv20297/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators

Modified Files:
	GenServices.pm 
Log Message:

moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators GenServices.pm,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/GenServices.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/GenServices.pm	2008/04/29 19:58:37	1.5
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/GenServices.pm	2008/05/10 00:23:05	1.6
@@ -332,8 +332,7 @@
 	    # we cannot easily check whether the same file was already
 	    # generated - so we don't
 	    my $outfile =
-		File::Spec->catfile ( $outdir, split (/\./, $obj->authority), $obj->name )
-		. '.cgi';
+		File::Spec->catfile ( $outdir, split (/\./, $obj->authority), $obj->name ) . '.cgi';
 	    $tt->process ( $input, 
 	    	{ 
 	    		obj 		  => $obj, 
@@ -342,7 +341,9 @@
 	    	  	services_dir  => $MOBYCFG::GENERATORS_IMPL_OUTDIR,
 	    	},
 			   $outfile ) || $LOG->logdie ($tt->error());
-		chmod 0755, $outfile;
+		chmod (0755, $outfile);
+		$LOG->info ("\tCGI service created at '$outfile'\n");
+		 
 	}
     }
 }




More information about the MOBY-guts mailing list