summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 648ea06)
raw | patch | inline | side by side (parent: 648ea06)
author | cajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Wed, 27 Feb 2008 08:45:13 +0000 (08:45 +0000) | ||
committer | cajus <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 | patch | blob | history | |
gosa-si/server/events/siTriggered.pm | patch | blob | history |
index b038e39635d4e8103c977c0f6fece1c5375a18c4..d04c2e527ecb9be9f00a062b6ee4d2d958380574 100644 (file)
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)
# 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 =~ /([^\.]+)\.?/);