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.
diff --git a/tools/mrlg.cgi b/tools/mrlg.cgi
deleted file mode 100755
index ac468ee..0000000
--- a/tools/mrlg.cgi
+++ /dev/null
@@ -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>";
-}
-
-
-
diff --git a/tools/mrlg.txt b/tools/mrlg.txt
new file mode 100644
index 0000000..0ebf7ee
--- /dev/null
+++ b/tools/mrlg.txt
@@ -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.