[MOBY-guts] biomoby commit

Eddie Kawas kawas at dev.open-bio.org
Mon Feb 25 19:28:10 UTC 2008


kawas
Mon Feb 25 14:28:09 EST 2008
Update of /home/repository/moby/moby-live/Perl
In directory dev.open-bio.org:/tmp/cvs-serv14047

Modified Files:
	create_doc.pl 
Log Message:
made some changes to the layout of the doc folders to better reflect the prevous folder structure used in the past
moby-live/Perl create_doc.pl,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/create_doc.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/create_doc.pl	2008/02/21 20:15:49	1.2
+++ /home/repository/moby/moby-live/Perl/create_doc.pl	2008/02/25 19:28:09	1.3
@@ -18,7 +18,7 @@
 my $infile_path_root = getcwd();
 
 # where html files will be stored
-my $outfile_path_root = "$infile_path_root/html";
+my $outfile_path_root = "$infile_path_root/docs/html";
 
 # where to store the log file
 my $logfile = "$infile_path_root/allpod.txt";
@@ -30,16 +30,19 @@
 &search_for_pod;
 
 # create the index file
-my $vars = { 'worklist' => \@html_files, };
+ at html_files = sort(@html_files);
+my $vars = { 'worklist' => \@html_files, 
+	     'replace' => sub {my $text = shift; $text =~ s/\//::/g; return $text;} 
+};
 
 my $template = Template->new( {} );    
 
 my $out = "";
 $template->process( "templates/index.tt", $vars, \$out )
   or print LOGFILE "error creating index file: " . $template->error() . "\n";
-open INDEX_OUT, ">$outfile_path_root/$lib_dir/index.html"
+open INDEX_OUT, ">$infile_path_root/index.html"
   || print LOGFILE
-  "couldn't open INDEX_OUT $outfile_path_root/$lib_dir/index.html\n";
+  "couldn't open INDEX_OUT $infile_path_root/index.html\n";
 print INDEX_OUT $out;
 close INDEX_OUT;
 print LOGFILE "-" x 60, "\n";




More information about the MOBY-guts mailing list