94 lines
2.2 KiB
Perl
Executable file
94 lines
2.2 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use Cwd qw(realpath);
|
|
|
|
my $dirname;
|
|
BEGIN
|
|
{
|
|
# We use BEGIN here to calculate the dynamic path BEFORE parsing the "use lib" directive
|
|
my $real = realpath $0 || $0;
|
|
($dirname = $real) =~ s/\/[^\/]*$//;
|
|
}
|
|
# Add our custom path
|
|
use lib "$dirname";
|
|
|
|
use MyRRD;
|
|
|
|
my $rrd = '/var/lib/rrd';
|
|
my $img = '/home/www/dagobah.xwing.info/rrd';
|
|
|
|
my $MyRRD = new MyRRD($rrd, $img);
|
|
|
|
# system
|
|
$MyRRD->cpu();
|
|
$MyRRD->memory(32768, 16384);
|
|
$MyRRD->load();
|
|
$MyRRD->cswitch();
|
|
$MyRRD->iostat('sda');
|
|
|
|
# temps
|
|
$MyRRD->sensorstemp({
|
|
'coretemp-isa-0000' => {
|
|
'Package id 0' => {
|
|
key => 'temp1_input',
|
|
name => "CPU",
|
|
},
|
|
},
|
|
'drivetemp-scsi-4-0' => {
|
|
'temp1' => {
|
|
key => 'temp1_input',
|
|
name => "HDD",
|
|
},
|
|
},
|
|
'iwlwifi_1-virtual-0' => {
|
|
'temp1' => {
|
|
key => 'temp1_input',
|
|
name => "Wi-Fi",
|
|
},
|
|
},
|
|
'gigabyte_wmi-virtual-0' => {
|
|
'temp1' => {
|
|
key => 'temp1_input',
|
|
name => "System",
|
|
},
|
|
'temp2' => {
|
|
key => 'temp2_input',
|
|
name => "PCH",
|
|
},
|
|
# 'temp3' => {
|
|
# key => 'temp3_input',
|
|
# name => "CPU",
|
|
# },
|
|
'temp5' => {
|
|
key => 'temp5_input',
|
|
name => "VRM MOS",
|
|
},
|
|
},
|
|
});
|
|
$MyRRD->sensorsfan({
|
|
'it8689-isa-0a40' => {
|
|
'fan1' => {
|
|
key => 'fan1_input',
|
|
name => "CPU\t",
|
|
},
|
|
'fan2' => {
|
|
key => 'fan2_input',
|
|
name => "Boîtier Top",
|
|
},
|
|
'fan5' => {
|
|
key => 'fan5_input',
|
|
name => "Boîtier Back",
|
|
},
|
|
},
|
|
});
|
|
|
|
# serveurs
|
|
$MyRRD->nginx('http://127.0.0.1:80/server-status');
|
|
|
|
# network
|
|
$MyRRD->networkInterface('eth0', 'Interface locale');
|
|
$MyRRD->networkInterface('wlan0', 'Interface WiFi');
|
|
$MyRRD->networkInterface('virbr0', 'Guest');
|
|
|