[Sumover-dev] [svn commit] r4434 - vic/branches/mpeg4/tcl

[sumover-dev at cs.ucl.ac.uk]

Author: douglask
Date: Sun Apr 19 23:03:13 2009
New Revision: 4434

Modified:
   vic/branches/mpeg4/tcl/ui-stats.tcl

Log:
/usr/sbin typically isn't in a normal users PATH, so explicitly check if
/usr/sbin/mtrace exists


Modified: vic/branches/mpeg4/tcl/ui-stats.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-stats.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-stats.tcl	Sun Apr 19 23:03:13 2009
@@ -691,10 +691,15 @@
 	}
 
 	global V
+	if [file executable /usr/sbin/mtrace] {
+		set mtrace_prog /usr/sbin/mtrace
+	} else {
+		set mtrace_prog mtrace
+	}
 	if {$dir=="to"} {
-		set cmd "|mtrace [$V(data-net) interface] [$src addr] [$V(data-net) addr]"
+		set cmd "|$mtrace_prog [$V(data-net) interface] [$src addr] [$V(data-net) addr]"
 	} else {
-		set cmd "|mtrace [$src addr] [$V(data-net) addr]"
+		set cmd "|$mtrace_prog [$src addr] [$V(data-net) addr]"
 	}
 	if [catch "open {$cmd} r" fd] {
 		$w.t.text insert end "mtrace error: $fd"