#!/usr/bin/perl

use CGI;

$q = new CGI;

print $q->header,
	$q->start_html(-title=>'Current Client Configuration',
			-BGCOLOR=>'#ffffde'),
"
<CENTER>
   <IMG src=\"/Images/ClientConfiguration-Title.gif\" width=443 height=70 align=center
	    alt=\"Client Configuration\">
</CENTER>
<p>The following is the current configuration of the client machines
(ie, what OS they're currently booted into).</p>

<table border=1>
 <tr> <th>Machine Number</th> <th>Operating System</th> </tr>
";

foreach (split /\n/, `/usr/local/bin/clientconfig`) {
	my ($num, $os, $machine) = split;
	if ($os eq 'WindowsNT') {
		print "<tr><td> $num </td><td> <img src=\"/icons/win_logo.gif\" width=30 height=25 alt=\"\">$os </td></tr>\n";
	} elsif ($os eq 'Linux') {
		print "<tr><td> $num </td><td> <img src=\"/icons/linux_logo.gif\" width=20 height=25 alt=\"\">$os </td></tr>\n";
	} else {
		print "<tr><td> $num </td><td> $os </td></tr>\n";
	}
}

print "</table>\n".$q->end_html;