#!/usr/bin/perl
sub doFile {
my($infile) = @_;
print "Opening userfile for $infile with ";
open(FILE,"<$infile") or die "Can't open $infile: $!";
@userfile = <FILE>;
if (!($userfile[7] =~ /CREDIT.*/)) { print "Unknown file format!\n";  return 1; }
print $userfile[7];
my @creds = split(/ /,$userfile[7]);
my $total = 0;
print "Merging section credits...";
foreach my $sec (@creds) {
  if ($sec > 0) {
    $total += $sec;
  }
}
$userfile[7] = "CREDITS " . $total . "\n";
print $userfile[7];
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);
}