ArchiveSetsAsDefFiles

#!/usr/bin/perl

# archiveSetsAsDefFiles 
# Archives all problem sets as def files  
# Author: Nandor Sieben  


sub mysql {
my ($sql) = @_;
qx[mysql -s -u webworkWrite --host=mysql.school.edu -pmypassword webwork << EOF 
$sql 
quit 
EOF
];
}

`mkdir def_files`;
@courses= mysql(q[show tables like '%_set';]);

for $course (@courses) {
  $course =~ s/_set.*\n//;
  next if $course =~ /admin/;
  next if $course =~ /problem_library/;
  print "$course\n";
  `mkdir def_files/$course`;
  @sets=mysql(qq[select set_id from $course\_set;]);
  for $set (@sets) {
#    print "$set"; 
    chop $set;
    open F, ">def_files/$course/set$set.def";
    $problems=mysql(qq[select source_file, value, max_attempts from $course\_problem WHERE  set_id = '$set' ;]);
    $problems =~ s/\t/,\t/g;
    print F " 
openDate          = 01/01/2011 at 01:00am MST 
dueDate           = 01/01/2011 at 01:00am MST 
answerDate        = 01/01/2011 at 01:00am MST 
paperHeaderFile   = 
screenHeaderFile  = 
problemList       =  
";
    print F $problems;
    close F;
  }
}