version 1.525, 2016/09/12 20:20:44
|
version 1.527, 2016/09/20 23:50:09
|
Line 268 my %trust = (
|
Line 268 my %trust = (
|
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}, |
serverdistarch => {manageronly => 1}, |
|
servercerts => {institutiononly => 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)) { |