View of /trunk/admintools/export_problem_libraries_from_cvs.pl

    1 #!/usr/bin/perl -w
    2 
    3 use strict;
    4 
    5 ## run this script in a directory that does not contain
    6 ## any files whose names end in ".tar.gz" since this
    7 ## produces one such file for each module below and then
    8 ## at the end
    9 
   10 ## list the repository name and then the module name
   11 my @repository_module = qw(
   12 rochester  rochester_problib
   13 rochester rochester_grade8problems
   14 rochester rochester_physics_problib
   15 asu asu_problib
   16 asu database_problems
   17 dartmouth dartmouth_problib
   18 dcds dcds_problib
   19 indiana indiana_problib
   20 nau nau_problib
   21 ohio-state  osu_problib
   22 sunysb  sunysb_problib
   23 tcnj tcnj_problib
   24 unh unh_highschool_problib
   25 unh unh_problib
   26 union union_problib
   27 );
   28 
   29 my ($repository, $module, @command_args);
   30 my @tar_file_list = ();
   31 
   32 while (@repository_module ) {
   33   $repository = shift @repository_module;
   34   $module = shift @repository_module;
   35   mkdir $module;
   36   @command_args = qq(cvs -q -d :ext:apizer\@devel.webwork.rochester.edu:/webwork/cvs/$repository export -D now -d $module $module);
   37   system (@command_args);
   38   push @tar_file_list, "${module}.tar.gz";
   39   @command_args = qq(tar -czf ${module}.tar.gz $module);
   40   system (@command_args);
   41   @command_args = qq(rm -r $module);
   42   system (@command_args);
   43 }
   44 
   45 @command_args = qq(tar -czf all_problem_libraries.tar.gz @tar_file_list);
   46 system (@command_args);