#!/afs/athena/contrib/perl/p

require 'analyze.pl';
require 'url.pl';
$| = 1; $debug = 0;


$homepages =  ("http://www.mit.edu:8001/home-pages.html");
($homehead, $homebody) = &get_url("GET", $homepages);
($inst, $webm, $alpha, @home_pages) = &get_links($homebody);

mkdir("/tmp/peoplepages", 0777);
for $page (@home_pages) {
    ($null, $people, $username, $path) = split(/\//, $page);
    next if $page!~/people/;
    print("getting $username... ");
    ($head, $body) = &get_url("GET", &url'ConstructURL($homepages, $page));
    print("done.\n");

    open(F, ">>/tmp/peoplepages/$username".".html");
    print(F $body);
    close(F);

}