#!/usr/bin/env perl

## $Id$

BEGIN {
	my $useLibDir = '.';
	if    ($0 =~ m|^(/.*)/|)  { $useLibDir = $1; }
	elsif ($0 =~ m|^(\..*)/|) { $useLibDir = $1; }
	elsif ($0 =~ m|^(.+)/|)   { $useLibDir = "./$1"; }
	unshift @INC, $useLibDir;
}

use webworkInit; # WeBWorKInitLine
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);