summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 8f6d2aa)
raw | patch | inline | side by side (parent: 8f6d2aa)
author | cajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Wed, 5 Mar 2008 16:36:59 +0000 (16:36 +0000) | ||
committer | cajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Wed, 5 Mar 2008 16:36:59 +0000 (16:36 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@9370 594d385d-05f5-0310-b6e9-bd551577e9d8
gosa-si/server/events/siTriggered.pm | patch | blob | history |
index 798dcb1dec575cd29f6c5817f91a3a41d1bba158..9638cca17ab52b50464a5946b6d13d6fa0ba08fd 100644 (file)
use warnings;
use GOSA::GosaSupportDaemon;
use Socket;
-use Net::hostent;
BEGIN {}
# get the hardware address (ethernet address)
$hwaddr_re = join(':', ('[0-9A-Fa-f]{1,2}') x 6);
if ($host =~ m/^$hwaddr_re$/) {
- $hwaddr = $host;
+ $hwaddr = $host;
} else {
- # $host is not a hardware address, try to resolve it
- my $ip_re = join('\.', ('([0-9]|[1-9][0-9]|1[0-9]{2}|2([0-4][0-9]|5[0-5]))') x 4);
- my $ip_addr;
- if ($host =~ m/^$ip_re$/) {
- $ip_addr = $host;
- } else {
- my $h;
- unless ($h = gethost($host)) {
- return undef;
- }
- $ip_addr = inet_ntoa($h->addr);
- }
+ &main::daemon_log("ERROR: trigger_wake called with non mac address", 1);
}
# Generate magic sequence