Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

Field names must not contain special characters, substitute by _ as suggested here http://munin-monitoring.org/wiki/notes_on_datasource_names

Browse Source
This commit is contained in:
Jakob Unterwurzacher 2011-09-11 15:06:03 +02:00 committed by Steve Schnepp
parent b8e09a39b7
commit ec2baa46e7
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
plugins/other/mailman_subscribers
View File

@ -37,7 +37,7 @@
#%# capabilities=autoconf #%# capabilities=autoconf
use strict; use strict;
my ($list,$desc,%lists); my ($list,$desc,%lists,$label);
my $list_lists = "/usr/sbin/list_lists"; my $list_lists = "/usr/sbin/list_lists";
(-x $list_lists) || die "Can't exec $list_lists\n"; (-x $list_lists) || die "Can't exec $list_lists\n";
@ -64,7 +64,9 @@ if ($ARGV[0] and $ARGV[0] eq "config" ){
my $num =0; my $num =0;
while (($list,$desc) = each(%lists)) { while (($list,$desc) = each(%lists)) {
print("$list.label $list\n"); $label=$list;
$list=clean_name($list);
print("$list.label $label\n");
print("$list.info $desc\n"); print("$list.info $desc\n");
($num > 0) ? print("$list.draw STACK\n") : print("$list.draw AREA\n"); ($num > 0) ? print("$list.draw STACK\n") : print("$list.draw AREA\n");
$num++; $num++;
@ -81,5 +83,15 @@ while (($list,$desc) = each(%lists)) {
} }
close(LL); close(LL);
$list=clean_name($list);
print("$list.value $num\n"); print("$list.value $num\n");
} }
sub clean_name
{
# http://munin-monitoring.org/wiki/notes_on_datasource_names
my $list = shift(@_);
$list=~s/^[^A-Za-z_]/_/;
$list=~s/[^A-Za-z0-9_]/_/g;
return $list;
}