#!/usr/local/bin/perl
#
#	Who's on the machine at this time ?
#
#
$version="1.00b";
# (c) 1998 Emmanuel PIERRE
#          epierre@e-nef.com
#          http://www.e-nef.com/users/Emmanuel.PIERRE
#

# Some default variables:

local ($tab);
print "Content-type: text/html\n\n";
$txt .= "<TABLE border=1 width=100% cellpadding=5 cellspacing=3>\n";
$txt .= "<tr>\n\t<th width=40%>Name</th>\n\t<th width=15%>Date</th>\n\t<th width=8%>Heure</th>\n\t<th width=8%>Idle</th>\n\t<th width=30%>Action</th>\n</tr>\n";

($fic = open(RWHOD,"/usr/bin/rwho |")) or die "ERR: $!";
(kill 0,$fic) or die "rwho invocation failed";

while ($lec=<RWHOD>) {
	
#print "-->$lec";	

	chomp($lec);

	($nom, $hote, $tty, $month, $day, $hour, $idletime) = ($lec =~ m/(\S+)\s+(\S+)\:(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s*(.*)/s);

#print "->$nom<BR>\n";	
	
	if ($nom ne "") {
		if (! grep(/$nom/,@tab)) {
			push(@tab, "$nom $hote $tty $month $day $hour $idletime");
#			print "$_<br>\n";
		}
	}
}

close(FICHIER);
$txt .= "\t<FORM action=\"xmessage.cgi\" method=\"post\">\n";
foreach $rec (@tab) {
	$_ = $rec;
#print "->$_<br>\n";

	($nom, $hote, $tty, $month, $day, $hour, $idletime) = split(/ /, $rec);
	if ($nom ne "") {
		$txt .= "\t<TR><TD>$nom\@$hote</TD><TD>$day $month 97</TD><TD>$hour</TD><TD>$idletime</TD>";
		$txt .= "<TD align=middle valign=middle>";
		$txt .= "<input type=\"radio\" name=\"msg\" value=\"$name\">";
		$txt .= "</TD></TR>\n";
	}
}
#$txt .= "\t</FORM>\n";
$txt .= "</TABLE>\n";
$table .="<BR><TABLE>\n";
$table .="\t<TR><TD>adresse E-mail:</TD><TD><input type=text name=\"address\"></TD></TR>\n\t<TR><TD>votre vrai nom:</TD><TD><input type=text name=\"name\"></TD></TR>\n";
$table .= "</TABLE>\n";
$table .= "<p>Message:<br>\n\t<textarea name=\"comment\" cols=80 rows=10></textarea><p>\n<input type=submit value=\"Envoyer\"> votre message ou <input type=reset value=\"Recommencer\">\n";
$table .= "</form>\n\n";

if (($#tab)>-1) {
	print $txt;
	print $table;
}
else {
	print " Il n'y a personne en ce moment ...<BR><BR>";	
	print " Mais vous pouvez nous laisser un message !<BR><BR>";	
	print "\t<FORM action=\"comment.cgi\" method=\"post\">\n";
	print $table;
	
}

exit;