![[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|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.850, 2007/03/27 19:38:39 | version 1.851, 2007/03/28 00:05:45 |
|---|---|
| Line 146 sub logperm { | Line 146 sub logperm { |
| sub create_connection { | sub create_connection { |
| my ($server) = @_; | my ($server) = @_; |
| my $client=IO::Socket::UNIX->new(Peer =>"/home/httpd/sockets/common", | my $client=IO::Socket::UNIX->new(Peer => $perlvar{'lonSockCreate'}, |
| Type => SOCK_STREAM, | Type => SOCK_STREAM, |
| Timeout => 10); | Timeout => 10); |
| return 0 if (!$client); | return 0 if (!$client); |