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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#!/usr/bin/perl
#
# Parameters supported:
#
# config
# autoconf
#
# Configurable variables
#
# url - Override default status-url
#
# Magic markers:
#%# family=auto
#%# capabilities=autoconf
my $ret = undef;
if (!eval "require LWP::UserAgent;") {
$ret = "LWP::UserAgent not found";
}
my $URL = exists $ENV{'url'} ? $ENV{'url'} : "http://127.0.0.1:%d/server-status?auto";
my @PORTS = exists $ENV{'ports'} ? split(' ', $ENV{'ports'}) : (80);
my %chars = (
# '\_' => 'Waiting',
# 'S' => 'Starting up',
'R' => 'Reading request',
'W' => 'Sending reply',
'K' => 'Keepalive',
'D' => 'DNS lookup',
'C' => 'Closing',
# 'L' => 'Logging',
# 'G' => 'Gracefully finishing',
# 'I' => 'Idle cleanup',
# '\.' => 'Open slot',
);
# "_" Waiting for Connection, "S" Starting up, "R" Reading Request,
# "W" Sending Reply, "K" Keepalive (read), "D" DNS Lookup,
# "C" Closing connection, "L" Logging, "G" Gracefully finishing,
# "I" Idle cleanup of worker, "." Open slot with no current process
if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {
if ($ret) {
print "no ($ret)\n";
exit 1;
}
my $ua = LWP::UserAgent->new(timeout => 30);
my @badports;
foreach my $port (@PORTS) {
my $url = sprintf $URL, $port;
my $response = $ua->request(HTTP::Request->new('GET',$url));
push @badports, $port unless $response->is_success and $response->content =~ /Scoreboard/im;
}
if (@badports) {
print "no (no apache server-status on ports @badports)\n";
exit 1;
} else {
print "yes\n";
exit 0;
}
}
if (exists $ARGV[0] and $ARGV[0] eq "config") {
print "graph_title Apache activity\n";
print "graph_args --base 1000 -l 0\n";
print "graph_category apache\n";
print "graph_vlabel processes\n";
foreach my $port (@PORTS) {
while (my ($char, $val) = each (%chars)) {
$char =~ s/\\\./dot/;
$char =~ s/\\\_/underline/;
print "activity_${port}_${char}.label ";
print $val, "\n";
print "activity_${port}_${char}.type GAUGE\n";
}
}
exit 0;
}
foreach my $port (@PORTS) {
my $ua = LWP::UserAgent->new (timeout => 30);
my $url = sprintf $URL, $port;
my $response = $ua->request (HTTP::Request->new('GET',$url));
if ($response->content =~ /^Scoreboard\:\s?(.*)$/sm) {
my $string = $1;
chomp $string;
my @act = split (//, $string);
foreach my $char (keys (%chars)) {
my $num = scalar (grep (/$char/, @act));
$char =~ s/\\\./dot/;
$char =~ s/\\\_/underline/;
print "activity_${port}_${char}.value $num\n";
}
}
}
|
