/[MITgcm]/mitgcm.org/devel/buildweb/bin/bonniefy.pl
ViewVC logotype

Diff of /mitgcm.org/devel/buildweb/bin/bonniefy.pl

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

revision 1.2 by edhill, Wed Jul 23 17:54:35 2003 UTC revision 1.4 by edhill, Sun Apr 9 13:30:36 2006 UTC
# Line 110  for ($i=1;$i <= $#toc2patternlist; $i=$i Line 110  for ($i=1;$i <= $#toc2patternlist; $i=$i
110    $notfound = 1;    $notfound = 1;
111    $j=0;    $j=0;
112    
113    while (($j < $#htmlfiles) && ($notfound)) {    while (($j <= $#htmlfiles) && ($notfound)) {
114      open(THISHTML,$htmlfiles[$j]) || die("can't open $htmlfiles[$j]");      open(THISHTML,$htmlfiles[$j]) || die("can't open $htmlfiles[$j]");
115    
116      while (<THISHTML>)  {      while (<THISHTML>)  {
# Line 160  for ($thispaocfile=0; $thispaocfile<$#pa Line 160  for ($thispaocfile=0; $thispaocfile<$#pa
160  ### added by AJA: create a flag to indicate whether file has been associated  ### added by AJA: create a flag to indicate whether file has been associated
161  #                 with a template (1 = no and 0 = yes)  #                 with a template (1 = no and 0 = yes)
162        $thisfile=0;        $thisfile=0;
163        while ($thisfile < $#htmlfiles) {        while ($thisfile <= $#htmlfiles) {
164         $htmlfileassociated[$thisfile]=1;         $htmlfileassociated[$thisfile]=1;
165         $thisfile++;         $thisfile++;
166        } # loop through file        } # loop through file
# Line 195  for ($thistemplate=0; $thistemplate <= $ Line 195  for ($thistemplate=0; $thistemplate <= $
195    
196        $pattern = $template2patternlist[$thispattern+1];        $pattern = $template2patternlist[$thispattern+1];
197        $thisfile=0;        $thisfile=0;
198        while ($thisfile < $#htmlfiles) {        while ($thisfile <= $#htmlfiles) {
199          open(THISHTML,$htmlfiles[$thisfile]) || die("can't open $htmlfiles[$thisfile]");          open(THISHTML,$htmlfiles[$thisfile]) || die("can't open $htmlfiles[$thisfile]");
200          while (<THISHTML>)  {          while (<THISHTML>)  {
201            if (/$pattern/ && $htmlfileassociated[$thisfile]){            if (/$pattern/ && $htmlfileassociated[$thisfile]){
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22