mirror of
https://github.com/librenms/librenms.git
synced 2024-09-30 23:06:54 +00:00
aa9dded019
This eliminates nearly all of the user-facing references to Observium, including in the names of temporary files and in the metadata of PDFs. Many of these may not be used any more, but I've adjusted them anyway. These changes should also make it easier to change the branding later if it is needed. There are a few references of which I still don't understand the significance, so I've left them as-is for now. The Unix agent in particular is rather untidy.
93 lines
2.8 KiB
Perl
Executable File
93 lines
2.8 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
# Original python script Copyright (C) 2009 Glen Pitt-Pladdy
|
|
#
|
|
# 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 LWP::Simple;
|
|
|
|
$CACHETIME = 30;
|
|
$CACHEFILE = '/tmp/agent-local-apache';
|
|
|
|
# check for cache file newer CACHETIME seconds ago
|
|
if ( -f $CACHEFILE && time - (stat( $CACHEFILE ))[9] < $CACHETIME) {
|
|
# use cached data
|
|
#print "Using cached data from file $CACHEFILE.\n";
|
|
open (INFILE, "<$CACHEFILE" )
|
|
or die "File open failure: $CACHEFILE\n";
|
|
@data = <INFILE>;
|
|
close INFILE;
|
|
} else {
|
|
# grab the status URL (fresh data)
|
|
@data = split /(\n)/, LWP::Simple::get( 'http://localhost/server-status?auto' )
|
|
or die "Data fetch failure.\n";
|
|
|
|
# write file
|
|
$tmpfile = "$CACHEFILE.TMP.$PID";
|
|
open (OUTFILE, ">$tmpfile")
|
|
or die "File open failure: $tmpfile\n";
|
|
print OUTFILE @data;
|
|
close OUTFILE;
|
|
rename ( $tmpfile, $CACHEFILE );
|
|
}
|
|
|
|
print "<<<apache>>>\n";
|
|
|
|
# dice up the data
|
|
@scoreboardkey = ( '_', 'S', 'R', 'W', 'K', 'D', 'C', 'L', 'G', 'I', '.' );
|
|
%params = {};
|
|
foreach $line (@data) {
|
|
chomp $line;
|
|
@fields = split( /: /, $line);
|
|
if ($fields[0] eq 'Scoreboard') {
|
|
# count up the scoreboard into states
|
|
%states = {};
|
|
foreach $state (@scoreboardkey) {
|
|
$states{$state} = 0;
|
|
}
|
|
foreach $state ( split(//, $fields[1]) ) {
|
|
$states{$state}++;
|
|
}
|
|
} elsif ($fields[0] eq 'Total kBytes') {
|
|
# turn into base (byte) value
|
|
$params{$fields[0]} = int($fields[1])*1024;
|
|
} else {
|
|
# just store everything else
|
|
$params{$fields[0]} = $fields[1];
|
|
}
|
|
}
|
|
|
|
# output the data in order (this is because some platforms don't have them all)
|
|
@dataorder = (
|
|
'Total Accesses',
|
|
'Total kBytes',
|
|
'CPULoad',
|
|
'Uptime',
|
|
'ReqPerSec',
|
|
'BytesPerSec',
|
|
'BytesPerReq',
|
|
'BusyServers',
|
|
'IdleServers'
|
|
);
|
|
foreach $param (@dataorder) {
|
|
if (exists $params{$param}) {
|
|
print $params{$param}."\n";
|
|
} else {
|
|
# not all Apache's have all stats
|
|
print "U\n";
|
|
}
|
|
}
|
|
|
|
# print the scoreboard
|
|
foreach $state (@scoreboardkey) {
|
|
print $states{$state}."\n";
|
|
}
|
|
|