/[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.2 by edhill, Thu Dec 4 02:14:52 2003 UTC revision 1.7 by edhill, Thu Apr 6 19:52:17 2006 UTC
# Line 1  Line 1 
1  #! /usr/bin/env perl  #! /usr/bin/perl
2    
3  #  Ed Hill  #  Ed Hill
4  #  Tue Dec  2 20:17:27 EST 2003  #  Tue Dec  2 20:17:27 EST 2003
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 55  foreach $file (@flist) { Line 55  foreach $file (@flist) {
55      foreach $fm (@flist) {      foreach $fm (@flist) {
56          $ind = "";          $ind = "";
57          $name = $name0{$fm};          $name = $name0{$fm};
58    
59            if ($name eq "Documentation") {
60                $tmp = "<a href=\"http://mitgcm.org/pelican/\">"
61                    . "Documentation</a><br />\n";
62                $menu = join "", $menu, $tmp;
63                next;
64            }
65    
66          if (length($name1{$fm}) > 0) {          if (length($name1{$fm}) > 0) {
67              $ind = "&nbsp;&nbsp;";              $ind = "&nbsp;&nbsp;&nbsp;";
68              $name = $name1{$fm};              $name = $name1{$fm};
69          }          }
70          if (length($ind) > 0 and ($name0{$fm} ne $cname)) {          if (length($ind) > 0 and ($name0{$fm} ne $cname)) {
# Line 71  foreach $file (@flist) { Line 79  foreach $file (@flist) {
79          }          }
80          $menu = join "", $menu, $tmp;          $menu = join "", $menu, $tmp;
81      }      }
82      $tmp = "<a href=\"./htdig\" />Search</a><br />\n";      # $tmp = "<a href=\"./htdig\" />Search</a><br />\n";
83      $menu = join "", $menu, $tmp;      # $menu = join "", $menu, $tmp;
84    
85      #  Create the output      #  Create the output
86      $_ = $template;      $_ = $template;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22