From hugh@ibc.wustl.edu Tue Dec  6 09:39:47 1994
Return-Path: <hugh@ibc.wustl.edu>
Received: from wugate.wustl.edu by alumni.caltech.edu with SMTP 
	(8.6.4/DEI:4.41) id JAA18552; Tue, 6 Dec 1994 09:39:38 -0800
Received: by wugate.wustl.edu (5.67b/WUSTL-0.3) with SMTP 
	id AA02346; Tue, 6 Dec 1994 11:39:11 -0600
Received: by ibc.WUStL.EDU (8.6.9/SMI-SVR4)
	id KAA07534; Tue, 6 Dec 1994 10:43:58 -0600
Date: Tue, 6 Dec 1994 10:43:58 -0600
From: hugh@ibc.wustl.edu (Hugh Chou)
Message-Id: <199412061643.KAA07534@ibc.WUStL.EDU>
To: dank@alumni.caltech.edu
Subject: re: e-mail web page
X-Sun-Charset: US-ASCII
Status: RO

> 
> cool.  i was thinking of doing a web interface to
> uwho- guess you beat me to it!
> care to share your cgi script?
> - Dan
>

Sure, since I used your utility you can look at my script. I even modified it
a little (I wrote it a while back). Oh thanks for telling me about the bad
link to nexor too.

Hugh

#!/usr/local/bin/perl
$arglist = $ENV{'QUERY_STRING'}; @r = split("&",$arglist); 
$nam = substr(@r[0],4);
$org = substr(@r[1],4);
if (substr($nam,0,4) eq "list" | @ARGV[0] eq "list") {
	@u = `/usr/local/bin/uwho -list`;
  print "Content-type: text/html\n\n";
  print "\n<title>Listing of available servers</title>\n";
  print "<h2>Listing of available servers</h2>\n";
  print "<FORM ACTION=\"//ibc.wustl.edu:80/htbin/uwho\">\n";
  print "<H3>Search for <INPUT TYPE=\"text\" NAME=\"nam\" SIZE=\"20\" >\n";
  print "<INPUT TYPE=\"submit\" VALUE=\"Perform Search\"> .  </h3>\n";
  print "<hr>Select an origanization from below:";
  print "<SELECT NAME=\"org\" SIZE=\"25\" >\n";
  for ($i = 0; $i <= $#u; $i++) { $rec = @u[$i];  $#w = 0;
	@w = split(" ",$rec); $srvr = @w[0]; $orgl = "";
	for ($j = 1; $j<=$#w; $j++) { $orgl = $orgl . " " . @w[$j]; }
	$orgl = substr($orgl,0,60);
	$c = substr($srvr,0,1); 
	if ($c ne ";" & $c ne "-")
	{ print "<OPTION VALUE=\"" . substr($srvr,0,20) . "\">$orgl\n"; }
  }
  print "</SELECT>\n";
  print "</FORM>\n";
}
else
{
	@u = `/usr/local/bin/uwho $nam @ $org`;
  print "\n<title>Results of search for <i> $nam @ $org </i> </title>\n";
  print "<H2>Results of search for <i> $nam @ $org </i> </H2>\n";
  print "<p>The following is the output from the <b>uwho</b> program.\n";
  print "<hr><pre>\n";
  for ($i = 0; $i <= $#u; $i++) { print @u[$i]; }
  print "<hr><a href=\"http://ibc.wustl.edu:80/people.html\">Back</a>\n";
}