#!/usr/athena/bin/perl $letters_to_start_at = "ACEIKMORT"; $www_rootdir = "/afs/sipb/project/www/root"; $homepage_file = $www_rootdir . "/Home-byUser.html"; $out_directory = $www_rootdir . "/alpha"; # ************************************************************** # BE CAREFUL!!! THIS NEXT LINE IS WHAT THIS SCRIPT WILL *NUKE* # IF IT WORKS. DO *NOT* SCREW UP HERE. :-) $files_to_unlink = $www_rootdir . "/alpha/*"; # ************************************************************** if (@ARGV) { print STDERR <; # Find the start of the list. If you change the list-type, or # add a list before the list of homepages, you need to modify this # line/block of code to find the first thing before the list of # homepages. until ($bar = =~ /
    /) {print $bar;}; # set the line separator to
  1. . It's easiest this way. :-) $/="
  2. "; # suck the list elements into an array. @h_array=; close(HFILE); # this trims off the trailing HTML from the last element of the array. $h_array[$#h_array] =~ /<\/ol>/; $h_array[$#h_array] = $` ; # Nuke the
  3. 's from the list elements. grep( s/
  4. //, @h_array); grep( s#href="people/#href="../people/#, @h_array); for (@h_array) { # snag the first letter of the linktext $_ =~ />(.).*<\/[Aa]>/ ; $letter = $1; # lowercase it $letter =~ tr/A-Z/a-z/; # find the index, from 0 to 25, of $letter. $n = ord($letter) - ord("a"); # do special stuff if the first character isn't between A and Z. if (($n < 0) || ($n > 25)) { if ($_ =~ /\S/) { $out_array[26] .= "
  5. " . $_; } } else { # just slam it into the output array. $out_array[$n] .= "
  6. " . $_; } } $m = -1; # m stands for my_index . $letters_to_start_at =~ tr/a-z/A-Z/; for($i=0;$i<26;$i++) { $letter = pack("c", $i + ord("A")); if ($letters_to_start_at =~ /$letter/) { ++$m; } $ra[$m] .= $letter; } foreach $range (@ra) { # for($i=0;$i<26;$i++) { if (length($range) < 2) { $range_print = $range; } else { $range_print = substr($range, 0, 1) . "-" . substr($range, -1, 1); } $start_p = ord(substr($range, 0, 1)) - ord("A"); $end_p = ord(substr($range, -1, 1)) - ord("A"); $list_print = join('', @out_array[$start_p..$end_p]); $linecount = ($list_print =~ s/
  7. /
  8. /g); print $range_print, ": ", $linecount, "\n"; if ($list_print) { # if there are elements for that letter $ofile = ">" . $out_directory . "/home-" . $range_print . ".html"; open(OF, $ofile) || die "I can't write to $ofile: $!\n"; $list_of_pages .= "
  9. " . $range_print . "\n"; &sub_header($range_print); print OF $list_print; print OF "
\n"; print OF "\"\""; print OF "Take me back to the full list of homepages\n"; &o_footer(); close(OF) } } $ofile = ">" . $out_directory . "/home-index.html"; open(OF, $ofile) || die "I can't write to $ofile: $!\n"; print OF "\n"; print OF "\n"; print OF "\n"; print OF "Index of MIT-Home-Page Pages\n"; print OF "\n"; print OF "\n"; print OF "\n"; print OF "\n"; print OF "\n"; print OF "

\"\"\n";

\n"; print OF "

Index of MIT-Home-Page Pages

\n"; print OF "\n"; &o_footer(); close(OF); print "Alphabetized homepage list generated.\n"; } else { print ("Couldn't open homepage file. Oops.\n"); } chmod 0644, <${files_to_unlink}>; sub sub_header { local($range) = @_; print OF "\n"; print OF "\n"; print OF "\n"; print OF "MIT Home Pages, $range\n"; print OF "\n"; print OF "\n"; print OF "\n"; print OF "\n"; print OF "\n"; print OF "

\"\"\n";

\n"; print OF "

MIT Home Pages, ", $range, "

\n"; print OF "\nThe usernames are at mit.edu unless they say otherwise.\n"; print OF "\n
\n
    \n"; } sub o_header { print OF <mit.edu unless they say otherwise.

    EOH ; } sub o_footer { print OF < [stuff.mit.edu home page] [personal home pages] [activities and clubs] [gateways and services] [local content] [help resources]

    stuffmaster\@mit.edu
    EOF ; }