#!/usr/local/bin/perl
sub basename {
    my($name) = @_;
    $name =~ s/\.html//;
    $name;
}
opendir(DIR1,".");
@files=readdir(DIR1);
for $i (0..$#files) {
  if ($files[$i] =~ m/\.html$/) {
    open(ORIG,"<$files[$i]");
    $new= &basename($files[$i]);
    $new=$new.".new.html";
    open(NEW,">$new");
    while(<ORIG>) {
      chop;
      if ($_ =~ m/\/PRE|\/pre/) {
        $name = &basename($files[$i]);
        if ($name =~ m/^[a-c]/) {
          $linkfile = "a-c.htm";
        } elsif ($name =~ m/^[d-f]/) {
          $linkfile = "d-f.htm";
        } elsif ($name =~ m/^[g-i]/) {
          $linkfile = "g-i.htm";
        } elsif ($name =~ m/^[j-l]/) {
          $linkfile = "j-l.htm";
        } elsif ($name =~ m/^[m-q]/) {
          $linkfile = "m-q.htm";
        } elsif ($name =~ m/^[r-s]/) {
          $linkfile = "r-s.htm";
        } elsif ($name =~ m/^[t-z]/) {
          $linkfile = "t-z.htm";
        }
        $elenor='http://www.owt.com/users/snowtao/srv/';
        #print NEW $_,"<br><font size=\"-1\">Check out <a href=\"$elenor$linkfile#$name\">Reviews for this CD</a> at Elenor Snow's page</font><br>\n";
        print NEW $_,"<br>Check out <a href=\"$elenor$linkfile#$name\">Reviews for this CD</a> at Elenor Snow's page<br>\n";
      } else {
        print NEW $_,"\n";
      }
    }
   close ORIG; close NEW;
   system("mv $files[$i] $files[$i].bak;mv $new $files[$i]");
  }
}