tools/mrlg.cgi - quagga - Gitiles

 #!/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>";
 }
	#!/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>";
	}