View of /branches/rel-2-3-dev/webwork-modperl/lib/RQP.pm

    1 #!/usr/local/bin/perl   -w
    2 
    3 
    4 use SOAP::Lite +trace;
    5 #+trace =>
    6 #[parameters,trace=>sub{ local($|=1); print LOG "start>>",
    7 #WebworkWebservice::pretty_print_rh(\@_ ),"<<stop\n\n"; }];
    8 
    9 
   10 
   11 use WebworkWebservice;
   12 package RQP;
   13 @ISA =   (SOAP::Server::Parameters);
   14 local(*MYLOG);
   15 
   16 use WeBWorK::Utils::Tasks qw(fake_set fake_problem);
   17 use RQP::Render;
   18 
   19 our $WW_DIRECTORY = $WebworkWebservice::WW_DIRECTORY;
   20 our $PG_DIRECTORY = $WebworkWebservice::PG_DIRECTORY;
   21 our $COURSENAME   = $WebworkWebservice::COURSENAME;
   22 our $HOST_NAME    = $WebworkWebservice::HOST_NAME;
   23 our $HOSTURL      ="http://$HOST_NAME:8002"; #FIXME
   24 our $ce           =$WebworkWebservice::SeedCE;
   25 # create a local course environment for some course
   26     $ce           = WeBWorK::CourseEnvironment->new($WW_DIRECTORY, "", "", $COURSENAME);
   27 #print "\$ce = \n", WeBWorK::Utils::pretty_print_rh($ce);
   28 our $db = WeBWorK::DB->new($ce->{dbLayout});
   29 
   30 #print MYLOG "restarting server\n\n";
   31 sub test {
   32   open MYLOG, ">>/home/gage/debug_info.txt" ;
   33   local($|=1);
   34   my $som = pop;
   35   my $self = shift;
   36   my $rh_parameter = $som->method;
   37   #$som->match('/');
   38   #print MYLOG "headers\n", WebworkWebservice::pretty_print_rh($rh_parameter),"\n";
   39   #warn "parameters ", WebworkWebservice::pretty_print_rh($rh_parameter);
   40   #my $params = $som->paramsall();
   41   #warn "params ", join(" ", @{$params});
   42   print MYLOG "body ", WebworkWebservice::pretty_print_rh($som->body);
   43   close(MYLOG);
   44   return "test hi bye";
   45 }
   46 
   47 sub RQP_ServerInformation {
   48   my $class = shift;
   49   my $soap_som = pop;
   50   my $rh_params= $soap_som->method;
   51   local(*DEBUGLOG);
   52     open DEBUGLOG, ">>/home/gage/debug_info.txt" || die "can't open debug file";
   53   print DEBUGLOG "--RQP_ServerInformation\n";
   54 
   55   $rh_out = { 'identifier'       => 'http://www.openwebwork.org',
   56                  'name'            => 'WeBWorK',
   57                  'description'     => 'WeBWorK server.  See http://webwork.math.rochester.edu',
   58                  'cloning'         => 0,
   59                  'implicitCloning' => 1,
   60                  'rendering'       => 1,
   61                  'itemFormats'     => ['pg'],
   62                  'renderFormats'   => ['xml'],
   63                  input            => '<hr>'.WebworkWebservice::pretty_print_rh($rh_params).'<hr>',
   64   };
   65   return $rh_out;
   66 }
   67 
   68 sub RQP_ItemInformation {
   69   my $class = shift;
   70   my $soap_som = pop;
   71   my $rh_params= $soap_som->method;
   72   local(*DEBUGLOG);
   73     open DEBUGLOG, ">>/home/gage/debug_info.txt" || die "can't open debug file";
   74     print DEBUGLOG "--RQP_ItemInformation\n";
   75   my $format = 'HTML';
   76   my $sourceErrors = '';
   77   $rh_out = {
   78       'format'            => $format,
   79        'sourceErrors'       => $sourceErrors,
   80        'template'           => 1,
   81        'adaptive'           => 1,
   82        'timeDependent'      => 0,
   83        'canComputeScore'   => 1,
   84        'solutionAvailable'  => 0,
   85        'hintAvailable'      => 0,
   86        'validationPossible' => 1,
   87        'maxScore'           => 1,
   88        'length'             => 1,
   89        input                => '<hr>'.WebworkWebservice::pretty_print_rh($rh_params).'<hr>',
   90   };
   91   close(DEBUGLOG);
   92   return $rh_out;
   93 }
   94 
   95 sub RQP_ProcessTemplate {
   96 
   97 
   98 }
   99 
  100 sub RQP_Clone  {
  101 
  102 }
  103 sub RQP_SessionInformation {
  104   my $class = shift;
  105   my $soap_som = pop;
  106   my $rh_params= $soap_som->method;
  107   local(*DEBUGLOG);
  108     open DEBUGLOG, ">>/home/gage/debug_info.txt" || die "can't open debug file";
  109   print DEBUGLOG "--RQP_SessionInformation\n";
  110   my $templatevars = $rh_params->{templatevars};
  111   $templatevars->{seed}=4321;
  112   my $correctResponses = [];
  113   $rh_out = {
  114     'outcomevars'      => {id=>45},
  115     'templatevars'     => $templatevars,
  116     'correctResponses' => $correctResponses,
  117     input              => '<hr>'.WebworkWebservice::pretty_print_rh($rh_params).'<hr>',
  118   };
  119   close(DEBUGLOG);
  120   return $rh_out;
  121 }
  122 
  123 
  124 sub RQP_Render  {
  125   RQP::Render::RQP_Render(@_);
  126 
  127 }
  128 
  129 
  130 1;