#!/usr/bin/perl
##
## Zebra Looking Glass version 1.0
## 01 FEB 2000
## Copyright (C) 2000 John W. Fraizer III <john.fraizer@enterzone.net>
## *All* copyright notices must remain in place to use this code.
##
## The latest version of this code is available at:
## ftp://ftp.enterzone.net/looking-glass/
##
##
## This file is part of GNU Zebra.
##
## GNU Zebra is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by the
## Free Software Foundation; either version 2, or (at your option) any
## later version.
##
## GNU Zebra is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with GNU Zebra; see the file COPYING. If not, write to the
## Free Software Foundation, Inc., 59 Temple Place - Suite 330,
## Boston, MA 02111-1307, USA.
require 5.002;
use POSIX;
use Net::Telnet ();
## Set the URL for your site.
$url="http://www.sample.com/mrlg.cgi";
## Set your router variables in sub set_router and modify the selections in Main to match.
############################################################
#Main
############################################################
{
## Set the router default
@Form{'router'} = "router1";
## Get the form results now so we can override the default router
get_form();
print "Content-type: text/html\n\n";
print '
<html>
<head>
<title>Multi-Router Looking Glass for Zebra</title>
</head>
<body bgcolor=white>
<font face=arial size=3 color=blue>
<h1>Multi-Router Looking Glass for Zebra</h1>
Copyright 2000 - John Fraizer, EnterZone Inc.
<br>
';
print '
<font color=black>
';
print "<form METHOD=\"POST\" action=\"$url\">\n";
print "<B>Router:</B> <SELECT Name=\"router\" Size=1>\n";
print "<OPTION Value=\"$Form{'router'}\">$Form{'router'}\n";
print '
<OPTION Value="router1">router1
<OPTION Value="router2">router2
<OPTION Value="router3">router3
<OPTION Value="router4">router4
</select>
<br><br>
<B>Query</B>:
<br>
<input type=radio name=query value=1>show ip bgp<br>
<input type=radio name=query value=2>show ip bgp summary<br>
<input type=radio name=query value=3>show ip route<br>
<input type=radio name=query value=4>show interface<br>
<input type=radio name=query value=5>show ipv6 bgp<br>
<input type=radio name=query value=6>show ipv6 bgp summary<br>
<input type=radio name=query value=7>show ipv6 route<br>
<br>
<B>Argument:</B> <input type=text name=arg length=20 maxlength=60>
<input type="submit" value="Execute"></form>
';
## Set up the address, pw and ports, etc for the selected router.
set_router();
## Set up which command is to be executed (and then execute it!)
set_command();
print '
<br><br>
</font>
<font color=blue face=arial size=2>
Multi-Router Looking Glass for Zebra version 1.0<br>
Written by: John Fraizer -
<a href="http://www.ez-hosting.net/">EnterZone, Inc</a><br>
Source code: <a href="ftp://ftp.enterzone.net/looking-glass/">ftp://ftp.enterzone.net/looking-glass/</a>
</body>
</html>
';
## All done!
exit (0);
}
############################################################
sub get_form
############################################################
{
#read STDIN
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
# For each name-value pair:
foreach $pair (@pairs)
{
# Split the pair up into individual variables.
local($name, $value) = split(/=/, $pair);
# Decode the form encoding on the name and value variables.
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# If they try to include server side includes, erase them, so they
# aren't a security risk if the html gets returned. Another
# security hole plugged up.
$value =~ s/<!--(.|\n)*-->//g;
@Form{$name} = $value ;
}
}
############################################################
sub set_router
############################################################
## $server is the IP address of the router running zebra
## $login_pass is the password of the router
## $bgpd is the port that bgpd will answer on
## $zebra is the port that zebra will answer on
## if $zebra is "", it will disable sh ip route and sh int for that router.
## if $full_tables is set to "1" for a router, full BGP and IP ROUTE table dumps will be allowed via the looking glass.
## This is a BAD thing to do if you have multiple full views on a router. That's why the option is there.
{
if ($Form{'router'} eq 'router1')
{
$server = '10.1.1.1';
$login_pass = 'zebra';
$bgpd = "2605";
$zebra = "";
$full_tables=1;
}
elsif ($Form{'router'} eq 'router2')
{
$server = '10.1.1.2';
$login_pass = 'zebra';
$bgpd = "2605";
$zebra = "2601";
}
elsif ($Form{'router'} eq 'router3')
{
$server = '10.1.1.3';
$login_pass = 'zebra';
$bgpd = "2605";
$zebra = "2601";
$full_tables=1;
}
elsif ($Form{'router'} eq 'router4')
{
$server = '10.1.1.4';
$login_pass = 'zebra';
$bgpd = "2605";
$zebra = "2601";
}
}
############################################################
sub set_command
############################################################
{
if ($Form{'query'} eq '1')
{
sh_ip_bgp('ip');
}
elsif ($Form{'query'} eq '2')
{
sh_ip_bgp_sum('ip');
}
if ($Form{'query'} eq '3')
{
sh_ip_route('ip');
}
if ($Form{'query'} eq '4')
{
sh_int();
}
if ($Form{'query'} eq '5')
{
sh_ip_bgp('ipv6');
}
if ($Form{'query'} eq '6')
{
sh_ip_bgp_sum('ipv6');
}
if ($Form{'query'} eq '7')
{
sh_ip_route('ipv6');
}
}
############################################################
sub sh_ip_bgp
############################################################
{
my $protocol = shift(@_);
$port = $bgpd;
if ($protocol ne 'ip' && $protocol ne 'ipv6')
{
print "Invalid protocol: $protocol\n";
print "protocol must be 'ip' or 'ipv6'\n\n";
return;
}
$command = "show $protocol bgp $Form{'arg'}";
if ($Form{'arg'} eq '')
{
if ($full_tables eq '1')
{
execute_command();
}
else
{
print "Sorry. Displaying the FULL routing table would put too much load on the router!\n\n";
}
}
else
{
execute_command();
}
}
############################################################
sub sh_ip_bgp_sum
############################################################
{
my $protocol = shift(@_);
$port = $bgpd;
if ($protocol ne 'ip' && $protocol ne 'ipv6')
{
print "Invalid protocol: $protocol\n";
print "protocol must be 'ip' or 'ipv6'\n\n";
return;
}
$command = "show $protocol bgp summary";
execute_command();
}
############################################################
sub sh_ip_route
############################################################
{
if ($zebra eq '')
{
print "Sorry. The <b>show ip route</b> command is disabled for this router."
}
else
{
$port = $zebra;
my $protocol = shift(@_);
if ($protocol ne 'ip' && $protocol ne 'ipv6')
{
print "Invalid protocol: $protocol\n";
print "protocol must be 'ip' or 'ipv6'\n\n";
return;
}
$command = "show $protocol route $Form{'arg'}";
if ($Form{'arg'} eq '')
{
if ($full_tables eq '1')
{
execute_command();
}
else
{
print "Sorry. Displaying the FULL routing table would put too much load on the router!\n\n";
}
}
else
{
execute_command();
}
}
}
############################################################
sub sh_int
############################################################
{
if ($zebra eq '')
{
print "Sorry. The <b>show interface</b> command is disabled for this router."
}
else
{
$port = $zebra;
$command = "show interface $Form{'arg'}";
execute_command();
}
}
############################################################
sub execute_command
############################################################
## This code is based on:
##
## Zebra interactive console
## Copyright (C) 2000 Vladimir B. Grebenschikov <vova@express.ru>
##
{
print "Executing command = $command";
# my $port = ($opt_z ? 'zebra' : 0) ||
# ($opt_b ? 'bgpd' : 0) ||
# ($opt_o ? 'ospfd' : 0) ||
# ($opt_r ? 'ripd' : 0) || 'bgpd';
my $cmd = $command;
my $t = new Net::Telnet (Timeout => 10,
Prompt => '/[\>\#] $/',
Port => $port);
$t->open ($server);
$t->cmd ($login_pass);
if ($cmd)
{
docmd ($t, $cmd);
}
}
############################################################
sub docmd
############################################################
{
my ($t, $cmd) = @_;
my @lines = $t->cmd ($cmd);
print "<pre>\n";
print join ('', grep (!/[\>\#] $/, @lines)), "\n";
print "</pre>";
}
