View of /trunk/webwork/system/scripts/rebuildProbSetDBfromPSVNlog.pl

    1 #!/usr/local/bin/perl
    2 
    3 
    4 # This file is buildProbSetDBfromPSVNlog.pl
    5 # Call with command arguments of the form:  classID set5.def  classlist.lst psvnlogfile
    6 # This file loads the database from the class list and the set definition
    7 # copyright 1996  WeBWorK  All rights reserved.
    8 ###################################################################
    9 
   10 use lib '.'; use webworkInit; # WeBWorKInitLine
   11 
   12 use Global;
   13 use Auth;
   14 use TimeLocal;
   15 
   16 
   17 #       Seed random number generator
   18 
   19 srand();
   20 
   21 # Check that this program was called with four arguments
   22 if (@ARGV != 3 )
   23         { print "\nsyntax: rebuildProbSetDBromPSVNlog.pl  courseID set4.def psvnLogFileName\n";
   24       print "\nThe psvnLogFiles are located in courseID/logs/\n\n";
   25 
   26       print "E.g. rebuildProbSetDBfromPSVNlog.pl MTH140A set4.def  MTH140A_set:4_bak1.psvnlog\n\n";
   27           exit (0);
   28         }
   29 else  {
   30     $classID = $ARGV[0];
   31       $setDefFilename = $ARGV[1];
   32 #        $classlistFilename = $ARGV[2];
   33     $logFileName = $ARGV[2];
   34     }
   35 
   36 ### $method ='readFromLogFile' or 'createNewPSVNs'
   37 #$logFileName = "sampleCourse_set:3_bak3.psvnlog";
   38 
   39 $method = 'readFromLogFile';
   40 
   41 
   42 $scriptDirectory   = $Global::scriptDirectory;
   43 require "${scriptDirectory}$Global::buildProbSetTools";
   44 
   45 #my $message = &buildProbSetDB($classID,$setDefFilename,$classlistFilename,$method,$logFileName);
   46 my $message = &buildProbSetDB($classID,$setDefFilename,$method,$logFileName);
   47 print $message;