|
version 1.1076, 2010/07/24 17:42:51
|
version 1.1077, 2010/07/25 02:58:05
|
|
Line 817 sub has_user_session {
|
Line 817 sub has_user_session {
|
| sub choose_server { |
sub choose_server { |
| my ($udom) = @_; |
my ($udom) = @_; |
| my %domconfhash = &Apache::loncommon::get_domainconf($udom); |
my %domconfhash = &Apache::loncommon::get_domainconf($udom); |
| my %servers = &servers($udom); |
my %servers = &get_servers($udom); |
| my $lowest_load = 30000; |
my $lowest_load = 30000; |
| my ($login_host,$hostname); |
my ($login_host,$hostname); |
| foreach my $lonhost (keys(%servers)) { |
foreach my $lonhost (keys(%servers)) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl