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
|
package Smokeping::sorters::Loss;
=head1 NAME
Smokeping::sorters::Loss - Order the target charts by loss
=head1 OVERVIEW
Find the charts with the highest loss.
=head1 DESCRIPTION
Call the sorter in the charts section of the config file
+ charts
menu = Charts
title = The most interesting destinations
++ loss
sorter = Loss(entries=>10)
title = The Loosers
menu = Loss
format = Packets Lost %f
=head1 COPYRIGHT
Copyright (c) 2007 by OETIKER+PARTNER AG. All rights reserved.
=head1 LICENSE
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
=head1 AUTHOR
Tobias Oetiker <tobi@oetiker.ch>
=cut
use strict;
use base qw(Smokeping::sorters::base);
use vars qw($VERSION);
$VERSION = 1.0;
use Carp;
# how many values does the matcher need to do it's magic
sub new(@) {
my $class = shift;
my $rules = {
entries => '\d+'
};
my $self = $class->SUPER::new( $rules, @_ );
return $self;
}
sub Desc ($) {
return "The Median sorter sorts the targets by Median RTT.";
}
sub CalcValue($) {
my $self = shift;
my $info = shift;
# $info = { uptime => w,
# loss => x,
# median => y,
# alert => z, (0/1)
# pings => [qw(a b c d)]
#
return $info->{loss} ? $info->{loss} : -1;
}
|
