view release on metacpan or  search on metacpan

AuthenNTLM.pm  view on Meta::CPAN

    	my ($addr, $port) = sockaddr_in ($conn -> remote_addr) ;
    }

    print STDERR "[$$] AuthenNTLM: Start NTLM Authen handler pid = $$, connection = " 
	           . "$$conn conn_http_hdr = $connhdr  main = " . ($r -> main) 
		     . " cuser = " . $r -> user . ' remote_ip = ' . $conn -> remote_ip 
		      . " remote_port = " . unpack('n', $port) . ' remote_host = <' 
		       . $conn -> remote_host . "> version = $VERSION "
                        . "smbhandle = " . $self -> {smbhandle} . "\n" if ($debug) ;

    # we cannot attach our object to the connection record. Since in
    # Apache 1.3 there is only one connection at a time per process
    # we can cache our object and check if the connection has changed.
    # The check is done by slightly changing the remote_host member, which
    # persists as long as the connection does
    # This has to be reworked to work with Apache 2.0
     my $table;
     $table = $conn->notes() if MP2;
     if (ref ($cache) ne $class || $$conn != $cache->{connectionid} ||
       (!MP2 && $conn->remote_host ne $cache->{remote_host}) ||
       (MP2 && $table->get('status') ne "AUTHSTARTED"))