diff options
Diffstat (limited to 'util/lg/lgform.cgi.in')
-rwxr-xr-x | util/lg/lgform.cgi.in | 29 |
1 files changed, 18 insertions, 11 deletions
diff --git a/util/lg/lgform.cgi.in b/util/lg/lgform.cgi.in index 762c9d8..7fa7d0f 100755 --- a/util/lg/lgform.cgi.in +++ b/util/lg/lgform.cgi.in @@ -1,4 +1,17 @@ #!@PERLV_PATH@ +## Copyright (C) 1997-2001 by Henry Kilmer. +## All rights reserved. +## +## This software may be freely copied, modified and redistributed without +## fee for non-commerical purposes provided that this copyright notice is +## preserved intact on all copies and modified copies. +## +## There is no warranty or other guarantee of fitness of this software. +## It is provided solely "as is". The author(s) disclaim(s) all +## responsibility and liability with respect to this software's usage +## or its effect upon hardware, computer systems, other software, or +## anything else. +# # lgform.cgi - Looking glass front-end # produces html form for calling lg.cgi @@ -75,7 +88,7 @@ sub readrouters next if (/^\s*(#|$)/); # fqdn:mfg:state @record = split('\:', $_); - next if ($record[2] !~ /up/i || $record[1] !~ /(cisco|juniper)/); + next if ($record[2] !~ /up/i || $record[1] !~ /(cisco|foundry|juniper)/); push(@rtrlist, join(':', ($record[0], $record[1]))); $rtrlabels{join(':', ($record[0], $record[1]))} = $record[0]; } @@ -91,7 +104,7 @@ sub readrouters next if (/^\s*(#|$)/); # fqdn:mfg:state @record = split('\:', $_); - next if ($record[2] !~ /up/i || $record[1] !~ /(cisco|juniper)/); + next if ($record[2] !~ /up/i || $record[1] !~ /(cisco|foundry|juniper)/); push(@rtrlist, join(':', ($record[0], $record[1]))); $rtrlabels{join(':', ($record[0], $record[1]))} = $record[0]; } @@ -140,14 +153,16 @@ print <<QTYPES ; <dd><input type=radio name="query" value="framerelay">show frame-relay pvc [DLCI]</DD> <dd><input type=radio name="query" value="interface">show interface <interface></DD> <dd><input type=radio name="query" value="prefix">show ip bgp <prefix> [netmask]</DD> +<dd><input type=radio name="query" value="neighbor">show ip bgp neighbor <IP_addr></DD> <dd><input type=radio name="query" value="regex">show ip bgp regex <reg_exp></DD> <dd><input type=radio name="query" value="summary">show ip bgp summary</DD> <dd><input type=radio name="query" value="damp">show ip bgp dampened-paths</DD> <dd><input type=radio name="query" value="prefixlist">show ip prefix-list <list_name></DD> <dd><input type=radio name="query" value="route">show ip route <prefix> [netmask]</DD> +<dd><input type=radio name="query" value="routemap">show route-map <map_name></DD> <dd><input type=radio name="query" value="mbgp">show ip mbgp <prefix> [netmask]</dd> <dd><input type=radio name="query" value="mbgpsum">show ip mbgp summary</dd> -<dd><input type=radio name="query" value="log">show logging [| <match_string>]</DD> +<dd><input type=radio name="query" value="log">show logging [ | <match_string>]</DD> <dd><input type=radio name="query" value="ping">ping <IP_addr | FQDN></dd> <dd><input type=radio name="query" value="trace">traceroute <IP_addr | FQDN></DD> @@ -159,14 +174,6 @@ print <<QTYPES ; <dd> QTYPES -# unimplemented/disabled/removed query types. -# -# <dd>show ip bgp neighbor <IP_addr></dd> -# <dd>show ip bgp neighbor <IP_addr> advertised routes</dd> -# <dd>show ip bgp neighbor <IP_addr> flap statistics</dd> -# <dd>show ip bgp neighbor <IP_addr> received</dd> -# <dd>show ip bgp neighbor <IP_addr> routes</dd> -# # <dd><input type=radio name="query" value="aspath">sh ip as-path-access-list <list_number></DD> # <dd><input type="radio" name="query" value="acl">sh access-list <list_number></dd> # <dd><input type=radio name="query" value="communitylist">sh ip community-list <list_number><DD> |