version 1.246, 2004/09/02 09:27:58
|
version 1.250, 2004/09/07 14:28:30
|
Line 1306 sub du_handler {
|
Line 1306 sub du_handler {
|
&Failure($client,"refused\n","$cmd:$ududir"); |
&Failure($client,"refused\n","$cmd:$ududir"); |
return 1; |
return 1; |
} |
} |
my $duout = `du -ks $ududir 2>/dev/null`; |
# Since $ududir could have some nasties in it, |
$duout=~s/[^\d]//g; #preserve only the numbers |
# we will require that ududir is a valid |
&Reply($client,"$duout\n","$cmd:$ududir"); |
# directory. Just in case someone tries to |
|
# slip us a line like .;(cd /home/httpd rm -rf*) |
|
# etc. |
|
# |
|
if (-d $ududir) { |
|
# And as Shakespeare would say to make |
|
# assurance double sure, quote the $ududir |
|
# This is in case someone manages to first |
|
# e.g. fabricate a valid directory with a ';' |
|
# in it. Quoting the dir will help |
|
# keep $ududir completely interpreted as a |
|
# directory. |
|
# |
|
my $duout = `du -ks "$ududir" 2>/dev/null`; |
|
$duout=~s/[^\d]//g; #preserve only the numbers |
|
&Reply($client,"$duout\n","$cmd:$ududir"); |
|
} else { |
|
&Failure($client, "bad_directory:$ududir","$cmd:$ududir"); |
|
} |
return 1; |
return 1; |
} |
} |
®ister_handler("du", \&du_handler, 0, 1, 0); |
®ister_handler("du", \&du_handler, 0, 1, 0); |
Line 1370 sub ls_handler {
|
Line 1388 sub ls_handler {
|
$ulsout='no_such_dir'; |
$ulsout='no_such_dir'; |
} |
} |
if ($ulsout eq '') { $ulsout='empty'; } |
if ($ulsout eq '') { $ulsout='empty'; } |
print $client "$ulsout\n"; |
&Reply($client, "$ulsout\n", $userinput); # This supports debug logging. |
|
|
return 1; |
return 1; |
|
|
Line 3457 sub set_virtual_host_handler {
|
Line 3475 sub set_virtual_host_handler {
|
|
|
return 1; |
return 1; |
} |
} |
®ister_handler("sethost", \&select_virtual_host_handler, 0, 1, 0); |
®ister_handler("sethost", \&set_virtual_host_handler, 0, 1, 0); |
|
|
# Process a request to exit: |
# Process a request to exit: |
# - "bye" is sent to the client. |
# - "bye" is sent to the client. |
Line 3482 sub exit_handler {
|
Line 3500 sub exit_handler {
|
|
|
return 0; |
return 0; |
} |
} |
®ister_handler("exit", \&exit_handler, 0,,1); |
®ister_handler("exit", \&exit_handler, 0,1,1); |
®ister_handler("init", \&exit_handler, 0,,1); |
®ister_handler("init", \&exit_handler, 0,1,1); |
®ister_handler("quit", \&exit_handler, 0,,1); |
®ister_handler("quit", \&exit_handler, 0,1,1); |
|
|
|
# Determine if auto-enrollment is enabled. |
|
# Note that the original had what I believe to be a defect. |
|
# The original returned 0 if the requestor was not a registerd client. |
|
# It should return "refused". |
|
# Formal Parameters: |
|
# $cmd - The command that invoked us. |
|
# $tail - The tail of the command (Extra command parameters. |
|
# $client - The socket open on the client that issued the request. |
|
# Returns: |
|
# 1 - Indicating processing should continue. |
|
# |
|
sub enrollment_enabled_handler { |
|
my ($cmd, $tail, $client) = @_; |
|
my $userinput = $cmd.":".$tail; # For logging purposes. |
|
|
|
|
|
my $cdom = split(/:/, $tail); # Domain we're asking about. |
|
my $outcome = &localenroll::run($cdom); |
|
&Reply($client, "$outcome\n", $userinput); |
|
|
|
return 1; |
|
} |
|
®ister_handler("autorun", \&enrollment_enabled_handler, 0, 1, 0); |
|
|
|
# Get the official sections for which auto-enrollment is possible. |
|
# Since the admin people won't know about 'unofficial sections' |
|
# we cannot auto-enroll on them. |
|
# Formal Parameters: |
|
# $cmd - The command request that got us dispatched here. |
|
# $tail - The remainder of the request. In our case this |
|
# will be split into: |
|
# $coursecode - The course name from the admin point of view. |
|
# $cdom - The course's domain(?). |
|
# $client - Socket open on the client. |
|
# Returns: |
|
# 1 - Indiciting processing should continue. |
|
# |
|
sub get_sections_handler { |
|
my ($cmd, $tail, $client) = @_; |
|
my $userinput = "$cmd:$tail"; |
|
|
|
my ($coursecode, $cdom) = split(/:/, $tail); |
|
my @secs = &localenroll::get_sections($coursecode,$cdom); |
|
my $seclist = &escape(join(':',@secs)); |
|
|
|
&Reply($client, "$seclist\n", $userinput); |
|
|
|
|
|
return 1; |
|
} |
|
®ister_handler("autogetsections", \&get_sections_handler, 0, 1, 0); |
|
|
|
# Validate the owner of a new course section. |
|
# |
|
# Formal Parameters: |
|
# $cmd - Command that got us dispatched. |
|
# $tail - the remainder of the command. For us this consists of a |
|
# colon separated string containing: |
|
# $inst - Course Id from the institutions point of view. |
|
# $owner - Proposed owner of the course. |
|
# $cdom - Domain of the course (from the institutions |
|
# point of view?).. |
|
# $client - Socket open on the client. |
|
# |
|
# Returns: |
|
# 1 - Processing should continue. |
|
# |
|
sub validate_course_owner_handler { |
|
my ($cmd, $tail, $client) = @_; |
|
my $userinput = "$cmd:$tail"; |
|
my ($inst_course_id, $owner, $cdom) = split(/:/, $tail); |
|
|
|
my $outcome = &localenroll::new_course($inst_course_id,$owner,$cdom); |
|
&Reply($client, "$outcome\n", $userinput); |
|
|
|
|
|
|
|
return 1; |
|
} |
|
®ister_handler("autonewcourse", \&validate_course_owner_handler, 0, 1, 0); |
|
# |
|
# Validate a course section in the official schedule of classes |
|
# from the institutions point of view (part of autoenrollment). |
|
# |
|
# Formal Parameters: |
|
# $cmd - The command request that got us dispatched. |
|
# $tail - The tail of the command. In this case, |
|
# this is a colon separated set of words that will be split |
|
# into: |
|
# $inst_course_id - The course/section id from the |
|
# institutions point of view. |
|
# $cdom - The domain from the institutions |
|
# point of view. |
|
# $client - Socket open on the client. |
|
# Returns: |
|
# 1 - Indicating processing should continue. |
|
# |
|
sub validate_course_section_handler { |
|
my ($cmd, $tail, $client) = @_; |
|
my $userinput = "$cmd:$tail"; |
|
my ($inst_course_id, $cdom) = split(/:/, $tail); |
|
|
|
my $outcome=&localenroll::validate_courseID($inst_course_id,$cdom); |
|
&Reply($client, "$outcome\n", $userinput); |
|
|
|
|
|
return 1; |
|
} |
|
®ister_handler("autovalidatecourse", \&validate_course_section_handler, 0, 1, 0); |
|
|
|
# |
|
# Create a password for a new auto-enrollment user. |
|
# I think/guess, this password allows access to the institutions |
|
# AIS class list server/services. Stuart can correct this comment |
|
# when he finds out how wrong I am. |
|
# |
|
# Formal Parameters: |
|
# $cmd - The command request that got us dispatched. |
|
# $tail - The tail of the command. In this case this is a colon separated |
|
# set of words that will be split into: |
|
# $authparam - An authentication parameter (username??). |
|
# $cdom - The domain of the course from the institution's |
|
# point of view. |
|
# $client - The socket open on the client. |
|
# Returns: |
|
# 1 - continue processing. |
|
# |
|
sub create_auto_enroll_password_handler { |
|
my ($cmd, $tail, $client) = @_; |
|
my $userinput = "$cmd:$tail"; |
|
|
|
my ($authparam, $cdom) = split(/:/, $userinput); |
|
|
|
my ($create_passwd,$authchk); |
|
($authparam, |
|
$create_passwd, |
|
$authchk) = &localenroll::create_password($authparam,$cdom); |
|
|
|
&Reply($client, &escape($authparam.':'.$create_passwd.':'.$authchk)."\n", |
|
$userinput); |
|
|
|
|
|
return 1; |
|
} |
|
®ister_handler("autocreatepassword", \&create_auto_enroll_password_handler, |
|
0, 1, 0); |
|
|
|
# Retrieve and remove temporary files created by/during autoenrollment. |
|
# |
|
# Formal Parameters: |
|
# $cmd - The command that got us dispatched. |
|
# $tail - The tail of the command. In our case this is a colon |
|
# separated list that will be split into: |
|
# $filename - The name of the file to remove. |
|
# The filename is given as a path relative to |
|
# the LonCAPA temp file directory. |
|
# $client - Socket open on the client. |
|
# |
|
# Returns: |
|
# 1 - Continue processing. |
|
|
|
sub retrieve_auto_file_handler { |
|
my ($cmd, $tail, $client) = @_; |
|
my $userinput = "cmd:$tail"; |
|
|
|
my ($filename) = split(/:/, $tail); |
|
|
|
my $source = $perlvar{'lonDaemons'}.'/tmp/'.$filename; |
|
if ( (-e $source) && ($filename ne '') ) { |
|
my $reply = ''; |
|
if (open(my $fh,$source)) { |
|
while (<$fh>) { |
|
chomp($_); |
|
$_ =~ s/^\s+//g; |
|
$_ =~ s/\s+$//g; |
|
$reply .= $_; |
|
} |
|
close($fh); |
|
&Reply($client, &escape($reply)."\n", $userinput); |
|
|
|
# Does this have to be uncommented??!? (RF). |
|
# |
|
# unlink($source); |
|
} else { |
|
&Failure($client, "error\n", $userinput); |
|
} |
|
} else { |
|
&Failure($client, "error\n", $userinput); |
|
} |
|
|
|
|
|
return 1; |
|
} |
|
®ister_handler("autoretrieve", \&retrieve_auto_file_handler, 0,1,0); |
|
|
|
# |
|
# Read and retrieve institutional code format (for support form). |
|
# Formal Parameters: |
|
# $cmd - Command that dispatched us. |
|
# $tail - Tail of the command. In this case it conatins |
|
# the course domain and the coursename. |
|
# $client - Socket open on the client. |
|
# Returns: |
|
# 1 - Continue processing. |
|
# |
|
sub get_institutional_code_format_handler { |
|
my ($cmd, $tail, $client) = @_; |
|
my $userinput = "$cmd:$tail"; |
|
|
|
my $reply; |
|
my($cdom,$course) = split(/:/,$tail); |
|
my @pairs = split/\&/,$course; |
|
my %instcodes = (); |
|
my %codes = (); |
|
my @codetitles = (); |
|
my %cat_titles = (); |
|
my %cat_order = (); |
|
foreach (@pairs) { |
|
my ($key,$value) = split/=/,$_; |
|
$instcodes{&unescape($key)} = &unescape($value); |
|
} |
|
my $formatreply = &localenroll::instcode_format($cdom, |
|
\%instcodes, |
|
\%codes, |
|
\@codetitles, |
|
\%cat_titles, |
|
\%cat_order); |
|
if ($formatreply eq 'ok') { |
|
my $codes_str = &hash2str(%codes); |
|
my $codetitles_str = &array2str(@codetitles); |
|
my $cat_titles_str = &hash2str(%cat_titles); |
|
my $cat_order_str = &hash2str(%cat_order); |
|
&Reply($client, |
|
$codes_str.':'.$codetitles_str.':'.$cat_titles_str.':' |
|
.$cat_order_str."\n", |
|
$userinput); |
|
} else { |
|
# this else branch added by RF since if not ok, lonc will |
|
# hang waiting on reply until timeout. |
|
# |
|
&Reply($client, "format_error\n", $userinput); |
|
} |
|
|
|
return 1; |
|
} |
|
|
|
®ister_handler("autoinstcodeformat", \&get_institutional_code_format_handler, |
|
0,1,0); |
|
|
# |
# |
# |
# |
Line 3678 sub process_request {
|
Line 3944 sub process_request {
|
} else { |
} else { |
print $client "refused\n"; |
print $client "refused\n"; |
} |
} |
#--------------------- read and retrieve institutional code format (for support form). |
#--------------------- read and retrieve institutional code format |
|
# (for support form). |
} elsif ($userinput =~/^autoinstcodeformat/) { |
} elsif ($userinput =~/^autoinstcodeformat/) { |
if (isClient) { |
if (isClient) { |
my $reply; |
my $reply; |
Line 4740 sub validate_user {
|
Line 5007 sub validate_user {
|
# At the end of this function. I'll ensure that it's not still that |
# At the end of this function. I'll ensure that it's not still that |
# value so we don't just wind up returning some accidental value |
# value so we don't just wind up returning some accidental value |
# as a result of executing an unforseen code path that |
# as a result of executing an unforseen code path that |
# did not set $validated. |
# did not set $validated. At the end of valid execution paths, |
|
# validated shoule be 1 for success or 0 for failuer. |
|
|
my $validated = -3.14159; |
my $validated = -3.14159; |
|
|
Line 4828 sub validate_user {
|
Line 5096 sub validate_user {
|
# |
# |
|
|
unless ($validated != -3.14159) { |
unless ($validated != -3.14159) { |
die "ValidateUser - failed to set the value of validated"; |
# I >really really< want to know if this happens. |
|
# since it indicates that user authentication is badly |
|
# broken in some code path. |
|
# |
|
die "ValidateUser - failed to set the value of validated $domain, $user $password"; |
} |
} |
return $validated; |
return $validated; |
} |
} |