#!/usr/bin/perl -w
use strict;
#
#  This script was used to make pages by people.
#  With some commands like ...
#    mkdir rawPeople
#    preformat | grep -e Mike -e mike >rawPeople/MikeVallaly.html
#    preformat | grep Rick >rawPeople/RickDean.html
#    ./makePeople
#
#  The crazy "<!--#include" stuff is server side includes.
#  You should enable this in your apache server.  I also
#  enabled XBitHack so I didn't have to change the extension
#  to .shtml
#
#  Perl is so perfect for these kinds of scripts.
#

my @pages = glob("rawPeople/*.html");

for my $page (@pages) {
   $page =~ s/rawPeople\///;
   open(FOO,">$page");
   print FOO "<!--#include file=\"head.htm\" -->\n";
   my $name = $page;
   $name =~ s/.html$//;
   $name =~ s/^(..*?)([A-Z].*)$/$1 $2/;
   print FOO "<h2>$name</h2>\n";
   open(FOO2,"<rawPeople/$page");
   my $x;
   read(FOO2,$x,100000);
   print FOO "$x\n";
   close(FOO2);
   print FOO "<p>\n";
   print FOO "<!--#include file=\"foot.htm\"-->\n";
   close(FOO);
   `chmod a+x $page`;
};