#!/usr/bin/perl $t = 'Abbitt Family'; if (! chdir("/home/httpd/technologists/html/photos")) { print "cannot open chdir to photos!\n"; exit 1; } if (! open(PHOTOSINDEXHTM, " AbbittFamily.html")) { print "cannot open AbbittFamily.html!\n"; exit 3; } if (! open(INDEXTXT, "> AbbittFamily.txt")) { print "cannot open AbbittFamily.txt!\n"; exit 4; } else { print INDEXTXT "$t Photo Index:\n"; } $count = 0; while ( $line = ) { if ($line !~ /^\

$line =~ s,^\,,; $name = $1; $line =~ s,\ AbbittFamily.html")) { print "cannot open AbbittFamily.html!\n"; exit 6; } if (! truncate(INDEXHTML, 0)) { print "cannot truncate AbbittFamily.html!\n"; exit 7; } print INDEXHTML "\\n"; print INDEXHTML "\\n"; print INDEXHTML "\$t\<\/title\>\n"; print INDEXHTML "\<\/head\>\n"; print INDEXHTML "\\n"; close(INDEXHTML); system("cat AbbittFamily.bak >> AbbittFamily.html"); if (! open(INDEXHTML, ">> AbbittFamily.html")) { print "cannot open AbbittFamily.html!\n"; exit 8; } print INDEXHTML "\<\/body\>\n"; print INDEXHTML "\<\/html\>\n"; close(INDEXHTML); exit 0; Capitol.jpg CocoHouse.jpg Recital.jpg