#!/usr/bin/perl

# This script show web page with system status. Used by Proxmox monitoring script
my @errors;
#
# constants
#
my $prog_ps="/bin/ps";
#
# triggers
#
my $la_treshold=-1;                 # max 5min la
my $procs_running_treshold=-1;      # max processes running
my $mem_free_treshhold=999999;      # min free mem in bytes
my $total_processes_treshhold=-1;   # max total processes
my $fs_usage_treshold=90;               # min free disk space in percent
#
# get load average
#
if ($la_treshold) {
    open (INPUT_FILE,"/proc/loadavg");
    while(<INPUT_FILE>) { chomp;    @la = split (" ", $_);  }
    close INPUT_FILE;
    push (@errors, "Load average is $la[0] and above treshold $la_treshold") if ( $la[0] > $la_treshold );
}
#
# get running procs
#
if ($procs_running_treshold) {
    open (INPUT_FILE,"/proc/stat");
    while(<INPUT_FILE>) { chomp;    $procs_running = $1 if ($_ =~ /^procs_running\s+(\d+)/); }
    close INPUT_FILE;
    push (@errors, "Running procs is $procs_running and above treshold $procs_running_treshold") if ( $procs_running > $procs_running_treshold );
}
#
# get mem info
#
if ($mem_free_treshhold) {
    open (INPUT_FILE,"/proc/meminfo");
    while(<INPUT_FILE>) {
        chomp;
        $mem_total = $1     if ( $_ =~ /^MemTotal:\s+(\d+)\s.*$/ );
        $mem_free = $1      if ( $_ =~ /^MemFree:\s+(\d+)\s.*$/ );
        $mem_buffers = $1   if ( $_ =~ /^Buffers:\s+(\d+)\s.*$/ );
        $mem_cached = $1    if ( $_ =~ /^Cached:\s+(\d+)\s.*$/ );
    }
    close INPUT_FILE;
    $mem_free = $mem_free + $mem_buffers + $mem_cached;
    push (@errors, "Low free memory \( $mem_free \) with min treshold is $mem_free_treshhold") if ( $mem_free < $mem_free_treshhold );
}
#
# get process list
#
if ($total_processes_treshhold) {
    @process_list = `$prog_ps axf -o pid,cmd`;
    my $total_processes = scalar(@process_list)-1;
    push (@errors, "Too many processes  \( $total_processes \) on host  with max treshold is $total_processes_treshhold") if ( scalar(@process_list)-1 > $total_processes_treshhold );
}
#
# get filesystems stats
#
if ($fs_usage_treshold) {
    @fs_stats=`df -h`;
    foreach ( @fs_stats ){
        $_ =~ m/.*\s(\d+)\%\s(\S+)$/i;
        my $disk_free_space = 100-$1;
        push (@errors, "Low free disk space: $disk_free_space% free on $2") if ( $disk_free_space < $fs_usage_treshold );
    }
}
#
# Print all stats
#
print "Content-Type: text/plain\n";
print "\n";
if ( @errors ) {
    foreach (@errors) { print "Alert!: $_\n";}
    }
else {print "Overall system status is: OK\n";}
print "\n";
print "Load average 5min: $la[1]\n" if ($la_treshold);
print "Total memory: $mem_total\n" if ($mem_free_treshhold);
print "Free memory: $mem_free\n" if ($mem_free_treshhold);
print "Total processes: ", scalar(@process_list)-1,"\n" if ($total_processes_treshhold);
print "Running processes: $procs_running\n" if ($procs_running_treshold);
print "\n";
print "@fs_stats" if ($fs_usage_treshold);
print "\n";
print "List of the processes:\n" if ($total_processes_treshhold);
if ($total_processes_treshhold) { foreach ( @process_list ) { print $_; } }

#!/usr/bin/perl -l

# This script will show web page with list of all proxmox VM-s

# List of vm-id's which we are wish to exclude from monitoring
my @excluded_ids=('108','109','110','111');

use strict;
use CGI::Carp qw(fatalsToBrowser);
use Net::Proxmox::VE;
use LWP::UserAgent;
use HTML::Template;
use Switch;

# Global variables
my $status_is_alert;
my $status_is_warning;
my $starting_time = time;
my $vm_counter = 0;
my $row_counter = 1;
my @RUNNING_VM_ROW1_DATA;
my @RUNNING_VM_ROW2_DATA;
my @RUNNING_VM_ROW3_DATA;

# Prepare web user agent
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
my $ua = LWP::UserAgent->new;
$ua->agent("proxmox_status_mon");
$ua->timeout(5);

# Prepare proxmox api agent and connect to proxmox
my %args = (
    host     => '192.168.1.2',
    username => 'login',
    password => 'password',
    port     => '8006',
    realm    => 'pve',
#    debug    => 'true'
);
my $host = Net::Proxmox::VE->new(%args);
$host->login() or &error_exit;

# get pve version and set virtualization_tech according to pve version for use in future requests
my $version_hash = $host->get("/version"); # this request return hash with version information
my $virtualization_tech = 'lxc';
$virtualization_tech = 'openvz' if ( ${$version_hash}{'version'} < 4 );

# Get nodes list from proxmox, foreach node get virtual machines, read status and prepare data for output
my @nodes = $host->get("/nodes");

foreach (@nodes){
    my %node_info=%{$_};
    my @vm_list = $host->get("/nodes/$node_info{'node'}/$virtualization_tech");
    foreach (@vm_list){
    my %vm_info=%{$_};
    next if ($vm_info{'vmid'} ~~ @excluded_ids);

    $vm_counter++;
    my %row_data;
    $row_data{'VM_Status'}=$vm_info{'status'};
    $row_data{'VM_NODE'}=$node_info{'node'};
    $row_data{'VM_ID'}=$vm_info{'vmid'};
        if ( $virtualization_tech eq 'lxc' ){
        my $net_config = $host->get("/nodes/$node_info{'node'}/lxc/$vm_info{'vmid'}/config");
        ${$net_config}{'net0'} =~ /.*ip=(\d+\.\d+\.\d+\.\d+).*/;
        $row_data{'VM_IP'}=$1;
    }
    else {
        $row_data{'VM_IP'}=$vm_info{'ip'};
    }
    $row_data{'VM_Name'}=$vm_info{'name'};
    if ( $row_data{'VM_Status'} eq "running" ) {
        $row_data{'VM_Status_Info'}=&get_vm_stats ($row_data{'VM_IP'});
        if ( $row_data{'VM_Status_Info'} =~ m/Warning.*/ ) { $row_data{'WARNING'} = 1; $status_is_warning = 1; };
        if ( $row_data{'VM_Status_Info'} =~ m/Alert.*/ ) { $row_data{'ALERT'} = 1; $status_is_alert = 1; };
    }
    switch ($row_counter) {
        case 1 { push(@RUNNING_VM_ROW1_DATA, \%row_data); $row_counter++; }
        case 2 { push(@RUNNING_VM_ROW2_DATA, \%row_data); $row_counter++; }
        case 3 { push(@RUNNING_VM_ROW3_DATA, \%row_data); $row_counter=1;}
    }
    }
}

my $generation_time = time - $starting_time;

# Print out data thru template
print "Content-Type: text/html\n\n";
my $template = HTML::Template->new(filename => 'template.html');
$template->param(GENERATION_TIME => $generation_time);
$template->param(VM_COUNTER => $vm_counter);
$template->param(ALERT => $status_is_alert);
$template->param(WARNING => $status_is_warning);
$template->param(RUNNING_VM_ROW1 => \@RUNNING_VM_ROW1_DATA);
$template->param(RUNNING_VM_ROW2 => \@RUNNING_VM_ROW2_DATA);
$template->param(RUNNING_VM_ROW3 => \@RUNNING_VM_ROW3_DATA);
print $template->output();

# Get status from VM procedure
sub get_vm_stats ($vm_ip){
    my $vm_ip = @_[0];
    my $return_value;

    my $req = HTTP::Request->new(GET => "http://$vm_ip/cgi-bin/system_status.cgi");
    my $res = $ua->request($req);
    if ( $res->is_error ) {
    my $status_line = $res->status_line;
    return ("Alert! unable to get VM status: $status_line") if ( $status_line =~ m/.*500.*/ );
    return ("Alert! unable to get VM status: $status_line") if ( $status_line =~ m/.*500.*/ );
    return ("Warning! unable to get VM status: $status_line");
    }

    my $system_status = $res->content;
    if( $system_status =~ m/(Alert!:.*\n)/i ) {
    foreach ( split ("\n", $system_status) ) {
        $return_value = $return_value.$1."<br>" if ( $_ =~ m/(Alert!:.*)/i );
    }
    } else {
    $return_value = undef;
    }

    return $return_value;
}

sub error_exit  {print "Couldnt log in to proxmox host $args{'host'}"; die ('Couldnt log in to proxmox host');}