]> git.proxmox.com Git - mirror_frr.git/blob - tools/zc.pl
Merge pull request #3680 from opensourcerouting/ospf6-fix-mcast
[mirror_frr.git] / tools / zc.pl
1 #!/usr/bin/env 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 }