Return to zc.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / quagga / tools

quagga

    1: #! /usr/bin/perl
    2: ##
    3: ## Zebra interactive console
    4: ## Copyright (C) 2000 Vladimir B. Grebenschikov <vova@express.ru>
    5: ##
    6: ## This file is part of GNU Zebra.
    7: ##
    8: ## GNU Zebra is free software; you can redistribute it and/or modify it
    9: ## under the terms of the GNU General Public License as published by the
   10: ## Free Software Foundation; either version 2, or (at your option) any
   11: ## later version.
   12: ##
   13: ## GNU Zebra is distributed in the hope that it will be useful, but
   14: ## WITHOUT ANY WARRANTY; without even the implied warranty of
   15: ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   16: ## General Public License for more details.
   17: ##
   18: ## You should have received a copy of the GNU General Public License
   19: ## along with GNU Zebra; see the file COPYING.  If not, write to the
   20: ## Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   21: ## Boston, MA 02111-1307, USA.
   22: 
   23: use Net::Telnet ();
   24: use Getopt::Std;
   25: 
   26: #use strict;
   27: 
   28: my $host = `hostname -s`; $host =~ s/\s//g;
   29: my $port = 'zebra';
   30: my $server = 'localhost';
   31: 
   32: # Check arguments
   33: &getopts ('l:e:czborh');
   34: 
   35: &usage () if $opt_h;
   36: 
   37: # main 
   38: {
   39:   my $login_pass = $opt_l || $ENV{ZEBRA_PASSWORD} || 'zebra';
   40:   my $enable_pass = $opt_e || $ENV{ZEBRA_ENABLE} || '';
   41: 
   42:   my $port = ($opt_z ? 'zebra' : 0) ||
   43: 	     ($opt_b ? 'bgpd' : 0) ||
   44:              ($opt_o ? 'ospfd' : 0) ||
   45: 	     ($opt_r ? 'ripd' : 0) || 'zebra';
   46: 
   47:   my $cmd = join (' ', @ARGV);
   48: 
   49:   my $t = new Net::Telnet (Timeout => 10,
   50: 			   Prompt  => '/[\>\#] $/',
   51: 			   Port    => $port);
   52: 
   53:   $t->open ($server);
   54: 
   55:   $t->cmd ($login_pass);
   56:   if ($enable_pass) {
   57:       $t->cmd (String => 'en',
   58: 	       Prompt => '/Password: /');
   59:       $t->cmd ($enable_pass);
   60:   }
   61:   $t->cmd ('conf t') if "$opt_c";
   62: 
   63:   if ($cmd)
   64:     {
   65:       docmd ($t, $cmd);
   66:       exit (0); 
   67:     }
   68: 
   69:   my $prompt = sprintf ("%s%s# ", $host,
   70: 			($port eq 'zebra') ? '' : "/$port");
   71: 
   72:   print "\nZEBRA interactive console ($port)\n\n" if -t STDIN;
   73: 
   74:   while (1)
   75:     {
   76:       $| = 1;
   77:       print $prompt if -t STDIN;
   78:       chomp ($cmd = <>);
   79:       if (!defined ($cmd))
   80:         {
   81: 	  print "\n" if -t STDIN;
   82: 	  exit(0);
   83:         }
   84:       exit (0) if ($cmd eq 'q' || $cmd eq 'quit');
   85:  
   86:       docmd ($t, $cmd) if $cmd !~ /^\s*$/;
   87:     }
   88: 
   89:   exit(0);
   90: }
   91: 
   92: sub docmd
   93: {
   94:   my ($t, $cmd) = @_;
   95:   my @lines = $t->cmd ($cmd);
   96:   print join ('', grep (!/[\>\#] $/, @lines)), "\n";
   97: }
   98: 
   99: sub usage
  100: {
  101:   print "USAGE: $0 [-l LOGIN_PASSWORD] [-e ENABLE_PASSWORD] [-z|-b|-o|-r|-h] [<cmd>]\n",
  102:         "\t-l - specify login password\n",
  103:         "\t-e - specify enable password\n",
  104:         "\t-c - execute command in configure mode\n",
  105:         "\t-z - connect to zebra daemon\n",
  106:         "\t-b - connect to bgpd  daemon\n",
  107:         "\t-o - connect to ospfd daemon\n",
  108:         "\t-r - connect to ripd  daemon\n",
  109:         "\t-h - help\n";
  110:   exit (1);
  111: }