summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f6282f8)
raw | patch | inline | side by side (parent: f6282f8)
author | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Tue, 15 Jan 2008 09:23:38 +0000 (09:23 +0000) | ||
committer | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Tue, 15 Jan 2008 09:23:38 +0000 (09:23 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@8341 594d385d-05f5-0310-b6e9-bd551577e9d8
gosa-si/gosa-si-client | patch | blob | history |
diff --git a/gosa-si/gosa-si-client b/gosa-si/gosa-si-client
index 3ae58a5813c42c561edfb1266eb6e0ebf18261cc..2608e323efb10c8f564845b8b1642928f34fb486 100755 (executable)
--- a/gosa-si/gosa-si-client
+++ b/gosa-si/gosa-si-client
use Sys::Syslog qw( :DEFAULT setlogsock);
use File::Spec;
use Cwd;
-use NetAddr::IP::Lite;
+use NetAddr::IP;
use GOSA::GosaSupportDaemon;
$destination= sprintf("%d.%d.%d.%d", hex($a), hex($b), hex($c), hex($d));
($d,$c,$b,$a)=unpack('a2 a2 a2 a2', $Mask);
$mask= sprintf("%d.%d.%d.%d", hex($a), hex($b), hex($c), hex($d));
- if(new NetAddr::IP::Lite($server_ip)->within(new NetAddr::IP::Lite($destination, $mask))) {
+ if(new NetAddr::IP($server_ip)->within(new NetAddr::IP($destination, $mask))) {
# destination matches route, save mac and exit
$result= &get_mac($Iface);
last;
&read_configfile;
&check_pid;
-
-open STDIN, ‘/dev/null’ or die “Can’t read /dev/null: $!”;
-open STDOUT, ‘>>/dev/null’ or die “Can’t write to /dev/null: $!”;
-open STDERR, ‘>>/dev/null’ or die “Can’t write to /dev/null: $!”;
+open STDIN, '/dev/null' or die "Can’t read /dev/null: $!";
+open STDOUT, '>>/dev/null' or die "Can't write to /dev/null: $!";
+open STDERR, '>>/dev/null' or die "Can't write to /dev/null: $!";
# restart daemon log file