[BACK]Return to lond CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/lond between versions 1.525 and 1.528

version 1.525, 2016/09/12 20:20:44 version 1.528, 2016/09/21 05:39:53
Line 267  my %trust = ( Line 267  my %trust = (
                restore => {remote => 1, enroll => 1, reqcrs => 1,},                 restore => {remote => 1, enroll => 1, reqcrs => 1,},
                rolesdel => {remote => 1, enroll => 1, domroles => 1, coaurem => 1},                 rolesdel => {remote => 1, enroll => 1, domroles => 1, coaurem => 1},
                rolesput => {remote => 1, enroll => 1, domroles => 1, coaurem => 1},                 rolesput => {remote => 1, enroll => 1, domroles => 1, coaurem => 1},
                serverdistarch => {manageronly => 1},                 servercerts => {institutiononly => 1},
                  serverdistarch => {anywhere => 1},
                serverhomeID => {anywhere => 1},                 serverhomeID => {anywhere => 1},
                serverloncaparev => {anywhere => 1},                 serverloncaparev => {anywhere => 1},
                servertimezone => {remote => 1, enroll => 1},                 servertimezone => {remote => 1, enroll => 1},
Line 5667  sub auto_export_grades_handler { Line 5668  sub auto_export_grades_handler {
 #    $cmd      - The command that got us dispatched.  #    $cmd      - The command that got us dispatched.
 #    $tail     - The tail of the command.  In our case this is a colon   #    $tail     - The tail of the command.  In our case this is a colon 
 #                separated list that will be split into:  #                separated list that will be split into:
 #                $filename - The name of the file to remove.  #                $filename - The name of the file to retrieve.
 #                            The filename is given as a path relative to  #                            The filename is given as a path relative to
 #                            the LonCAPA temp file directory.  #                            the LonCAPA temp file directory.
 #    $client   - Socket open on the client.  #    $client   - Socket open on the client.
Line 5684  sub retrieve_auto_file_handler { Line 5685  sub retrieve_auto_file_handler {
   
     if ($filename =~m{/\.\./}) {      if ($filename =~m{/\.\./}) {
         &Failure($client, "refused\n", $userinput);          &Failure($client, "refused\n", $userinput);
       } elsif ($filename !~ /^$LONCAPA::match_domain\_$LONCAPA::match_courseid\_.+_classlist\.xml$/) {
           &Failure($client, "refused\n", $userinput);
     } elsif ( (-e $source) && ($filename ne '') ) {      } elsif ( (-e $source) && ($filename ne '') ) {
  my $reply = '';   my $reply = '';
  if (open(my $fh,$source)) {   if (open(my $fh,$source)) {
Removed from v.1.525  
changed lines
  Added in v.1.528

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>