loncom/lond - diff - 1.489.2.24

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.489.2.23, 2016/09/24 19:16:57	version 1.489.2.24, 2016/09/24 19:44:15
Line 5463 sub auto_export_grades_handler {	Line 5463 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 5479 sub retrieve_auto_file_handler {	Line 5479 sub retrieve_auto_file_handler {
my $source = $perlvar{'lonDaemons'}.'/tmp/'.$filename;	my $source = $perlvar{'lonDaemons'}.'/tmp/'.$filename;
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)) {