Home Explore Help
Register Sign In
Quagga
/
quagga-github-mirror
mirror of https://github.com/Quagga/quagga
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

mrlg: Remove obsolete version.

* mrlg.cgi: The version we shipped was very much  out of date, remove it.
* mrlg.txt: Add file pointing to the official MRLG site.
Paul Jakma 5 years ago
parent
f80ba04074
commit
9562a7774b
2 changed files with 5 additions and 395 deletions
Split View Show Diff Stats
  1. 0 395
      tools/mrlg.cgi
  2. 5 0
      tools/mrlg.txt

+ 0 - 395
tools/mrlg.cgi
View File 

@@ -1,395 +0,0 @@
 
-#!/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>";
 
-}
 
-
 
-
 
-

+ 5 - 0
tools/mrlg.txt
View File 

@@ -0,0 +1,5 @@
 
+The Multi-Router Looking Glass (MRLG) CGI script now lives at:
 
+
 
+  http://mrlg.op-sec.us/
 
+
 
+Please obtain the latest version from there.