The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

VINSWORLD / Cisco-Management-0.02-w / bin / cisco-line.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
—
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157

              
#!/usr/bin/perl
use strict;
use Cisco::Management;
use Getopt::Long qw(:config no_ignore_case); #bundling
use Pod::Usage;
my %opt;
my ($opt_help, $opt_man);
GetOptions(
  'community=s' => \$opt{'community'},
  'Clear!'      => \$opt{'clear'},
  'lines=s'     => \$opt{'lines'},
  'message=s'   => \$opt{'message'},
  'quantity!'   => \$opt{'quantity'},
  'help!'       => \$opt_help,
  'man!'        => \$opt_man
) or pod2usage(-verbose => 0);
pod2usage(-verbose => 1) if defined $opt_help;
pod2usage(-verbose => 2) if defined $opt_man;
# Make sure at least one host was provided
if (!@ARGV) {
    pod2usage(-verbose => 0, -message => "$0: host required\n")
}
$opt{'community'} = $opt{'community'} || 'private';
for (@ARGV) {
    print "\n-- $_ --\n";
    my $cm;
    if (!defined($cm = Cisco::Management->new(
                              hostname  => $_,
                              community => $opt{'community'}
                             ))) {
        printf "Error: %s\n", Cisco::Management->error;
        next
    }
    if (defined($opt{'quantity'})) {
        if (defined(my $lines = $cm->line_numberof())) {        
            print "$_: Lines = $lines\n"
        } else {
            printf "Error: %s\n", Cisco::Management->error
        }
    }
    if (defined($opt{'message'})) {
        my %params;
        if (defined($opt{'lines'}))   { $params{'lines'}   = $opt{'lines'}   }
        if (defined($opt{'message'})) { $params{'message'} = $opt{'message'} }
        if (defined(my $lines = $cm->line_message(%params))) {        
            print "$_: Messaged lines = @{$lines}\n"
        } else {
            printf "Error: %s\n", Cisco::Management->error
        }
    }
    if (defined($opt{'clear'})) {
        my %params;
        if (defined($opt{'lines'})) { $params{'lines'} = $opt{'lines'} }
        if (defined(my $lines = $cm->line_clear(%params))) {        
            print "$_: Cleared lines = @{$lines}\n"
        } else {
            printf "Error: %s\n", Cisco::Management->error
        }
    }
    if ((!defined($opt{'quantity'})) && 
        (!defined($opt{'message'} )) && 
        (!defined($opt{'clear'}   ))) {
        if (defined(my $lines = $cm->line_info())) {
            my $sessions = $cm->line_sessions();
            print "Line Type Active\n";
            print "----------------\n";
            for my $line (sort {$a <=> $b} (keys(%{$lines}))) {
                printf "%4i %-5s   ", 
                    $line, 
                    $lines->{$line}->{Type};
                if ($lines->{$line}->{Active} == 1) {
                    print "YES";
                    if (exists($sessions->{$line})) {
                        for (0..$#{$sessions->{$line}}) {
                            print " ($sessions->{$line}->[$_]->{'Type'}://$sessions->{$line}->[$_]->{'Address'} [$sessions->{$line}->[$_]->{'Direction'}])"
                        }
                    }
                } else {
                    print " NO"
                }
                print "\n"
            }
        } else {
            printf "Error: %s\n", Cisco::Management->error
        }
    }
    $cm->close()
}
__END__
########################################################
# Start POD
########################################################
=head1 NAME
CISCO-LINE - Cisco Line Manager
=head1 SYNOPSIS
 cisco-line [options] host [...]
=head1 DESCRIPTION
Perform management tasks on console and terminal lines of provided 
hosts.  Management through SMMP using C<OLD-CISCO-TS-MIB>.
=head1 ARGUMENTS
 host             The Cisco device to manage.
=head1 OPTIONS
 -c <snmp_rw>     SNMP read/write community.
 --community      DEFAULT:  (or not specified) 'private'.
 -C               Clear lines.
 --Clear
 -l <range>       Lines to operate on.  Number for single line, 
 --lines          range for multiple lines.  Range uses , and - 
                  for individual and all inclusive.
                  DEFAULT:  (or not specified) [all].
 -me <text>       Message to send.  Use double-quotes to delimit a 
 --message        string with spaces.
 -q               Print number of lines on device.
 --quantity
=head1 LICENSE
This software is released under the same terms as Perl itself.
If you don't know what that means visit L<http://perl.com/>.
=head1 AUTHOR
Copyright (C) Michael Vincent 2010
L<http://www.VinsWorld.com>
All rights reserved
=cut