@a = </tmp/wings.buffalo.edu/schedule/*>;
$na = @a;
print " na $na\n";
@srch = ("MTH ","Section ","credits","Registration #","Time: ","Dates: ", 
	 "Location: ","Instructor: ");
$nsrch = @srch;

sub td2{
    $tablerow = $_[0];
    $itd = index($tablerow,"<td>")+4;
    $jtd = index($tablerow,"</td>")-1;
    $tabledata1 = substr($tablerow,$itd,$jtd+1-$itd);
    $tablerow = substr($tablerow,$jtd+5);
    $itd = index($tablerow,"<td>")+4;
    $jtd = index($tablerow,"</td>")-1;
    $tabledata2 = substr($tablerow,$itd,$jtd+1-$itd);
}

@srchflags = ();
@srchdata = ();
for ($isrch=0; $isrch<$nsrch; $isrch++){
    @srchflags = (@srchflags,0);
    @srchdata = (@srchdata,"");
}

open(COURSESCHEDULE,">course_schedule.txt");
for ($ia=0; $ia<$na; $ia++){
    open(INFILE,"<".@a[$ia]);
    @b = <INFILE>;
    close(INFILE);
    for ($isrch=0; $isrch<$nsrch; $isrch++){
       @srchflags[$isrch] = 0;
       @srchdata[$isrch] = "";}
    $nb = @b;
    print " nb $nb\n";
    for ($ib=0; $ib<$nb; $ib++){
	$line = @b[$ib];
        for ($isrch=0; $isrch<$nsrch; $isrch++){
            if(@srchflags[$isrch] == 0){
  	      $ifound = index($line,@srch[$isrch]);
              if($ifound > -1){ print $line;
                                print &td2($line)."\n";
                                @srchflags[$isrch] = 1;
                                 @srchdata[$isrch] = &td2($line);}
	  }
        }
    };
    for($isrch=0; $isrch<$nsrch; $isrch++){
        if(@srch[$isrch] eq "MTH "){
            $iMTH = index(@srchdata[$isrch],"MTH ");
            @srchdata[$isrch] = substr(@srchdata[$isrch],$iMTH+4,3);}
        if(@srch[$isrch] eq "Section "){
            $iSEC = index(@srchdata[$isrch],"Section ");
            @srchdata[$isrch] = substr(@srchdata[$isrch],$iSEC+8,3);}
        if(@srch[$isrch] eq "credits"){
            $iCRE = index(@srchdata[$isrch],"credits");
            if($iCRE>-1){@srchdata[$isrch] = 
			     substr(@srchdata[$isrch],$iCRE-6,5);}
        }
        print                @srch[$isrch].@srchdata[$isrch]."\n";
        print COURSESCHEDULE @srch[$isrch].@srchdata[$isrch]."\n";
}
    print                "\n";
    print COURSESCHEDULE "\n";
}
close(COURSESCHEDULE);