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

    1 #!/usr/local/bin/webwork-perl
    2 
    3 ## $Id$
    4 
    5 # This file is getAllProbSetKeysForSet.pl
    6 #
    7 # It is called from a form with inputs  'course' and 'set number'
    8 # #############################################################
    9 # Copyright @1996 by Michael E. Gage and WeBWorK.  All rights reserved.
   10 # #############################################################
   11 
   12 use lib '.'; use webworkInit; # WeBWorKInitLine
   13 use Global;
   14 use Auth;
   15 
   16 
   17 # get information from command line arguments
   18   $Option = shift(@ARGV);
   19   $Course = shift(@ARGV);
   20 
   21   unless ($Option && $Course && @ARGV > 0) {
   22     die "Syntax: getData.pl  -[s][l][ls] courseID [setNumber][LoginName][loginName and setNumber]   (returns list of psvn)\n",
   23          "  The option must be specified.";
   24 
   25     }
   26 
   27 # establish environment for this script
   28   &Global::getCourseEnvironment($Course);
   29 
   30 # Directory paths
   31   $databaseDirectory = $Global::databaseDirectory;
   32   $htmlURL       = $Global::htmlURL;
   33   $scriptDirectory   = $Global::scriptDirectory;
   34   $templateDirectory = $Global::templateDirectory;
   35 
   36 # File names
   37 
   38 
   39   require "${scriptDirectory}$Global::DBglue_pl";
   40   require "${scriptDirectory}$Global::HTMLglue_pl";
   41   require "${scriptDirectory}$Global::FILE_pl";
   42 if ($Option eq '-s') {
   43   $setNumber = shift(@ARGV);
   44     my @out = &getAllProbSetKeysForSet($setNumber);
   45     print "@out";
   46   }
   47 elsif ($Option eq '-l'){
   48   $studentLogin = shift(@ARGV);
   49   %psvnHash =&getAllSetNumbersForStudentLoginHash($studentLogin);
   50   @setNumbers = keys %psvnHash;
   51   for $i (sort {$a<=>$b} @setNumbers) {
   52     print $psvnHash{$i}," ";
   53     }
   54   }
   55 elsif ($Option eq '-ls'){
   56   $studentLogin   = shift(@ARGV);
   57   $setNumber    = shift(@ARGV);
   58   %psvnHash     =&getAllSetNumbersForStudentLoginHash($studentLogin);
   59   print $psvnHash{$setNumber}," ";
   60 
   61   }
   62 else {
   63   print "Unknown option $Option\n",
   64         "Legal options:   \n"  ,
   65         "-s  courseID setNumber prints all psvns for setNumber\n",
   66         "-l  courseID studentLogin prints all psvns for studentLogin\n",
   67         "-ls courseID studentLogin setNumber prints psvn for setNumber for studentLogin\n";
   68    }
   69 
   70   exit(0);
   71 
   72 
   73 
   74 
   75