|
version 1.489.2.14, 2014/04/30 23:16:03
|
version 1.511, 2014/06/29 03:22:43
|
|
Line 621 sub ConfigFileFromSelector {
|
Line 621 sub ConfigFileFromSelector {
|
| # String to send to client ("ok" or "refused" if bad file). |
# String to send to client ("ok" or "refused" if bad file). |
| # |
# |
| sub PushFile { |
sub PushFile { |
| my $request = shift; |
my $request = shift; |
| my ($command, $filename, $contents) = split(":", $request, 3); |
my ($command, $filename, $contents) = split(":", $request, 3); |
| &Debug("PushFile"); |
&Debug("PushFile"); |
| |
|
|
Line 651 sub PushFile {
|
Line 651 sub PushFile {
|
| |
|
| if($filename eq "host") { |
if($filename eq "host") { |
| $contents = AdjustHostContents($contents); |
$contents = AdjustHostContents($contents); |
| |
} elsif ($filename eq 'dns_host' || $filename eq 'dns_domain') { |
| |
if ($contents eq '') { |
| |
&logthis('<font color="red"> Pushfile: unable to install ' |
| |
.$tablefile." - no data received from push. </font>"); |
| |
return 'error: push had no data'; |
| |
} |
| |
if (&Apache::lonnet::get_host_ip($clientname)) { |
| |
my $clienthost = &Apache::lonnet::hostname($clientname); |
| |
if ($managers{$clientip} eq $clientname) { |
| |
my $clientprotocol = $Apache::lonnet::protocol{$clientname}; |
| |
$clientprotocol = 'http' if ($clientprotocol ne 'https'); |
| |
my $url = '/adm/'.$filename; |
| |
$url =~ s{_}{/}; |
| |
my $ua=new LWP::UserAgent; |
| |
$ua->timeout(60); |
| |
my $request=new HTTP::Request('GET',"$clientprotocol://$clienthost$url"); |
| |
my $response=$ua->request($request); |
| |
if ($response->is_error()) { |
| |
&logthis('<font color="red"> Pushfile: unable to install ' |
| |
.$tablefile." - error attempting to pull data. </font>"); |
| |
return 'error: pull failed'; |
| |
} else { |
| |
my $result = $response->content; |
| |
chomp($result); |
| |
unless ($result eq $contents) { |
| |
&logthis('<font color="red"> Pushfile: unable to install ' |
| |
.$tablefile." - pushed data and pulled data differ. </font>"); |
| |
my $pushleng = length($contents); |
| |
my $pullleng = length($result); |
| |
if ($pushleng != $pullleng) { |
| |
return "error: $pushleng vs $pullleng bytes"; |
| |
} else { |
| |
return "error: mismatch push and pull"; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| } |
} |
| |
|
| # Install the new file: |
# Install the new file: |
|
Line 1894 sub authenticate_handler {
|
Line 1932 sub authenticate_handler {
|
| if (ref($hostedsession) eq 'HASH') { |
if (ref($hostedsession) eq 'HASH') { |
| $hosted = $hostedsession->{'hosted'}; |
$hosted = $hostedsession->{'hosted'}; |
| } |
} |
| my $loncaparev = $clientversion; |
|
| if ($loncaparev eq '') { |
|
| $loncaparev = $Apache::lonnet::loncaparevs{$clientname}; |
|
| } |
|
| $canhost = &Apache::lonnet::can_host_session($udom,$clientname, |
$canhost = &Apache::lonnet::can_host_session($udom,$clientname, |
| $loncaparev, |
$clientversion, |
| $remote,$hosted); |
$remote,$hosted); |
| } |
} |
| } |
} |
|
Line 3177 sub get_profile_keys {
|
Line 3211 sub get_profile_keys {
|
| sub dump_profile_database { |
sub dump_profile_database { |
| my ($cmd, $tail, $client) = @_; |
my ($cmd, $tail, $client) = @_; |
| |
|
| |
my $res = LONCAPA::Lond::dump_profile_database($tail); |
| |
|
| |
if ($res =~ /^error:/) { |
| |
Failure($client, \$res, "$cmd:$tail"); |
| |
} else { |
| |
Reply($client, \$res, "$cmd:$tail"); |
| |
} |
| |
|
| |
return 1; |
| |
|
| |
#TODO remove |
| my $userinput = "$cmd:$tail"; |
my $userinput = "$cmd:$tail"; |
| |
|
| my ($udom,$uname,$namespace) = split(/:/,$tail); |
my ($udom,$uname,$namespace) = split(/:/,$tail); |
|
Line 3256 sub dump_with_regexp {
|
Line 3301 sub dump_with_regexp {
|
| my ($cmd, $tail, $client) = @_; |
my ($cmd, $tail, $client) = @_; |
| |
|
| my $res = LONCAPA::Lond::dump_with_regexp($tail, $clientversion); |
my $res = LONCAPA::Lond::dump_with_regexp($tail, $clientversion); |
| |
|
| if ($res =~ /^error:/) { |
if ($res =~ /^error:/) { |
| &Failure($client, \$res, "$cmd:$tail"); |
Failure($client, \$res, "$cmd:$tail"); |
| } else { |
} else { |
| &Reply($client, \$res, "$cmd:$tail"); |
Reply($client, \$res, "$cmd:$tail"); |
| } |
} |
| |
|
| return 1; |
return 1; |
|
Line 3831 sub put_course_id_hash_handler {
|
Line 3876 sub put_course_id_hash_handler {
|
| # |
# |
| # domcloner - flag to indicate if user can create CCs in course's domain. |
# domcloner - flag to indicate if user can create CCs in course's domain. |
| # If so, ability to clone course is automatic. |
# If so, ability to clone course is automatic. |
| # hasuniquecode - filter by courses for which a six character unique code has |
# hasuniquecode - filter by courses for which a six character unique code has |
| # been set. |
# been set. |
| # |
# |
| # $client - The socket open on the client. |
# $client - The socket open on the client. |
|
Line 3841 sub put_course_id_hash_handler {
|
Line 3886 sub put_course_id_hash_handler {
|
| # a reply is written to $client. |
# a reply is written to $client. |
| sub dump_course_id_handler { |
sub dump_course_id_handler { |
| my ($cmd, $tail, $client) = @_; |
my ($cmd, $tail, $client) = @_; |
| |
|
| |
my $res = LONCAPA::Lond::dump_course_id_handler($tail); |
| |
if ($res =~ /^error:/) { |
| |
Failure($client, \$res, "$cmd:$tail"); |
| |
} else { |
| |
Reply($client, \$res, "$cmd:$tail"); |
| |
} |
| |
|
| |
return 1; |
| |
|
| |
#TODO remove |
| my $userinput = "$cmd:$tail"; |
my $userinput = "$cmd:$tail"; |
| |
|
| my ($udom,$since,$description,$instcodefilter,$ownerfilter,$coursefilter, |
my ($udom,$since,$description,$instcodefilter,$ownerfilter,$coursefilter, |
|
Line 4447 sub get_id_handler {
|
Line 4503 sub get_id_handler {
|
| # Returns: |
# Returns: |
| # 1 - Continue processing |
# 1 - Continue processing |
| # 0 - Exit server. |
# 0 - Exit server. |
| # |
# |
| # |
# |
| |
|
| sub del_id_handler { |
sub del_id_handler { |
|
Line 6290 sub Debug {
|
Line 6346 sub Debug {
|
| # reply - Text to send to client. |
# reply - Text to send to client. |
| # request - Original request from client. |
# request - Original request from client. |
| # |
# |
| |
#NOTE $reply must be terminated by exactly *one* \n. If $reply is a reference |
| |
#this is done automatically ($$reply must not contain any \n in this case). |
| |
#If $reply is a string the caller has to ensure this. |
| sub Reply { |
sub Reply { |
| my ($fd, $reply, $request) = @_; |
my ($fd, $reply, $request) = @_; |
| if (ref($reply)) { |
if (ref($reply)) { |
|
Line 6535 sub make_new_child {
|
Line 6594 sub make_new_child {
|
| # my $tmpsnum=0; # Now global |
# my $tmpsnum=0; # Now global |
| #---------------------------------------------------- kerberos 5 initialization |
#---------------------------------------------------- kerberos 5 initialization |
| &Authen::Krb5::init_context(); |
&Authen::Krb5::init_context(); |
| unless (($dist eq 'fedora5') || ($dist eq 'fedora4') || |
|
| ($dist eq 'fedora6') || ($dist eq 'suse9.3') || |
my $no_ets; |
| ($dist eq 'suse12.2') || ($dist eq 'suse12.3') || |
if ($dist =~ /^(?:centos|rhes)(\d+)$/) { |
| ($dist eq 'suse13.1')) { |
if ($1 >= 7) { |
| |
$no_ets = 1; |
| |
} |
| |
} elsif ($dist =~ /^suse(\d+\.\d+)$/) { |
| |
if (($1 eq '9.3') || ($1 >= 12.2)) { |
| |
$no_ets = 1; |
| |
} |
| |
} elsif ($dist =~ /^fedora(\d+)$/) { |
| |
if ($1 < 7) { |
| |
$no_ets = 1; |
| |
} |
| |
} |
| |
unless ($no_ets) { |
| &Authen::Krb5::init_ets(); |
&Authen::Krb5::init_ets(); |
| } |
} |
| |
|
|
Line 6583 sub make_new_child {
|
Line 6654 sub make_new_child {
|
| # |
# |
| # If the remote is attempting a local init... give that a try: |
# If the remote is attempting a local init... give that a try: |
| # |
# |
| |
logthis("remotereq: $remotereq"); |
| (my $i, my $inittype, $clientversion) = split(/:/, $remotereq); |
(my $i, my $inittype, $clientversion) = split(/:/, $remotereq); |
| # For LON-CAPA 2.9, the client session will have sent its LON-CAPA |
# For LON-CAPA 2.9, the client session will have sent its LON-CAPA |
| # version when initiating the connection. For LON-CAPA 2.8 and older, |
# version when initiating the connection. For LON-CAPA 2.8 and older, |
| # the version is retrieved from the global %loncaparevs in lonnet.pm. |
# the version is retrieved from the global %loncaparevs in lonnet.pm. |
| # $clientversion contains path to keyfile if $inittype eq 'local' |
# $clientversion contains path to keyfile if $inittype eq 'local' |
| # it's overridden below in this case |
# it's overridden below in this case |
| $clientversion ||= $Apache::lonnet::loncaparevs{$clientname}; |
$clientversion ||= $Apache::lonnet::loncaparevs{$clientname}; |
| |
|
| # If the connection type is ssl, but I didn't get my |
# If the connection type is ssl, but I didn't get my |
| # certificate files yet, then I'll drop back to |
# certificate files yet, then I'll drop back to |
|
Line 7406 sub get_usersession_config {
|
Line 7478 sub get_usersession_config {
|
| } |
} |
| |
|
| |
|
| |
|
| |
|
| sub distro_and_arch { |
sub distro_and_arch { |
| return $dist.':'.$arch; |
return $dist.':'.$arch; |
| } |
} |
|
Line 7734 Authen::Krb5
|
Line 7808 Authen::Krb5
|
| |
|
| =head1 COREQUISITES |
=head1 COREQUISITES |
| |
|
| |
none |
| |
|
| =head1 OSNAMES |
=head1 OSNAMES |
| |
|
| linux |
linux |
|
Line 7821 or the CA's certificate in the call to l
|
Line 7897 or the CA's certificate in the call to l
|
| <error> is the textual reason this failed. Usual reasons: |
<error> is the textual reason this failed. Usual reasons: |
| |
|
| =over 2 |
=over 2 |
| |
|
| =item Apache config file for loncapa incorrect: |
=item Apache config file for loncapa incorrect: |
| |
|
| one of the variables |
one of the variables |
| lonCertificateDirectory, lonnetCertificateAuthority, or lonnetCertificate |
lonCertificateDirectory, lonnetCertificateAuthority, or lonnetCertificate |
| undefined or incorrect |
undefined or incorrect |
|
Line 7942 Could not rewrite the
|
Line 8018 Could not rewrite the
|
| internal password file for a user |
internal password file for a user |
| |
|
| =item Result of password change for <user> : <result> |
=item Result of password change for <user> : <result> |
| |
|
| A unix password change for <user> was attempted |
A unix password change for <user> was attempted |
| and the pipe returned <result> |
and the pipe returned <result> |
| |
|
|
Line 7971 lond has been asked to exit by its clien
|
Line 8047 lond has been asked to exit by its clien
|
| client systemand <input> is the full exit command sent to the server. |
client systemand <input> is the full exit command sent to the server. |
| |
|
| =item Red CRITICAL: ABNORMAL EXIT. child <pid> for server <hostname> died through a crass with this error->[<message>]. |
=item Red CRITICAL: ABNORMAL EXIT. child <pid> for server <hostname> died through a crass with this error->[<message>]. |
| |
|
| A lond child terminated. NOte that this termination can also occur when the |
A lond child terminated. NOte that this termination can also occur when the |
| child receives the QUIT or DIE signals. <pid> is the process id of the child, |
child receives the QUIT or DIE signals. <pid> is the process id of the child, |
| <hostname> the host lond is working for, and <message> the reason the child died |
<hostname> the host lond is working for, and <message> the reason the child died |
|
Line 8055 file when sent it's USR1 signal. That p
|
Line 8131 file when sent it's USR1 signal. That p
|
| assumed to be hung in some un-fixable way. |
assumed to be hung in some un-fixable way. |
| |
|
| =item Finished checking children |
=item Finished checking children |
| |
|
| Master processs's USR1 processing is cojmplete. |
Master processs's USR1 processing is cojmplete. |
| |
|
| =item (Red) CRITICAL: ------- Starting ------ |
=item (Red) CRITICAL: ------- Starting ------ |
|
Line 8069 Started a new child process for <client>
|
Line 8145 Started a new child process for <client>
|
| connected to the child. This was as a result of a TCP/IP connection from a client. |
connected to the child. This was as a result of a TCP/IP connection from a client. |
| |
|
| =item Unable to determine who caller was, getpeername returned nothing |
=item Unable to determine who caller was, getpeername returned nothing |
| |
|
| In child process initialization. either getpeername returned undef or |
In child process initialization. either getpeername returned undef or |
| a zero sized object was returned. Processing continues, but in my opinion, |
a zero sized object was returned. Processing continues, but in my opinion, |
| this should be cause for the child to exit. |
this should be cause for the child to exit. |
|
Line 8080 In child process initialization. The pe
|
Line 8156 In child process initialization. The pe
|
| The client address is stored as "Unavailable" and processing continues. |
The client address is stored as "Unavailable" and processing continues. |
| |
|
| =item (Yellow) INFO: Connection <ip> <name> connection type = <type> |
=item (Yellow) INFO: Connection <ip> <name> connection type = <type> |
| |
|
| In child initialization. A good connectionw as received from <ip>. |
In child initialization. A good connectionw as received from <ip>. |
| |
|
| =over 2 |
=over 2 |
|
Line 8130 The client (<client> is the peer's name
|
Line 8206 The client (<client> is the peer's name
|
| negotiated an SSL connection with this child process. |
negotiated an SSL connection with this child process. |
| |
|
| =item (Green) Successful insecure authentication with <client> |
=item (Green) Successful insecure authentication with <client> |
| |
|
| |
|
| The client has successfully negotiated an insecure connection withthe child process. |
The client has successfully negotiated an insecure connection withthe child process. |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom