/[MITgcm]/mitgcm.org/front_content/Assemble.pl
ViewVC logotype

Diff of /mitgcm.org/front_content/Assemble.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by edhill, Thu Dec 4 03:10:49 2003 UTC revision 1.5 by edhill, Wed Mar 10 15:12:55 2004 UTC
# Line 5  Line 5 
5    
6  #  Assemble the web pages from XML files.  #  Assemble the web pages from XML files.
7    
8  $topdir = "./";  $topdir = ".";
9  $file_list = $topdir . "/order.txt";  $file_list = $topdir . "/order.txt";
10  open(ORDER,$file_list) or die "ERROR: can't open \"$file_list\"\n";  open(ORDER,$file_list) or die "ERROR: can't open \"$file_list\"\n";
11  $_ = join(" ", <ORDER>);  $_ = join(" ", <ORDER>);
# Line 71  foreach $file (@flist) { Line 71  foreach $file (@flist) {
71          }          }
72          $menu = join "", $menu, $tmp;          $menu = join "", $menu, $tmp;
73      }      }
74      $tmp = "<a href=\"./htdig\" />Search</a><br />\n";      # $tmp = "<a href=\"./htdig\" />Search</a><br />\n";
75      $menu = join "", $menu, $tmp;      # $menu = join "", $menu, $tmp;
76    
77      #  Create the output      #  Create the output
78      $_ = $template;      $_ = $template;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22