summaryrefslogtreecommitdiffstats
path: root/lib/Smokeping/probes
diff options
context:
space:
mode:
authorTobi Oetiker <tobi@oetiker.ch>2011-09-11 12:05:31 +0200
committerTobi Oetiker <tobi@oetiker.ch>2011-09-11 12:05:31 +0200
commit4f079b6837b7698dc92fadebd92dd90dd55ea443 (patch)
treef188e7611f6008c07ca77f1b048932e4b6cd4040 /lib/Smokeping/probes
parent664349b51b620cee8afbbd94dff00f8998f86014 (diff)
downloadsmokeping-4f079b6837b7698dc92fadebd92dd90dd55ea443.tar.gz
smokeping-4f079b6837b7698dc92fadebd92dd90dd55ea443.tar.xz
initial junos probe
Diffstat (limited to 'lib/Smokeping/probes')
-rw-r--r--lib/Smokeping/probes/OpenSSHJunoOSPing.pm182
1 files changed, 182 insertions, 0 deletions
diff --git a/lib/Smokeping/probes/OpenSSHJunoOSPing.pm b/lib/Smokeping/probes/OpenSSHJunoOSPing.pm
new file mode 100644
index 0000000..ce741f8
--- /dev/null
+++ b/lib/Smokeping/probes/OpenSSHJunoOSPing.pm
@@ -0,0 +1,182 @@
+package Smokeping::probes::OpenSSHJunoOSPing;
+
+=head1 301 Moved Permanently
+
+This is a Smokeping probe module. Please use the command
+
+C<smokeping -man Smokeping::probes::TelnetJunOSPing>
+
+to view the documentation or the command
+
+C<smokeping -makepod Smokeping::probes::TelnetJunOSPing>
+
+to generate the POD document.
+
+=cut
+
+use strict;
+
+use base qw(Smokeping::probes::basefork);
+use Net::OpenSSH;
+use Carp;
+
+my $e = "=";
+sub pod_hash {
+ return {
+ name => <<DOC,
+Smokeping::probes::OpenSSHJunoOSPing - Juniper SSH JunOS Probe for SmokePing
+DOC
+ description => <<DOC,
+Connect to Juniper JunOS via OpenSSH to run ping commands.
+This probe uses the "extended ping" of the Juniper JunOS. You have
+the option to specify which interface the ping is sourced from as well.
+DOC
+ notes => <<DOC,
+${e}head2 JunOS configuration
+
+The JunOS device should have a username/password configured, as well as
+the ability to connect to the VTY(s).
+
+Some JunOS devices have a maximum of 5 VTYs available, so be careful not
+to hit a limit with the 'forks' variable.
+
+${e}head2 Requirements
+
+This module requires the L<Net::OpenSSH> and L<IO::Pty>.
+DOC
+ authors => <<'DOC',
+Tobias Oetiker L<lt>tobi@oetiker.chL<gt>
+
+based on L<Smokeping::probes::TelnetJunOSPing> by S H A N L<lt>shanali@yahoo.comL<gt>.
+DOC
+ }
+}
+
+sub new($$$)
+{
+ my $proto = shift;
+ my $class = ref($proto) || $proto;
+ my $self = $class->SUPER::new(@_);
+
+ # no need for this if we run as a cgi
+ unless ( $ENV{SERVER_SOFTWARE} ) {
+ $self->{pingfactor} = 1000; # Gives us a good-guess default
+ print "### assuming you are using an JunOS reporting in miliseconds\n";
+ };
+
+ return $self;
+}
+
+sub ProbeDesc($){
+ my $self = shift;
+ my $bytes = $self->{properties}{packetsize};
+ return "Juniper JunOS - ICMP Echo Pings ($bytes Bytes)";
+}
+
+sub pingone ($$){
+ my $self = shift;
+ my $target = shift;
+ my $source = $target->{vars}{source};
+ my $dest = $target->{vars}{host};
+ my $psource = $target->{vars}{psource};
+ my @output = ();
+ my $login = $target->{vars}{junosuser};
+ my $password = $target->{vars}{junospass};
+ my $bytes = $self->{properties}{packetsize};
+ my $pings = $self->pings($target);
+
+ # do NOT call superclass ... the ping method MUST be overwriten
+ my %upd;
+ my @args = ();
+
+ my $ssh = Net::OpenSSH->new(
+ $source,
+ $login ? ( user => $login ) : (),
+ $password ? ( password => $password ) : (),
+ timeout => 60
+ );
+ if ($ssh->error) {
+ warn "OpenSSHJunoOSPing connecting $source: ".$ssh->error."\n";
+ return undef;
+ };
+
+ if ( $psource ) {
+ @output = $ssh->capture("ping $dest count $pings size $bytes source $psource");
+ } else {
+ @output = $ssh->capture("ping $dest count $pings size $bytes");
+ }
+ $ssh->system("quit");
+
+ my @times = ();
+ for (@output){
+ chomp;
+ /^\d+ bytes from $dest: icmp_seq=\d+ ttl=\d+ time=(\d+\.\d+) ms$/ and push @times,$1;
+ }
+ @times = map {sprintf "%.10e", $_ / $self->{pingfactor}} sort {$a <=> $b} @times;
+ return @times;
+}
+
+sub probevars {
+ my $class = shift;
+ return $class->_makevars($class->SUPER::probevars, {
+ packetsize => {
+ _doc => <<DOC,
+The (optional) packetsize option lets you configure the packetsize for
+the pings sent.
+DOC
+ _default => 100,
+ _re => '\d+',
+ _sub => sub {
+ my $val = shift;
+ return "ERROR: packetsize must be between 12 and 64000"
+ unless $val >= 12 and $val <= 64000;
+ return undef;
+ },
+ },
+ });
+}
+
+sub targetvars {
+ my $class = shift;
+ return $class->_makevars($class->SUPER::targetvars, {
+ _mandatory => [ 'junosuser', 'junospass', 'source' ],
+ source => {
+ _doc => <<DOC,
+The source option specifies the JunOS device that is going to run the ping commands. This
+address will be used for the ssh connection.
+DOC
+ _example => "192.168.2.1",
+ },
+ psource => {
+ _doc => <<DOC,
+The (optional) psource option specifies an alternate IP address or
+Interface from which you wish to source your pings from. Routers
+can have many many IP addresses, and interfaces. When you ping from a
+router you have the ability to choose which interface and/or which IP
+address the ping is sourced from. Specifying an IP/interface does not
+necessarily specify the interface from which the ping will leave, but
+will specify which address the packet(s) appear to come from. If this
+option is left out the JunOS Device will source the packet automatically
+based on routing and/or metrics. If this doesn't make sense to you
+then just leave it out.
+DOC
+ _example => "192.168.2.129",
+ },
+ junosuser => {
+ _doc => <<DOC,
+The junosuser option allows you to specify a username that has ping
+capability on the JunOS Device.
+DOC
+ _example => 'user',
+ },
+ junospass => {
+ _doc => <<DOC,
+The junospass option allows you to specify the password for the username
+specified with the option junosuser.
+DOC
+ _example => 'password',
+ },
+ });
+}
+
+1;