From 94ff799b746d5ae997b35a53047fb3a96e448369 Mon Sep 17 00:00:00 2001 From: Christopher Alfeld Date: Fri, 14 Jul 2000 22:06:14 +0000 Subject: [PATCH] Added device output. --- tbsetup/tbreport.tcl | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/tbsetup/tbreport.tcl b/tbsetup/tbreport.tcl index 2e1d5bea7..c30f8cc37 100755 --- a/tbsetup/tbreport.tcl +++ b/tbsetup/tbreport.tcl @@ -6,6 +6,9 @@ if {$scriptdir == "."} {set scriptdir [pwd]} set updir [file dirname $scriptdir] source $updir/ir/libir.tcl +load $updir/lib/sql.so +set DB [sql connect] +sql selectdb $DB tbdb namespace import TB_LIBIR::ir @@ -79,7 +82,15 @@ foreach link [array names ipmap] { [lindex $ipmap($link) 0] \ [lindex $t 1] [lindex $ipmap($link) 1]] if {$verbose == 1} { - puts [format "%-20s %-15s %-20s %-15s" "" $macmap([lindex $ipmap($link) 0]) "" $macmap([lindex $ipmap($link) 1])] + set smac $macmap([lindex $ipmap($link) 0]) + set dmac $macmap([lindex $ipmap($link) 1]) + sql query $DB "select IFC from interfaces where mac = \"$smac\"" + set sifc [sql fetchrow $DB] + sql endquery $DB + sql query $DB "select IFC from interfaces where mac = \"$dmac\"" + set difc [sql fetchrow $DB] + sql endquery $DB + puts [format "%20s %-15s %20s %-15s" /dev/eth$sifc $smac /dev/eth$difc $dmac] } } -- 2.22.0