#!/usr/local/bin/perl

require "/w/class.01/cs/cs131/cs131ta/risc/grades/column_names";
$col=&convert_col ($ARGV[0]);

unless ($col >0) {
  print "Syntax \n";
  exit;
}

open (GRADES, "grades.csv") or die "Can't open grades: $!\n";
@grades=<GRADES>;
close GRADES;
shift @grades;
pop @grades;

foreach $student (@grades) {
  @studs=split (/,/, $student);
  $seas=$studs[$columns{"seas"}];
  if ($seas !~ m:\w+:) {
    print "No email address for $student";
    next;
  }
  if ($seas =~ m:^gg_:) {
    print "Bad email account $seas for $student";
    next;
  }
  $name=$studs[$columns{"fname"}] . ' ' .  $studs[$columns{"lname"}];
  $studs[$col]||="0";
#  push @commands, '/usr/lib/sendmail -f "fmarshal@cs.ucla.edu"'," $seas\@seas.ucla.edu  < $file";
  push @commands, "echo \"$name,\n  In CS131, your grade on $ARGV[0] was $studs[$col]\n\" | mail $seas\@seas.ucla.edu\n";
  push @commands, "sleep 2\n";
}


#echo "Hello" | mail fmarshal@cs.ucla.edu
#print "@commands";
system ("@commands");