#! /usr/bin/perl
#$seas is a variable whose value is cut/pasted  from make-seas-list output  in ta account
#When submit creates directories, they aren't writable by  us until the next day
#This script creates the directories ahead of time

$seas="agourian kyaw mirza serge dmitriy classcbe ivanc chanb changj cheng markc chio junho marina
chuangp tingkwan rosemarc covarrub angel paulino quiros donigian kiad thomas fane guy gribble
rishig harms stephenh huntt ito navin erion kaoa lamc jeep hail kang jessel lei bosco levchenk
jamesli chilun wanyu freddy minevich devinder dennisn noori hyduke oey san ooi pacas choongki pat
perez ciprian pingel elizabet randeep payam chienan strongr suyu tannady yusuf van vaynshte
xiaoxiao christiw wongp songxin chiungye jun yung classcyu cuichang dixin";

@seas=split (/\s+/, $seas);
$home ="/w/class.01/cs/cs131/cs131xx/risc";
push @commands, "cd $home\n";
foreach $s (@seas) {
  next if (-d "$home/$s"); 
  push @commands, "mkdir $s\nchmod 775  $s\n";
}

#print "@commands\n";
system ("@commands");