#!/usr/local/bin/perl

# ListWebber II 1.0.1b
# by Eric Lease Morgan, Infomotions
# http://infomotions.com/musings/list-webber/

# Release notes:
# 04/23/05
#  moved to infomotions.com
# 10/24/96
#  added a root path so file in particular directories can only be read
# 9/14/94
#  made sure user entered their name, address, list, and query
# 8/3/94
#  initial release

# declare your host name
$hostName = "www.lib.ncsu.edu";

# declare the directory where the lists of lists are saved
$listDirectory = "/usr/local/bin/httpd/cgi-bin/lists/";

# what is the URL of your ListWebber perl script?
$lw2Location = "http://www.lib.ncsu.edu/cgi-bin/lw2";

# what is location of your error log?
$errorLog = "/usr/local/logs/listwebber/lw2-error.log";

# what is the location of your normal, everyday listwebber log?
$logFile = "/usr/local/logs/listwebber/lw2.log";

# where is the cgi-lib.pl library so we can read POSTed data
require '/usr/local/bin/httpd/cgi-bin/cgi-lib.pl';

# where is sock.pl, a socket binding library necessary for my SMTP communications
require '/usr/local/bin/httpd/cgi-bin/sock.pl';

sub printFooter {

	# you will want to change the 2nd and 3rd print lines of the following footer
	print "<HR>";
	print "This page is maintained by and please report problems to <A HREF=http://www.lib.ncsu.edu/staff/morgan/>Eric Lease Morgan</A> (<A HREF=/cgi-bin/mail?Eric>eric_morgan\@ncsu.edu</A>). This page was last modified August 3, 1994.<P>";
	print "Go to <A HREF=http://www.lib.ncsu.edu/>library's home page</A>. Go to <A HREF=http://www.ncsu.edu/>NCSU's home page</A>.<P>";
	print "</body>";
	print "</html>";
}

#
# no configuration should be necessary below this line
#

# print the begining of every document
&printHeader;

# make sure a data file is specified
if ($ARGV[0] eq "") {
	
	# no data file was specified
	print "Sorry, but you must specify a data file.";
	&printFooter;
	&gracefulExit;
	}

# read the data file
&readListData;

# read the posted data
&readPostedData;

# display a form or process a query
if ($theFunction eq "") {&displayForm;}
else {

	# verify that a username, address, list and query were entered
	&validateUserName;
	&validateUserAddress;
	&validateList;
	&validateQuery;
	
	&processQuery;
	}

# print the footer
&printFooter;

# exit gracefully 
&gracefulExit;

	
sub gracefulExit {

	# quit gracefully
	exit 0;
	}
	

sub readPostedData {

	# get the input
	&ReadParse;
	foreach $key (keys(%in)) {
  		if ($key eq "theFunction") {$theFunction = $in{$key};}
  		elsif ($key eq "userName") {$userName = $in{$key};}
  		elsif ($key eq "userAddress") {$userAddress = $in{$key};}
  		elsif ($key eq "theList") {
  			#print "the key: $in{$key}<P>";
  			(@theSelectedLists) = split(/\\0/, $in{$key});
  			}
  		elsif ($key eq "theQuery") {$theQuery = $in{$key};}
  		}
	
	# display the input; uncomment the following lines for debuggin' purposes
	#print "name: $userName<P>";
	#print "address: $userAddress<P>";
	#print "lists: $theSelectedList<P>";
	foreach $list (@theSelectedLists) { print "$list<P>";}
	#print "function: $theFunction<P>";
	#print "query: $theQuery<P>";
	#print "<HR>";

}


sub readListData {

	# get ListWebber's list of lists (dataFile)
	$dataFile = $listDirectory . $ARGV[0];
	print "The data file is: $dataFile<P>";

	# open the data file for reading
	open (DATAFILE, $dataFile) || print "Can't open datafile: $!\n";
	
	# load the data into its arrays
	$i = 0;
	while (<DATAFILE>) {
	  ($list, $server, $type) = split(/:/, $_);
	  $list =~ tr/a-z/A-Z/;
	  $server =~ tr/a-z/A-Z/;
	  $type =~ tr/a-z/A-Z/;
	  if (length ($type) > 1) { chop $type; }
	  $theList[$i] = $list;
	  $theServer[$i] = $server;
	  $theType[$i] = $type;
	
	  # again, uncomment the following line to debug your code
	  #print "list: $theList[$i]\n";
	  #print "server: $theServer[$i]\n";
	  #print "type: $theType[$i]\n";
	  #print "\n";
	
	  $i++;
	  }
	
	close DATAFILE;

}


sub displayForm {

	# create the on-the-fly form
	# you should not have to edit this unless you want to create your own online help
	print "<FORM METHOD=\"POST\" ACTION=\"$lw2Location"."?"."$ARGV[0]\">";
	print "What is your name? (<A HREF=http://www.lib.ncsu.edu/staff/morgan/about-listwebber2.html#name>Explain</A>.)<P>";
	print "<inPUT TYPE=\"text\" NAME=\"userName\" SIZE=\"40\" MAXLENGTH=\"40\"><P>";
	print "What is your email address? (<A HREF=http://www.lib.ncsu.edu/staff/morgan/about-listwebber2.html#address>Explain</A>.)<P>";
	print "<inPUT TYPE=\"text\" NAME=\"userAddress\" SIZE=\"40\" MAXLENGTH=\"80\"><P>";
	print "What list do you want to query? You may want to consult <A HREF=http://www.n2h2.com/KOVACS/><CITE>The Directory of Scholarly Electronic Conferences</CITE></A> in order to make your selection. (<A HREF=http://www.lib.ncsu.edu/staff/morgan/about-listwebber2.html#list>Explain</A>.)<P>";
	print "<SELECT NAME=\"theList\" MULTIPLE SIZE=\"5\">";
	$i = -1;
	foreach $list (@theList) {
		$i++;
		if ($theType[$i] eq "V") { $type = "VM";}
		else { $type = "Unix";}
		print "<OPTION>$list ($type)";
		}
	print "</SELECT><P>";
	print "Do you want to search the list or retrieve messages from the list? (<A HREF=http://www.lib.ncsu.edu/staff/morgan/about-listwebber2.html#Search>Explain</A>.)<P>";
	print "<OL>";
	print "<LI><inPUT TYPE=\"radio\" NAME=\"theFunction\" VALUE=\"search\" CHECKED>Search the list";
	print "<LI><inPUT TYPE=\"radio\" NAME=\"theFunction\" VALUE=\"print\">Retrieve messages from the list";
	print "</OL>";
	print "Enter your query. (<A HREF=http://www.lib.ncsu.edu/staff/morgan/about-listwebber2.html#query>Explain</A>.)<P>";
	print "<inPUT TYPE=\"text\" NAME=\"theQuery\" SIZE=\"65\" MAXLENGTH=\"65\"><P>";
	print "Press \"Send the query\" to send your query or \"Reset\" to return the form to its original state.<P>";
	print "<inPUT TYPE=\"submit\" VALUE=\"Send the query\"> <inPUT TYPE=\"reset\" VALUE=\"Reset\"><P>";
	print "</FORM>";
}


sub processQuery {

	# determine the LISTSERV's address
	$i = 0;
	$j = 0;
	foreach $list (@theList) {
		foreach $selectedList (@theSelectedLists) {
			($selectedList) = split(/ /, $selectedList, 0);
			if ($list eq $selectedList) {
				$serverAddress[$j] = $theServer[$i];
				#print "server address: $serverAddress[$j]<P>";
				$serverType[$j] = $theType[$i];
				$j++;
				}
			}
		$i++;
		}
	
	# report to the user what has happened
	print "$userName ($userAddress), you have opted to";
	if ($theFunction eq "search") { print " search the following lists:"; }
	else { print " print from the following lists:"; }
	print "<UL>";
	$i = 0;
	foreach $list (@theSelectedLists) {
		($list) = split(/ /, $list, 0);
		print "<LI>$list\@$serverAddress[$i]";
		$i++;
		}
	print "</UL><P>";
	print "Your query was '$theQuery', and it has been queued for delivery.<P>";
	print "Replies to your query can take anywhere from a few minutes to more than 24 hours. Be patient.";

	# display our footer information
	&printFooter;
	
	# become a daemon, and continue processing the request
	fork && exit 0;
	
	# process each list to query
	for ($i = 0; $i < $j; $i++) {
	
		# get our variables
		$server = $serverAddress[$i];
		($list) = split(/ /, $theSelectedLists[$i]);
		$type = $serverType[$i];
		$smtp = "/tmp/listwebber.smtp-".time;
		#print "<HR>";
		#print "i: $i j: $j<P>";
		#print "server: $server<P>";
		#print "list: $list<P>";
		#print "type: $type<P>";
		#print "temporary file: $smtp<P>";
	
		# determine the type of query to construct
		if ($type eq "V") {
	
			# write the header to our SMTP file
			open (SMTP, ">$smtp") || &errorLog;
			print SMTP "Reply-To: $userAddress\n";
			print SMTP "Subject: *** LISTWebber II Query ***\n";
			print SMTP "From: $userName <$userAddress>\n";
			print SMTP "Return-Path: <$userAddress>\n";
			print SMTP "X-Mailer: LISTWebber II <eric_morgan\@ncsu.edu>\n";
			print SMTP "\n";

			# begin writing the body of a VM-type query
			print SMTP  "//   JOB  Echo=No\n";
			print SMTP  "Database Search DD=Rules\n";
			print SMTP  "//Rules DD   *\n";
		
			# construct the end of the query
			if ($theFunction eq "search") {
				 print SMTP "S $theQuery in $list\n";
				 print SMTP "I\n";
				 print SMTP "/*\n";
				 }
			else {
				print SMTP "search * in $list\n";
				print SMTP "print all of $theQuery\n";
 				print SMTP "/*\n";
	 			}
	 		
			# close the file	
			close (SMTP);
			
			# log the transaction
			&logTransaction;
		
			# send our query to the server
			# replace foo.bar with your email address for debuggin' purposes
			#$theCommand = "/usr/bin/mail foo.bar < $smtp";
			$theCommand = "/usr/lib/sendmail -odq LISTSERV\@$serverAddress[$i] < $smtp";
			system $theCommand;
		
			# remove our temporary file
			system "/bin/rm $smtp";
	 		}
			
	 	elsif ($type eq "U") {
	 		
            # declare some more variables
			$port = "smtp";
			$timeout = 1;

			# open and bind our communications port
            abort;
            $SMTP = &sock'open($hostName,$port) || print "Can't open socket: $!";
            #$output = <$SMTP>;
            #print "$output\n";

			# send HELO
			#print "HELO $hostName\n";
			print $SMTP "HELO $hostName\n";
			#$output = <$SMTP>;
			#print "$output\n";

			# send MAIL
			#print "MAIL FROM: $userAddress\n";
			print $SMTP "MAIL FROM: $userAddress\n";
			#$output = <$SMTP>;
			#print "$output\n";

			# send RCPT
			#print "RCPT TO:<LISTSERV\@$serverAddress[$i]>\n";
			print $SMTP "RCPT TO:<LISTSERV\@$serverAddress[$i]>\n";
			# substitute your address in the next line for debugging purposes
			#print $SMTP "RCPT TO:<Eric\@vega.lib.ncsu.edu>\n";
			#$output = <$SMTP>;
			#print "$output\n";

			# send DATA
			#print "DATA\n";
			print $SMTP "DATA\n";
			#$output = <$SMTP>;
			#print "$output\n";

	 		# begin writing a Unix query
			if ($theFunction eq "search") {
	 			print $SMTP "search $list $theQuery\n";
	 			}
	 		else {
	 			print $SMTP "get $list $theQuery\n";
	 			}
			
			# end the message
			print $SMTP ".\n";
			#$output = <$SMTP>;
			#print "$output\n";

			# send QUIT
			#print "QUIT\n";
			print $SMTP "QUIT\n";
			#$output = <$SMTP>;
			#print "$output\n";

			# log the transaction
			&logTransaction;
		
	 		}
	 	
	 	else {
	 		print "The type of LISTSERV server is of an unknown type: $serverType. ";
	 		print "Call the administrator of this page.";
			&printFooter;
			&gracefulExit;
	 		}
	 			
	}
	&gracefulExit;
}

sub logTransaction {
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    open (LOGFILE, ">>$logFile");
	print LOGFILE "$mon/$mday/$year, $hour:$min:$sec, $userName, $userAddress, $list, $serverAddress[$i], $theQuery\n";
	close (LOGFILE);
}


sub errorLog {
	open (ERRORLOG, ">>$errorLog");
	print ERRORLOG "$!\n";
	close (ERRORLOG);
}


sub printHeader {

	# print the begining of every document
	$| = 1;
	print "Content-type: text/html\n\n";
	print "<HTML>";
	print "<HEAD>";
	print "<TITLE>ListWebber II version 1.0.1b</TITLE>";
	print "</HEAD>";
	print "<BODY>";
	print "<H2>ListWebber II version 1.0.1b</H2>";
	print "<A HREF=http://www.lib.ncsu.edu/staff/morgan/about-listwebber2.html>About</A> ListWebber II by <A HREF=http://www.lib.ncsu.edu/staff/morgan/morgan.html>Eric Lease Morgan</A>, <A HREF=http://www.lib.ncsu.edu/>NCSU Libraries</A>.";
	print "<HR>";
}


sub validateUserName {

	if ($userName eq "") {
	print "Sorry, but you must enter your name. Please try again.<P>";
	&printFooter;
	&gracefulExit;
	}

}


sub validateUserAddress {

	if ($userAddress eq "") {
	print "Sorry, but you must enter your email address. Please try again.<P>";
	&printFooter;
	&gracefulExit;
	}

}


sub validateList {

	if ($theSelectedLists[0] eq "") {
	print "Sorry, but you must select at least one list to search. Please try again.<P>";
	&printFooter;
	&gracefulExit;
	}

}


sub validateQuery {

	if ($theQuery eq "") {
	print "Sorry, but you must enter some sort of query. Please try again.<P>";
	&printFooter;
	&gracefulExit;
	}

}