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

    1 #!/usr/local/bin/perl
    2 
    3 ## $Id$
    4 
    5 use lib '.'; use webworkInit; # WeBWorKInitLine
    6 use Global;
    7 
    8 # This file is recoverDataSet.pl
    9 
   10   ## Takes two command line arguments.  The first is the course name.  The second
   11         ## command line argument the filename with or without the extension of the bak data file,
   12         ## e.g. s5bak3.   Produces new versions of the corresponding ful and scr files,
   13         ## e.g. s5ful and s5scr.
   14 
   15 if (@ARGV != 2)
   16   {print "\nSyntax is recoverDataSet.pl courseID backUpFile \n";
   17    print "File names are entered with or without the extension, e.g. enter s7bak3 or s7bak3.csv \n";
   18    print "      (e.g. recoverDataSet.pl MTH140A s7bak3 ) \n\n";
   19    exit(0);
   20   }
   21 
   22 
   23 #require "webwork.ph";
   24 #require "${scriptDirectory}$DBglue_pl";
   25 #require "${scriptDirectory}$SCRtools_pl";
   26 #require "${scriptDirectory}FILE.pl";
   27 
   28 
   29 local($courseID,$fileName1)=@ARGV;
   30 
   31 $scriptDirectory   = $Global::scriptDirectory;
   32 &Global::getCourseEnvironment($courseID);
   33 
   34 require "${scriptDirectory}$Global::DBglue_pl";
   35 require "${scriptDirectory}$Global::FILE_pl";
   36 require "${scriptDirectory}$Global::SCRtools_pl";
   37 
   38 $fileName1 =~ s/\.$Global::dat$//;  ## remove dat extension if present
   39 
   40 &recover($fileName1);