From 28513f8055075821c77d2f7b885fbce3da4587c2 Mon Sep 17 00:00:00 2001 From: cajus Date: Wed, 27 Feb 2008 08:45:13 +0000 Subject: [PATCH] Removed buggy net resolver git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@9150 594d385d-05f5-0310-b6e9-bd551577e9d8 --- gosa-si/modules/SIPackages.pm | 1 - gosa-si/server/events/siTriggered.pm | 1 - 2 files changed, 2 deletions(-) diff --git a/gosa-si/modules/SIPackages.pm b/gosa-si/modules/SIPackages.pm index b038e3963..d04c2e527 100644 --- a/gosa-si/modules/SIPackages.pm +++ b/gosa-si/modules/SIPackages.pm @@ -16,7 +16,6 @@ use NetAddr::IP; use Net::LDAP; use Socket; use Net::hostent; -use Net::DNS; use utf8; my $event_dir = "/usr/lib/gosa-si/server/events"; diff --git a/gosa-si/server/events/siTriggered.pm b/gosa-si/server/events/siTriggered.pm index fe3a373f9..488cc14f1 100644 --- a/gosa-si/server/events/siTriggered.pm +++ b/gosa-si/server/events/siTriggered.pm @@ -157,7 +157,6 @@ sub detected_hardware { # We need to create a base entry first (if not done from ArpHandler) if($mesg->count == 0) { &main::daemon_log("INFO: Need to create a new LDAP Entry for client $address", 6); - my $resolver=Net::DNS::Resolver->new; my $ipaddress= $1 if $address =~ /^([0-9\.]*?):.*$/; my $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 =~ /([^\.]+)\.?/); -- 2.30.2