From: marko <marko>
Date: Sun, 21 Oct 2007 16:59:32 +0000 (+0000)
Subject: Fix memberd.tcl so that it can run on FreeBSD 7.0.
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=bf795eadc03d2c58280e248a1b28a6ef74cc708b;p=imunes.git

Fix memberd.tcl so that it can run on FreeBSD 7.0.
---

diff --git a/decentralized/memberd.tcl b/decentralized/memberd.tcl
index 02cdd9a..66e1eb1 100755
--- a/decentralized/memberd.tcl
+++ b/decentralized/memberd.tcl
@@ -1,4 +1,3 @@
-# $Id: memberd.tcl,v 1.3 2007/07/19 01:17:06 marko Exp $ 
 #!/usr/local/bin/tclsh8.4
 
 #
@@ -33,6 +32,8 @@
 # SUCH DAMAGE.
 #
 
+# $Id: memberd.tcl,v 1.4 2007/10/21 16:59:32 marko Exp $ 
+
 #
 # host_id, peer_id -> ip_address in A.B.C.D form
 #
@@ -687,7 +688,7 @@ set keepalive_timo 30
 set announce_delay 10
 
 set my_ip [string trim \
-    [exec netstat -in -f inet | head -2 | tail -1 | cut -c26-40]]
+    [exec netstat -in -f inet | fgrep -v "lo0 " | tail -1 | cut -c26-40]]
 set my_host_id $my_ip
 
 # Parse command-line options