#!/usr/bin/perl

if (! open(CATSHTML, "> cats.html")) {
    print "cannot open cats.html!\n";
    exit 30;
}
if (! open(CATSTXT, "> cats.txt")) {
    print "cannot open cats.txt!\n";
    exit 40;
} else {
    print CATSTXT "Cats Photo Index:\n";
}
close(CATSTXT);
close(CATSTXT);

for $cat ( 
 Bagend,
 Balthy,
 BeauBeau,
 Binky,
 Blanco,
 Blue,
 BMW,
 Boots,
 Cartman,
 Cebert,
 Cotton,
 Doll,
 GreyBoy,
 Hannah,
 Honey,
 Joe,
 Johannah,
 Lee,
 Maah,
 Moyd,
 Nick,
 Om,
 Pele,
 Pong,
 Puffy,
 Sandy,
 Savannah,
 ShoeBootie,
 Stranger,
 Tabitha,
 Teenager,
 Tubbie 
 )

{
 
  print "$cat\n";

  if (! chdir("/home/httpd/technologists/html/photos")) {
    print "cannot open chdir to photos!\n";
    exit 1;
  }
  if (! open(PHOTOSINDEXHTM, "<index.htm")) {
    print "cannot open photos/index.htm!\n";
    exit 2;
  }
  if (! open(INDEXHTML, "> $cat.html")) {
    print "cannot open $cat.html!\n";
    exit 3;
  }
  if (! open(INDEXTXT, "> $cat.txt")) {
    print "cannot open $cat.txt!\n";
    exit 4;
  } else {
    print INDEXTXT "$cat Photo Index:\n";
  }

  while ( $line = <PHOTOSINDEXHTM> ) {
    if ($line !~ /^\<a/) {
        next;
    }
    if ((
         ($line =~ /$cat/) || 
           (($cat eq 'Om') && ($line =~ /Omelet/)) ||
           (($cat eq 'Puffy') && ($line =~ /Puffie/))
         ) && (
         ($line !~ /1800s/o) &&
         ($line !~ /1910s/o) &&
         ($line !~ /1920s/o) &&
         ($line !~ /1930s/o) &&
         ($line !~ /1940s/o) &&
         ($line !~ /03w/o) &&
         ($line !~ /CarolineLizHannahChuckLucyDorisHerbSauerAug89/o) &&
         ($line !~ /CarolineLizHannahChuckLucyDorisHerbSauerAug90/o) &&
         ($line !~ /Leighton/oi) &&
         ($line !~ /GeorgeJohnson/oi) &&
         ($line !~ /Emily/oi) &&
         ($line !~ /Young/oi) &&
         ($line !~ /FranNelsonAKALeeMillay/oi) &&
         ($line !~ /JamesCotton1969/oi) &&
         ($line !~ /Shark/oi) &&
         ($line !~ /BirthAnnouncementDJScomment/oi) &&
         ($line !~ /C07S05-NewMomNewLiz/oi) &&
         ($line !~ /C08S19-Momsnuggly/oi) &&
         ($line !~ /C09S21-LizAsleep/oi) &&
         ($line !~ /C09S44-Asleepinseat/oi) &&
         ($line !~ /C10S08-LizBigMomBigDad/oi) &&
         ($line !~ /C10S26-LizBigMom/oi) &&
         ($line !~ /C11S21-MomreadingtoLiz/oi) &&
         ($line !~ /C11S31-LizonhorsewithMom/oi) &&
         ($line !~ /C12S62-purpleLizMom/oi) &&
         ($line !~ /C13S26-LizMomGrandmaGrampa/oi) &&
         ($line !~ /C13S61-LizMomleaves/oi) &&
         ($line !~ /C13S79-LucyBigMomPat/oi) &&
         ($line !~ /C14S33-Lizwithdoll/oi) &&
         ($line !~ /C15S32-LizBigMomBigDad/oi) &&
         ($line !~ /C15S35-LizMom/oi) &&
         ($line !~ /C15S39-LizMom/oi) &&
         ($line !~ /C15S66-LizMomBigDadBigMom/oi) &&
         ($line !~ /C16S07-womens/oi) &&
         ($line !~ /C17S39-LizBigMomBigDad/oi) 
         )
        ) {
        #<a name="1800s1890KraftFamilyGathering600dpi"><a href="1800s/index.html#1890KraftFamilyGathering600dpi"><img src="1800s/ph1890KraftFamilyGathering600dpi.jpg" alt="click for larger size"></a>

            $line =~ s,^\<a name=\"(.*?)\"\>,,;
            $name = $1;
            $line =~ s,\<a href=\"(.*?)/index.html\#(.*?)\",\<a href=\"$1/sm$2\.html\",;
            $line =~ s,/ph,/tn,;
            $count{"$cat"}++;
            chop $line;
            $line .= "<small>${cat}".$count{"$cat"}."</small>\n";
            print INDEXHTML $line;
            print INDEXTXT "$cat".$count{"$cat"}.": $name\n";
            #if ($rc=system("fgrep -v $name cats.html > /dev/null")) {
	        #print "$name found\n";
                if (! open(CATSHTML, ">> cats.html")) {
                    print "cannot open cats.html!\n";
                    exit 30;
                }
                if (! open(CATSTXT, ">> cats.txt")) {
                    print "cannot open cats.txt!\n";
                    exit 40;
                }
                print CATSHTML $line;
                print CATSTXT "$cat".$count{"$cat"}.": $name\n";
                close(CATSHTML);
                close(CATSTXT);
            #} else {
	    #    print "$rc for $name \n";
            #}
       }
  }

  close(INDEXHTML);
  if ($rc=system("cp $cat.html $cat.bak")) {
    print "cannot cp to $cat.bak has rc=$rc!\n";
    exit 4;
  }
  if (! open(INDEXHTML, "> $cat.html")) {
    print "cannot open $cat.html!\n";
    exit 6;
  }
  if (! truncate(INDEXHTML, 0)) {
    print "cannot truncate $cat.html!\n";
    exit 7;
  }
  print INDEXHTML "\<html\>\n";
  print INDEXHTML "\<head\>\n";
  print INDEXHTML "\<title\>$cat\<\/title\>\n";
  print INDEXHTML "\<\/head\>\n";
  print INDEXHTML "\<body bgcolor=\"\#ffffff\"\>\n";
  close(INDEXHTML);
  system("cat $cat.bak >>  $cat.html");
  if (! open(INDEXHTML, ">> $cat.html")) {
    print "cannot open $cat.html!\n";
    exit 8;
  }
  print INDEXHTML "\<\/body\>\n";
  print INDEXHTML "\<\/html\>\n";
  close(INDEXHTML);
}
  if ($rc=system("cp cats.html cats.bak")) {
    print "cannot cp to cats.bak has rc=$rc!\n";
    exit 41;
  }
  if (! open(CATSHTML, "> cats.html")) {
    print "cannot open cats.html!\n";
    exit 60;
  }
  if (! truncate(CATSHTML, 0)) {
    print "cannot truncate cats.html!\n";
    exit 70;
  }
  print CATSHTML "\<html\>\n";
  print CATSHTML "\<head\>\n";
  print CATSHTML "\<title\>Cats\<\/title\>\n";
  print CATSHTML "\<\/head\>\n";
  print CATSHTML "\<body bgcolor=\"\#ffffff\"\>\n";
  close(CATSHTML);
  system("sort -u < cats.bak >>  cats.html");
  if (! open(CATSHTML, ">> cats.html")) {
    print "cannot open cats.html!\n";
    exit 8;
  }
  print CATSHTML "\<\/body\>\n";
  print CATSHTML "\<\/html\>\n";
  close(CATSHTML);

exit 0;