#! /usr/local/bin/perl
#Makes list of seas accounts from grade book.  See make-dirs in xx account  for use
require "/w/class.01/cs/cs131/cs131ta/risc/grades/column_names";

$seas=$columns{"seas"};
&readgrades;
pop @grades;
shift @grades;

foreach $stud (@grades) {
  @studs=split (/,/, $stud);
  push @out, $studs[$seas];
}

open (OUT, ">seas.lst") or die "Can't create list: $!\n";
print OUT "@out\n";
close OUT;