#!/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 = `/usr/bin/finger`;
#print $output;

# Get the lines of the output in the array...
@outputArray = split("\n", $output);


$j=0;
#foreach $line (@outputArray) {

#      print "$j: $outputArray[$j] \n";
#      $j++;
#}

#print @outputArray;

my @properties; # Array containing the 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"> Login </FONT> </td> '."\n";
print '<TD WIDTH="50%" BGCOLOR="#0066FF"> <H3 ALIGN="CENTER"><FONT COLOR="white"> Name </FONT> </td> '."\n";
print '<TD WIDTH="50%" BGCOLOR="#0066FF"> <H3 ALIGN="CENTER"><FONT COLOR="white"> TTY </FONT> </td> '."\n";
print '<TD WIDTH="50%" BGCOLOR="#0066FF"> <H3 ALIGN="CENTER"><FONT COLOR="white"> Idle </FONT> </td> '."\n";
print '<TD WIDTH="50%" BGCOLOR="#0066FF"> <H3 ALIGN="CENTER"><FONT COLOR="white"> When </FONT> </td> '."\n";
print '<TD WIDTH="50%" BGCOLOR="#0066FF"> <H3 ALIGN="CENTER"><FONT COLOR="white"> Where </FONT> </td> '."\n";
print '</tr> </center> '."\n";

# Prints the host information collected from the sysinfo command.
warn "Output Length: $outputLength \n";

$i=1;
foreach $line (@outputArray) {

    # substitute "is" followed by more than 2 spaces, by tab.
    $outputArray[$i] =~ /^(\b)\s(\b*)([\*]?pts\/\d)(\b\s\b\s\b)\s*(\b)$/;
    $properties[0] = substr($outputArray[$i],0,8);   #login
    $properties[1] = substr($outputArray[$i],9,20);  #real name
    $properties[2] = substr($outputArray[$i],31,8);  #terminal
    $properties[3] = substr($outputArray[$i],39,8);  #idle
    $properties[4] = substr($outputArray[$i],48,9);  #when
    $properties[5] = substr($outputArray[$i],59,80); #where

    #print $outputArray[$i]."\n";
    #print "\n|$properties[0]|\n";
    #print "|$properties[1]|\n";
    #print "|$properties[2]|\n";
    #print "|$properties[3]|\n";
    #print "|$properties[4]|\n";
    #print "|$properties[5]|\n";


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

    $i++;
}

print "</table> \n";