#!/usr/athena/bin/perl

# Email Sorting Script  -  written by twm@mit.edu
#
# Overview - Requires:  generate_brothers <headers> <directory>
#    "headers" is a file where each line is in the format:
#    <username> <search1>|<search2>|...|<search-n>
#    Username is the username of a brother, and a header file
#    entitled <username>.html must exist.
#  Effects - Searches through all the files in "directory"
#    for all the occurances of search1, search2,... search-n,
#    takes the subject headings from each file in which these
#    search strings occur, converts these to hmtl links, and appends them
#    to the contents of <username>.html storing the results in
#    a file called <username>-pl.html   The search is done using egrep
#    and the username is also used in the search.

$ARGC = @ARGV;
$headers = $ARGV[0];
$directory = $ARGV[1];
open(HEADERS, $headers);
@brothers = <HEADERS>;
$brothers = @brothers;
$counter = 0;
while ($counter < $brothers) {
	$brother = $brothers[$counter];
	$cut = index($brother, " ");
	$name = substr($brother, 0, $cut);
	$search = substr($brother, $cut+1);
	chop($search);
	$cmnd = join("", "egrep -l '", $name, "|", $search, "' ", $directory, "/* > /tmp/stuff");
	print "\n\n", $name, "\n", $cmnd;
	system $cmnd;
	open(STUFF, "/tmp/stuff");
	@refs = <STUFF>;
	$refs = @refs;
	$count2 = 0;
	system join("", "cp ", $name, ".html ", $name, "-pl.html");
	open (BRO, join("", ">>", $name, "-pl.html"));
	write(BRO);
	print(BRO join("", "\n\n<hr>\n\n<h2>Archived email to plp and jolly-laddies which reference ", $name, "</h2>\n"));
	print(BRO "\n<ul>\n");
	while ($count2 < $refs) {
		$f = $refs[$count2];
		chop($f);
		$cmnd1 = join("", "egrep '^<em>Subject' ", $f," |");
		open(PIPER, $cmnd1);
		@subject = <PIPER>;
		$subject = pop(@subject);
		$cmnd2 = join("", "egrep '^<em>From' ", $f," |");
		open(PIPER, $cmnd2);
		@author = <PIPER>;
		$author = pop(@author);
		$cmnd3 = join("", "egrep '^<em>Date' ", $f," |");
		open(PIPER, $cmnd3);
		@thedate = <PIPER>;
		$thedate = pop(@thedate);
		$link = join("", "<li><a href=", $f, ">\n", "Mail ", $subject, "</a><br>\n", $author, "<br>\n", $thedate, "\n");
		print(BRO $link);
		$count2 = $count2 + 1;
		};
	close(PIPER);
	print(BRO "</ul>\n\n");
	print(BRO "<hr>\nMaintained by <a href=file://localhost/afs/athena.mit.edu/user/t/w/twm/www/mail-me.html><i>twm@mit.edu</i></a>\n");
	close(BRO);
	$counter = $counter + 1;
	};