[go: up one dir, main page]
Menu ▾ ▴

[6fd79d]: / custom.pl  Maximize  Restore  History

Download this file

73 lines (60 with data), 2.1 kB 

 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
#!/usr/bin/perl -w

###############################################################################

#    Webmin Sysstats - custom.pl

#

#    Webmin Sysstats Module

#    Copyright (C) 2002 by Eric Gerbier

#    Bug reports to: gerbier@users.sourceforge.net

#    $Id$

#

#    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.

#

###############################################################################



use strict;

use warnings;



# to be used alone or from sysstat.pl without warning

# because require verify the path

if ( !exists $ENV{WEBMINSTAT_TEMP} ) {

	use FindBin;

	use lib "$FindBin::Bin/../..";

	## no critic (RequireBarewordIncludes)

	require 'sysstats-aquisition-lib.pl';

	## use critic

}



use RRDs;



###############################################################################



my %config;

read_file_cached( 'config', \%config );



my $param      = 'custom';

my $custom_num = 1;



while ( exists $config{ $param . $custom_num } ) {

	my @tab = split /,/, $config{ $param . $custom_num };



	my $real_custom_num = $tab[0];

	my $custom_name     = $tab[1];

	my $custom_cmd      = $tab[2];

	my $runstop         = $tab[4];



	my $total = 'U';



	if ( is_param_runstop($runstop) ) {

		## no critic (ProhibitBacktickOperators)

		$total = `$custom_cmd`;

		## use critic

		chomp $total;

	}

	else {

		debug("custom $custom_name disable");

	}

	debug("custom $custom_name ($real_custom_num $custom_cmd): total=$total");



	my $rrdbase = $real_custom_num . '.rrd';



	RRDs::update( $rrdbase, "N:$total" );

	my $ERR = RRDs::error();

	warning("ERROR while updating $rrdbase: $ERR") if $ERR;

	$custom_num++;

}