[WWcvs] webwork-modperl: If HostnameLookups is off in Apache's httpd.conf, then

[jj v. a. <we...@ma...>]

Log Message:
-----------
If HostnameLookups is off in Apache's httpd.conf, then remote_host returns
an undefined value.  Better than this fix would be to use get_remote_host,
but I couldn't get that to work on my system.

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK:
        Authen.pm

Revision Data
-------------
Index: Authen.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/Authen.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -Llib/WeBWorK/Authen.pm -Llib/WeBWorK/Authen.pm -u -r1.40 -r1.41
--- lib/WeBWorK/Authen.pm
+++ lib/WeBWorK/Authen.pm
@@ -238,7 +238,7 @@
 	my $ce = $r->ce;
 	my $timestamp = localtime;
 	($timestamp) = $timestamp =~ /^\w+\s(.*)\s/;
-	my $remote_host = $r->connection->remote_host;
+	my $remote_host = $r->connection->remote_host || "(cannot get host)";
 	my $user_agent = $r->header_in("User-Agent");
 	writeCourseLog($ce, "login_log", "$userID on $remote_host ($user_agent)");
 }