From da23a1c051ebea3a80014bf8f069eec5c70b09b1 Mon Sep 17 00:00:00 2001 From: rettenbe Date: Wed, 10 Dec 2008 08:23:12 +0000 Subject: [PATCH] delete out commented lines git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@13222 594d385d-05f5-0310-b6e9-bd551577e9d8 --- gosa-si/gosa-si-server | 42 ------------------------------------------ 1 file changed, 42 deletions(-) diff --git a/gosa-si/gosa-si-server b/gosa-si/gosa-si-server index 9f54c0088..d4361aad2 100755 --- a/gosa-si/gosa-si-server +++ b/gosa-si/gosa-si-server @@ -868,48 +868,6 @@ sub open_socket { } -#sub get_local_ip_for_remote_ip { -# my $remote_ip= shift; -# my $result="0.0.0.0"; -# -# if($remote_ip =~ /^(\d\d?\d?\.){3}\d\d?\d?$/) { -# if($remote_ip eq "127.0.0.1") { -# $result = "127.0.0.1"; -# } else { -# my $PROC_NET_ROUTE= ('/proc/net/route'); -# -# open(PROC_NET_ROUTE, "<$PROC_NET_ROUTE") -# or die "Could not open $PROC_NET_ROUTE"; -# -# my @ifs = ; -# -# close(PROC_NET_ROUTE); -# -# # Eat header line -# shift @ifs; -# chomp @ifs; -# foreach my $line(@ifs) { -# my ($Iface,$Destination,$Gateway,$Flags,$RefCnt,$Use,$Metric,$Mask,$MTU,$Window,$IRTT)=split(/\s/, $line); -# my $destination; -# my $mask; -# my ($d,$c,$b,$a)=unpack('a2 a2 a2 a2', $Destination); -# $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($remote_ip)->within(new NetAddr::IP($destination, $mask))) { -# # destination matches route, save mac and exit -# $result= &get_ip($Iface); -# last; -# } -# } -# } -# } else { -# daemon_log("0 WARNING: get_local_ip_for_remote_ip() was called with a non-ip parameter: '$remote_ip'", 1); -# } -# return $result; -#} - - sub send_msg_to_target { my ($msg, $address, $encrypt_key, $msg_header, $session_id) = @_ ; my $error = 0; -- 2.30.2