#!./tclnm
#
# ip_routes, 22feb93 phk@data.fls.dk
#
# show us the ip_routes
#

if {$argc == 1} {
    puts stderr "\nUsage:\n\t[lindex $argv 0] <host>"
    puts stderr "\nShows the ip-routes as seen from MIB-2"
    exit 0
} else {
   set host [lindex $argv 1]
}

set s0 [snmp open $host]

snmp default $s0 prefix [snmp default $s0 prefix].ip.ipRouteTable.ipRouteEntry

set fmt {
    "%-15s "
    "%-15s "
    "%-15s "
    "%3s "
    "%s/"
    "%s\n\t\t\t\t\t\t    "
    "%s,"
    "%s,"
    "%s,"
    "%s,"
    "%s"
    }

set hdr {
    "Net"
    "Mask"
    "NextHop"
    "If"
    "Type"
    "Proto"
    "M1"
    "M2"
    "M3"
    "M4"
    "Age"
    }

set j 0
puts stdout "\nIP - route table for host $host at [exec date]"
puts stdout "------------------------------------------------------------------------------"
foreach i $hdr {
    puts stdout [format [lindex $fmt $j] $i] nonewline
    incr j
}
puts stdout "\n------------------------------------------------------------------------------"
snmp getbulk $s0 -l -v {
    ipRouteDest
    ipRouteMask
    ipRouteNextHop
    ipRouteIfIndex
    ipRouteType
    ipRouteProto

    ipRouteMetric1
    ipRouteMetric2
    ipRouteMetric3
    ipRouteMetric4
    ipRouteAge
    } x {
    set j 0
    foreach i $x {
	puts stdout [format [lindex $fmt $j] $i] nonewline
	incr j
    }
    puts stdout ""
    }
puts stdout "------------------------------------------------------------------------------"
