#!/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;

# Removes the white spaces before and after a string
sub alltrim {
    $parameter = shift;

    $parameter =~ s/^\s*//; # ltrim
    $parameter =~ s/\s*$//; # rtrim
    return $parameter
}


my @output;
my $outputLength;

$output = `/usr/bin/df`;
#print $output;

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

#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"> Mount Point </FONT> </td> '."\n";
print '<TD WIDTH=\"50%" BGCOLOR="#0066FF"> <H3 ALIGN="CENTER"><FONT COLOR="white"> Remote Dir </FONT> </td> '."\n";
print '<TD WIDTH=\"50%" BGCOLOR="#0066FF"> <H3 ALIGN="CENTER"><FONT COLOR="white"> Blocks </FONT> </td> '."\n";
print '<TD WIDTH=\"50%" BGCOLOR="#0066FF"> <H3 ALIGN="CENTER"><FONT COLOR="white"> Files </FONT> </td> '."\n";
print "</tr> </center> \n";

my $i=0;
foreach $line (@outputArray) {

    # substitute "is" followed by more than 2 spaces, by tab.
    my @properties;

    #print $outputArray[$i]."\n";
    @splittedArray = split( /\(/, $outputArray[$i]);
    $properties[0] = alltrim ($splittedArray[0]); #mount point

    @splittedArray = split (/\):/,$splittedArray[1]);
    $properties[1] = alltrim ($splittedArray[0]); #remote dir

    @splittedArray = split (/blocks/,$splittedArray[1]);
    $properties[2] = alltrim ($splittedArray[0]); #blocks

    @splittedArray = split (/files/,$splittedArray[1]);
    $properties[3] = alltrim ($splittedArray[0]); #files

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

    $i++;
}

print "</table> \n";