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

diff --git a/decentralized/memberd.tcl b/decentralized/memberd.tcl
index 02cdd9adab8ec119bf2b6952d3056d7db29df5df..66e1eb177874f3817b113ec7ccbb22c1fff7df1b 100755 (executable)
--- 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