#!/usr/local/bin/perl

## $Id$

use lib '/ww/webwork/gage_system/webwork/system/lib/'; # mainWeBWorKDirectory
use Global;

# This file is recoverDataSet.pl

	## Takes two command line arguments.  The first is the course name.  The second
        ## command line argument the filename with or without the extension of the bak data file,
        ## e.g. s5bak3.   Produces new versions of the corresponding ful and scr files,
        ## e.g. s5ful and s5scr.

if (@ARGV != 2)
  {print "\nSyntax is recoverDataSet.pl courseID backUpFile \n";
   print "File names are entered with or without the extension, e.g. enter s7bak3 or s7bak3.csv \n";
   print "      (e.g. recoverDataSet.pl MTH140A s7bak3 ) \n\n";
   exit(0);
  }


#require "webwork.ph";
#require "${scriptDirectory}$DBglue_pl";
#require "${scriptDirectory}$SCRtools_pl";
#require "${scriptDirectory}FILE.pl";


local($courseID,$fileName1)=@ARGV;

$scriptDirectory   = $Global::scriptDirectory;
&Global::getCourseEnvironment($courseID);

require "${scriptDirectory}$Global::DBglue_pl";
require "${scriptDirectory}$Global::FILE_pl";
require "${scriptDirectory}$Global::SCRtools_pl";

$fileName1 =~ s/\.$Global::dat$//;  ## remove dat extension if present

&recover($fileName1);