#!/usr/local/bin/perl 
#
# tutorial
#
# Melanie T. Johnson <johnsome@ucs.orst.edu>, 2/10/96
#
#

opendir(THISDIR,".");
@allfiles = readdir(THISDIR);
closedir(THISDIR);

#modify for buf size of 81
foreach $file(@allfiles) {
  if ($file =~ /.html/) {
  
    print "opening $file\n";
    
    $in  = "<$file";
    $out = ">out/$file";
  
    open (IN,$in);
    open (OUT,$out);
    
    while (read(IN, $buf, 77)) {    
      &makeMods;
      print OUT $buf;
    }
    
    close IN;
    close OUT;
    
    $in  = "<out/$file";
    $out = ">temp/$file";
    open (IN,$in);
    open (OUT,$out);
       
    while (read(IN, $buf, 87)) {
      &makeMods;
      print OUT $buf;
    }
    
    close IN;
    close OUT;
    
    $in  = "<temp/$file";
    $out = ">out/$file";
    open (IN,$in);
    open (OUT,$out);
       
    while (read(IN, $buf, 100)) {
      &makeMods;
      print OUT $buf;
    }
  }
}


sub makeMods {

      $buf =~ s/_/-/; 
      
#      12345678911234567892123456789312345678941234567895
      
      $buf =~ s/ALT="Next"/height=25 width=37 alt="Next"/;
      $buf =~ s/ALT="Up"/height=25 width=27 alt="Up"/; 
      $buf =~ s/ALT="Prev"/height=25 width=62 alt="Prev"/;
      $buf =~ s/ALT="Home"/height=25 width=65 alt="Contents"/;
      $buf =~ s/ALIGN= ALT="next"/height=25 width=1 alt=" "/;   
      $buf =~ s/align= ALT="next"/height=25 width=1 alt=" "/;   
       
      $buf =~ s/<IMG/<img/;
      $buf =~ s/ALIGN=/align=/;
      $buf =~ s/ALIGN=/align=/;      
      $buf =~ s/SRC/src/;
      $buf =~ s/..\/icons/figs/;
      
      $buf =~ s/<B><TT>/<code>/;
      $buf =~ s/<\/TT><\/B>/<\/code>/;
      
      $buf =~ s/HTML>/html>/;
      $buf =~ s/HEAD>/head>/;
      $buf =~ s/<TITLE>/<title>NACSE -/;
      $buf =~ s/<\/TITLE>/<\/title>/;
      $buf =~ s/BODY>/body>/;

      $buf =~ s/HR>/hr>/;
      $buf =~ s/BR>/br>/;
      $buf =~ s/P>/p>/;

      $buf =~ s/TABLE>/table>/;
      $buf =~ s/TR>/tr>/;
      $buf =~ s/TD>/td>/;

      $buf =~ s/<A/<a/;
      $buf =~ s/HREF/href/;
      $buf =~ s/TARGET/target/;
      $buf =~ s/<\/A>/<\/a>/;

      $buf =~ s/PRE>/pre>/;
      $buf =~ s/B>/b>/;
      $buf =~ s/TT>/code>/;
      $buf =~ s/EM>/em>/;
      
      $buf =~ s/UL>/ul>/;
      $buf =~ s/LI>/li>/;

      $buf =~ s/DL>/dl>/;
      $buf =~ s/DT>/dt>/;
      $buf =~ s/DD>/dd>/;
      
      $buf =~ s/H4>/h2>/;
      $buf =~ s/H3>/h2>/;
      $buf =~ s/H2>/h2>/;
      $buf =~ s/H1>/h1>/;
      
      $buf =~ s/FRAMESET/frameset/;
      $buf =~ s/NOFRAMES>/noframes>/;
      $buf =~ s/FRAME/frame/;
      $buf =~ s/NAME=/name=/;
      $buf =~ s/SCROLLING=/scrolling=/;
      
      
}