#!/usr/bin/perl
# ICS 243d - Internet Technology
# Spring Quarter 2001
# Roberto Silveira Silva Filho ID# 85849631
# Administration data collector - Server side.
# Final project
#
# ----------------------------------------------------------

local $/=CRLF;

my @output;
my $outputLength;

$output = `sysinfo`;

@outputArray = split("\n", $output);

#foreach $word (@outputArray) {
#  print " word = $word \n";
#}

#print " \n\n\n";


my $beginproperties = 4;
my $endproperties = 20;
my @properties;


print '<TABLE BORDER="0" CELLPADDING="5" CELLSPACING="2" WIDTH="100%" BGCOLOR="silver">'."\n" ;
print "<tr> <center> \n";
print '<TD WIDTH=\"50%" BGCOLOR="#0066FF"> <H3 ALIGN="CENTER"><FONT COLOR="white"> Property </FONT> </td> '."\n";
print '<TD WIDTH=\"50%" BGCOLOR="#0066FF"> <H3 ALIGN="CENTER"><FONT COLOR="white"> Value </FONT> </td> '."\n";
print "</tr> </center> \n";

# Prints the host information collected from the sysinfo command.
for ($i=$beginproperties; $i<$endproperties; $i++) {

  # substitute "is" followed by more than 2 spaces, by tab.
  $outputArray[$i] =~ s/is \s{2,100}/\t/;

  @properties = split("\t",$outputArray[$i]);

  print "<tr> ";
  print "<td> $properties[0] </td> ";
  print "<td> $properties[1] </td> ";
  print "</tr> \n";

}

print "</table> \n";