#!/usr/bin/perl

##################################
# list of servers to do reports on
##################################
@servers = ('sis4.snap.synapticcorp.com', 'sis8', 'lemon.snap.synaptic
+corp.com');

##################################
# path to file with reports in it
##################################
$file = "/sis4/groups/sisgroup/diskUsage.txt";


my $weekday = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime)[6]] ;
my $dayofmonth = (localtime)[3];

##################################################
# this is because january is 0 and december is 11
my $month = (localtime)[4] + 1;
##################################################
my $monthname = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov
+, Dec)[(localtime)[4]];
my $year = (localtime)[5] + 1900;

open(INPUTFILE, $file) or die "Couldn't open $file: $!\n";
while (defined($line = <INPUTFILE>)) {
        foreach $server (@servers) {
                if ($line =~ m/^$server\s+$weekday\s+$monthname\s+$day
+ofmonth\s+\d{2}:\d{2}:\d{2}\s+EDT\s+$year/) {
                        print "$line\n";
                }
        }
}
[download]