summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 49ab84b)
raw | patch | inline | side by side (parent: 49ab84b)
author | janw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Wed, 5 Mar 2008 06:31:00 +0000 (06:31 +0000) | ||
committer | janw <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 | patch | blob | history |
index c6728266c59d97bc5f8edb3f469b8060e27c0232..578a968457a53537d79fd72c7b36e08e95c3908e 100644 (file)
$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 =~ /([^\.]+)\.?/);