A perl script to archive every problem set of every course as a def file.
This might be useful for transferring courses between servers.
The script creates a def_files subdirectory containing a directory
for each course with def files. You need to edit "mysql.school.edu"
and "mypassword".
#!/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;
}
}