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

[87ef55]: / custom.pl  Maximize  Restore  History

Download this file

67 lines (54 with data), 1.9 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
#!/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;



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

# because require verify the path

require '../../gen-lib.pl' if ( !exists $ENV{WEBMINSTAT_TEMP} );



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          = $tab[1];

	my $custom_name     = $tab[2];

	my $custom_cmd      = $tab[3];

	my $runstop         = $tab[5];



	my $total = 'U';



	if ( is_param_runstop($runstop) ) {

		$total = `$custom_cmd`;

		chomp($total);

	}

	else {

		debug("custom $custom disable");

	}

	debug(

"custom $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++;

}