Code

Removed buggy net resolver
authorcajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8>
Wed, 27 Feb 2008 08:45:13 +0000 (08:45 +0000)
committercajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8>
Wed, 27 Feb 2008 08:45:13 +0000 (08:45 +0000)
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@9150 594d385d-05f5-0310-b6e9-bd551577e9d8

gosa-si/modules/SIPackages.pm
gosa-si/server/events/siTriggered.pm

index b038e39635d4e8103c977c0f6fece1c5375a18c4..d04c2e527ecb9be9f00a062b6ee4d2d958380574 100644 (file)
@@ -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";
index fe3a373f91952267bc2f55630465dbfb1dfb8e42..488cc14f10fc26fbddf1c0b46ef0b4d0bbf7655f 100644 (file)
@@ -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 =~ /([^\.]+)\.?/);