Code

assign hostname.
authorjanw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8>
Wed, 5 Mar 2008 06:31:00 +0000 (06:31 +0000)
committerjanw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8>
Wed, 5 Mar 2008 06:31:00 +0000 (06:31 +0000)
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@9329 594d385d-05f5-0310-b6e9-bd551577e9d8

gosa-si/server/events/siTriggered.pm

index c6728266c59d97bc5f8edb3f469b8060e27c0232..578a968457a53537d79fd72c7b36e08e95c3908e 100644 (file)
@@ -165,7 +165,7 @@ sub detected_hardware {
                        $dnsname= $msg_hash->{'force-hostname'}[0];
                        &main::daemon_log("INFO: Using forced hostname $dnsname for client $address", 4);
                } else {
-                       gethostbyaddr(inet_aton($ipaddress), AF_INET) || $ipaddress;
+                       $dnsname= gethostbyaddr(inet_aton($ipaddress), AF_INET) || $ipaddress;
                }
 
                my $cn = (($dnsname =~ /^(\d){1,3}\.(\d){1,3}\.(\d){1,3}\.(\d){1,3}/) ? $dnsname : sprintf "%s", $dnsname =~ /([^\.]+)\.?/);