Révision 17f78427
Whitespace cleanup
- remove trailing whitespace
- remove empty lines at the end of files
| plugins/apache/apache_activity | ||
|---|---|---|
| 46 | 46 |
} |
| 47 | 47 |
my $ua = LWP::UserAgent->new(timeout => 30); |
| 48 | 48 |
my @badports; |
| 49 |
|
|
| 49 |
|
|
| 50 | 50 |
foreach my $port (@PORTS) {
|
| 51 | 51 |
my $url = sprintf $URL, $port; |
| 52 | 52 |
my $response = $ua->request(HTTP::Request->new('GET',$url));
|
| 53 | 53 |
push @badports, $port unless $response->is_success and $response->content =~ /Scoreboard/im; |
| 54 | 54 |
} |
| 55 |
|
|
| 55 |
|
|
| 56 | 56 |
if (@badports) {
|
| 57 | 57 |
print "no (no apache server-status on ports @badports)\n"; |
| 58 | 58 |
exit 1; |
| ... | ... | |
| 75 | 75 |
print $val, "\n"; |
| 76 | 76 |
print "activity_${port}_${char}.type GAUGE\n";
|
| 77 | 77 |
} |
| 78 |
}
|
|
| 78 |
} |
|
| 79 | 79 |
exit 0; |
| 80 | 80 |
} |
| 81 | 81 |
|
Formats disponibles : Unified diff