#!/usr/bin/perl
sub doFile {
my($infile) = @_;
print "\nOpening userfile for $infile with: \n";
open(FILE,"<$infile") or die "Can't open $infile: $!";
@userfile = <FILE>;
if (!($userfile[9] =~ /ALLUP.*/)) { print "Unknown file format!\n";  return 1; }
print $userfile[9];
print $userfile[10];
print $userfile[11];
print $userfile[12];
print $userfile[13];
print $userfile[14];
print $userfile[15];
print $userfile[16];

print "Merging section stats...\n";
my $i = 0;
for ($i=9; $i<17; $i++) {
  my @creds = split(/ /,$userfile[$i]);
  my $totfiles = 0;
  my $totkilos = 0;
  my $totspeed = 0;
  my $counter  = 0;
  foreach my $sec (@creds) {
    if ($counter != 0 && $counter != 13) {
      if (($counter % 3) == 1) {
        $totfiles += $sec;
      }
      if (($counter % 3) == 2) {
        $totkilos += $sec;
      }
      if (($counter % 3) == 0) {
        $totspeed += $sec;
      }
    }
    $counter += 1;
  }
  $userfile[$i] = $creds[0] . " $totfiles $totkilos $totspeed" . "\n";
  print $userfile[$i];
}  
close FILE or die "Can't close $infile: $!";
open(FILE,">$infile") or die "Can't open $infile: $!";
print "Writing userfile...\n";
print FILE @userfile or die "Can't save $infile: $!";
close FILE;
}

my @files = `ls -1 /glftpd/ftp-data/users/`;
foreach $file (@files) {
  chomp($file);
  doFile($file);
}