[smokeping-users] smokeping-users Digest, Vol 137, Issue 1

Tony DeMatteis tonydema at gmail.com
Fri Sep 21 17:08:33 CEST 2018


Greetings,

Is there anyone out there that might help shed some insight on my issue I
raised?  Thank you so much.

On Thu, Sep 6, 2018 at 3:00 AM <smokeping-users-request at lists.oetiker.ch>
wrote:

> Send smokeping-users mailing list submissions to
>         smokeping-users at lists.oetiker.ch
>
> To subscribe or unsubscribe via the World Wide Web, visit
>         https://lists.oetiker.ch/cgi-bin/listinfo/smokeping-users
> or, via email, send a message with subject or body 'help' to
>         smokeping-users-request at lists.oetiker.ch
>
> You can reach the person managing the list at
>         smokeping-users-owner at lists.oetiker.ch
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of smokeping-users digest..."
>
>
> Today's Topics:
>
>    1. Smokeping::probes::basefork:ping fails (Tony DeMatteis)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Wed, 5 Sep 2018 07:32:47 -0700
> From: Tony DeMatteis <tonydema at gmail.com>
> To: smokeping-users at lists.oetiker.ch
> Subject: [smokeping-users] Smokeping::probes::basefork:ping fails
> Message-ID:
>         <
> CAGKb9AFeKsysMP+yYDxErj4F8A3dU3mcMhrp2OD+7HPtKPLENg at mail.gmail.com>
> Content-Type: text/plain; charset="utf-8"
>
> Greetings,
>
> I have been attempting to debug an issue with a custom probe I've written
> based off the TelnetIOSPing probe.  The probe returns an array of ping
> results to the caller, Smokeping::probes::basefork::ping, but the "$result"
> variable read in the caller equals "interrupted".  I have been unable to
> get any further with identifying why this is the case.  I'm not an active
> perl programmer but drawing on some older experience.  I've included what I
> believe to be the pertinent code and some debug output; the values of the
> ping @output and  the @times array both before and after the processor
> which formats the times to values for RRD.  Perhaps it's something obvious
> and I apologize for that.  Any help pointing me in the right direction
> would be great.  Thank you
>
> The probe connects to a Mikrotik Router via SSH and retrieves ping stats.
> Then it parses the result with the exact same code as from the
> TelnetIOSPing probe.
>
> *# /usr/share/perl5/Smokeping/probes/base.pm <http://base.pm/>*
> *# The only modification to the base.pm <http://base.pm/> code is the
> do_debug statements*
>
>     while ($s->handles and $timeleft > 0) {
>       for my $ready ($s->can_read($timeleft)) {
>         $s->remove($ready);
>         my $response = <$ready>;
>         close $ready;
>
> *$self->do_debug("Returned from probe");*
> *$self->do_debug(Dumper \$response);  <--- Result = 'interrupted'*
>
>         chomp $response;
>         my @times = split(/ /, $response);
>         my $target = $targetlookup{$ready};
>         my $tree = $target->{tree};
>         $self->{rtts}{$tree} = \@times;
>
>         $self->do_debug("$target->{addr}: got $response");
>       }
>       $timeleft = $timeout - (time() - $starttime);
>     }
>
> *# /usr/share/perl5/Smokeping/probes/MikrotikRouterOSPing.pm*
> ...
>   #
>   # Get ping stats
>   #
>   if ( $psource ) {
>     @output = $ssh->capture("ping $dest count=$pings size=$bytes
> src-address=$psource");
>   } else {
>     @output = $ssh->capture("ping $dest count=$pings size=$bytes");
>   }
>   $ssh->system("quit");
>
> # DEBUG - Log raw result
> logit("MikrotikRouterOSPing Raw result from host:");
> logit(@output);
>
>   my @times = ();
>   while (@output) {
>     my $outputline = shift @output;
>     chomp($outputline);
>     $outputline =~ /(\d)ms/ && push(@times,$1);
>   }
>
> logit("MikrotikRouterOSPing \@times[] Pre Preprocessing.");
> logit(@times);
>
>   @times = map {sprintf "%.10e", $_ / $self->{pingfactor}} sort {$a <=> $b}
> @times;
>
> # DEBUG - Pings Post processing
> logit("MikrotikRouterOSPing Pings Post Preprocessing.  Returning this to
> caller:");
> logit(@times);
>
> my $parent = getcaller();
> logit("MikrotikRouterOSPing Returning ping times to $parent");
>
>   return @times;
> }
>
> *# Debug Logging results*
>
> MikrotikRouterOSPing Raw result from host:
> -------------------[ DEBUG ]---------------------
> $VAR1 = [
> ',        '  SEQ HOST                                     SIZE TTL TIME
> STATUS
> ',        '    0 8.8.8.8                                56 255 7ms
> ',        '    1 8.8.8.8                                56 255 9ms
> ',        '    2 8.8.8.8                                56 255 5ms
> ',        '    3 8.8.8.8                                56 255 8ms
> ',        '    4 8.8.8.8                                56 255 9ms
> ',        '    5 8.8.8.8                                56 255 9ms
> ',        '    6 8.8.8.8                                56 255 8ms
> ',        '    7 8.8.8.8                                56 255 10ms
> ',        '    8 8.8.8.8                                56 255 7ms
> ',        '    9 8.8.8.8                                56 255 9ms
> ',        '   10 8.8.8.8                                56 255 7ms
> ',        '   11 8.8.8.8                                56 255 10ms
> ',        '   12 8.8.8.8                                56 255 7ms
> ',        '   13 8.8.8.8                                56 255 9ms
> ',        '   14 8.8.8.8                                56 255 7ms
> ',        '   15 8.8.8.8                                56 255 8ms
> ',        '   16 8.8.8.8                                56 255 8ms
> ',        '   17 8.8.8.8                                56 255 8ms
> ',        '   18 8.8.8.8                                56 255 8ms
> ',        '   19 8.8.8.8                                56 255 9ms
> ',        '    sent=20 received=20 packet-loss=0% min-rtt=5ms avg-rtt=8ms
> max-rtt=10ms
> '         '
>         ];
> MikrotikRouterOSPing @times[] Pre Preprocessing.
> -------------------[ DEBUG ]---------------------
> $VAR1 = [
>           '7',
>           '9',
>           '5',
>           '8',
>           '9',
>           '9',
>           '8',
>           '0',
>           '7',
>           '9',
>           '7',
>           '0',
>           '7',
>           '9',
>           '7',
>           '8',
>           '8',
>           '8',
>           '8',
>           '9',
>           '5'
>         ];
> MikrotikRouterOSPing Pings Post Preprocessing.  Returning this to caller:
> -------------------[ DEBUG ]---------------------
> $VAR1 = [
>           '0.0000000000e+00',
>           '0.0000000000e+00',
>           '5.0000000000e-03',
>           '5.0000000000e-03',
>           '7.0000000000e-03',
>           '7.0000000000e-03',
>           '7.0000000000e-03',
>           '7.0000000000e-03',
>           '7.0000000000e-03',
>           '8.0000000000e-03',
>           '8.0000000000e-03',
>           '8.0000000000e-03',
>           '8.0000000000e-03',
>           '8.0000000000e-03',
>           '8.0000000000e-03',
>           '9.0000000000e-03',
>           '9.0000000000e-03',
>           '9.0000000000e-03',
>           '9.0000000000e-03',
>           '9.0000000000e-03',
>           '9.0000000000e-03'
>         ];
> MikrotikRouterOSPing Returning ping times to
> Smokeping::probes::basefork::ping
> Thu Aug 30 15:22:50 2018 - MikrotikRouterOSPing: Returned from probe
> *Thu Aug 30 15:22:50 2018 - MikrotikRouterOSPing: $VAR1 =
> \'interrupted**';*
> *Thu Aug 30 15:22:50 2018 - MikrotikRouterOSPing: 8.8.8.8
> <http://8.8.8.8/>: got interrupted*
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL: <
> http://lists.oetiker.ch/pipermail/smokeping-users/attachments/20180905/c6ad1ab0/attachment-0001.html
> >
>
> ------------------------------
>
> Subject: Digest Footer
>
> _______________________________________________
> smokeping-users mailing list
> smokeping-users at lists.oetiker.ch
> https://lists.oetiker.ch/cgi-bin/listinfo/smokeping-users
>
>
> ------------------------------
>
> End of smokeping-users Digest, Vol 137, Issue 1
> ***********************************************
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.oetiker.ch/pipermail/smokeping-users/attachments/20180921/c97f3ccb/attachment.html>


More information about the smokeping-users mailing list