Ad Widget

**alj** · 16-11-2007, 21:30

Since noone responds, theres a script to automatically restart zabbix if any process takes more than 400mb of virtual ram.

Code:

#!/usr/bin/perl

use strict;
my $totalvsz=0;
my $totalrss=0;
my $processvsztreshold=400000;
my $tresholdflag=0;
open (CMD,'ps axuw |') or die "$!";
while (<CMD>) {
   next unless /zabbix_server/;
   my @ar=split /\s+/;
   $totalvsz+=$ar[4];
   $totalrss+=$ar[5];
   $tresholdflag++ if $ar[4] > $processvsztreshold;
}
close CMD;
#print "Total VSZ: $totalvsz, RSS: $totalrss\n";

if ($tresholdflag) {
   system('echo "Restarting zabbix" | mailx -s "zabbixwatch" mymail@domain');
   system('/etc/init.d/zabbix-server restart > /dev/null 2>&1');
   sleep 5;
   unless (&countzab) {
      system('echo "Restarting zabbix 2-nd time" | mailx -s "zabbixwatch" mymail@domain');
      system('/usr/sbin/invoke-rc.d --quiet zabbix-server restart > /dev/null 2>&1');
      sleep 5;
      unless (&countzab) {
#           print "Cannot restart zabbix";
      system('echo "zabbixwatch script cannot restart zabbix server, please contact me immediately" | mailx -s "zabbixwatch" operators@mydomain');
      }
   }
}
1;
######
#
#
sub countzab {
   my $num=0;
   open (CMD,'ps axuw |') or die "$!";
   while (<CMD>) {
      $num++ if /zabbix_server/;
   }
   close CMD;
   return $num;
}