Subversion Repositories nagios

#!/usr/bin/perl

##########################################

##  Author: Nic le Roux

##  Date: 01/07/2004

##  nicl@rohlig.co.za

##  This will schedule regular downtime for

##  Hosts and Service's from cfg file.

##

##     Please note !!!!!!

## 	The cfg file cannot have any comments

##	or beginning or trailing empty lines

##	Maybe someone could assist with that

##		Happy Silence

## Nagios is a registered trademark of Ethan Galstad.

###########################################

#use strict;

use warnings;

use Time::Local;

my $CfgFileSVC;		# Location of Service Downtime CFG File

my $CfgFileHST;		# Location of Host Downtime CFG File

my $EpochTime;		# current epoch time value

my $DayOfWeek;		# current day 0..6 Sun = 0

my $DownStartNormal;	# Downtime Start Normal HH:MM:SS

my $DownStartEpoch;	# Downtime start Epoch

my $DownEndNormal;	# Downtime End Normal HH:MM:SS

my $DownEndEpoch;	# Downtime End Epoch

my $ServiceName;	# Name of Scheduled Service

my $Hostname;		# Name of Scheduled host

my $DynDownDuration;	# Duration in secs for Dynamic Downtime

my $DownDuration;	# Duration of Downtim in Seconds

my $Username;		# User adding Comments

my $Comments;		# Comments pertaining to scheduled host/service

my $Fixed;		# Downtime fixed or Dynamic (0,1)

my $DaysOfWeek;		# Text Temp for Days of Week

my $WeekDay;		# Current Week Day [0..6] [Sun..Sat]

my @Day;		# Array in which active week days are stored

my $NagiosCMD;		# Location if Nagios Command File

###############################################

##  It Starts

###############################################

# Set CFG File Locations

my $EchoCMD = "/bin/echo";

$CfgFileSVC = "/etc/nagios3/sched_downtime/downtimeschedsvc.cfg";

$CfgFileHST = "/etc/nagios3/sched_downtime/downtimeschedhst.cfg";

$NagiosCMD = "/var/lib/nagios3/rw/nagios.cmd";

# Get current date in Epoch Format

$EpochTime = `date +%s`;

chomp($EpochTime);

# Get Current Week Day

$WeekDay = `date +%w`;

# Open Service CFG File

open(my $Config, $CfgFileSVC) or die "Could not open Config file.\n";

while (<$Config>){

	# Take off new line character

	chomp;

        s/#.*//;                # no comments

	s/^\s+//;               # no leading white

	s/\s+$//;               # no trailing white

	next unless length;     # anything left?

	# Read variable in

	($DaysOfWeek,$Hostname,$ServiceName,$DownStartNormal,$DownDuration,$Fixed,$DynDownDuration,$Username,$Comments)=split(/,/);

	($SHours, $SMinutes, $SSeconds)=split(/:/,$DownStartNormal);

	#Check on Which days to run Downtime

	#[0..6] Sun To Sat

	(@Day)=split(/:/,$DaysOfWeek);

	if ($Day[$WeekDay] == 1){

	   # Convert Start Downtime to Epoch Time

	   $DownStartEpoch = `date --date $SHours\:$SMinutes\:$SSeconds +%s`;

	   # Calculate end of Downtime

	   $DownEndEpoch = $DownStartEpoch + $DownDuration;

	   chomp($DownStartEpoch);

	   #Open  Nagios Command File to append (>>)

	   open(my $CMD, ">>$NagiosCMD") or die "Could not open Nagios Command Line.\n";

	   # Write Service Downtime entry to Nagios Command File

           printf $CMD "[$EpochTime] SCHEDULE_SVC_DOWNTIME;$Hostname;$ServiceName;$DownStartEpoch;$DownEndEpoch;$Fixed;0;$DynDownDuration;$Username;$Comments\n";

	   # Close Nagios Command File

	   close($CMD);

	}

}

close($Config);

# Open Host CFG File

open($Config, $CfgFileHST) or die "Could not open Config file.\n";

while (<$Config>){

       # Take off new line character

       chomp;

        s/#.*//;                # no comments

        s/^\s+//;               # no leading white

        s/\s+$//;               # no trailing white

        next unless length;     # anything left?

	#Read Variables in

	($DaysOfWeek,$Hostname,$DownStartNormal,$DownDuration,$Fixed,$DynDownDuration,$Username,$Comments)=split(/,/);

	($SHours, $SMinutes, $SSeconds)=split(/:/,$DownStartNormal);

       #Check on Which days to run Downtime

       #[0..6] Sun To Sat

       (@Day)=split(/:/,$DaysOfWeek);

       # Check To see if service scheduled for current day

       if ($Day[$WeekDay] == 1){

           # Convert Start Downtime to Epoch Time

           $DownStartEpoch = `date --date $SHours\:$SMinutes\:$SSeconds +%s`;

	   # Calculate end of Downtime

           $DownEndEpoch = $DownStartEpoch + $DownDuration;

           chomp($DownStartEpoch);

 	   #Open  Nagios Command File to append (>>)

           open(my $CMD, ">>$NagiosCMD") or die "Could not open Nagios Command Line.\n";

           # Write Service Downtime entry to Nagios Command File

           printf $CMD "[$EpochTime] SCHEDULE_HOST_DOWNTIME;$Hostname;$DownStartEpoch;$DownEndEpoch;$Fixed;0;$DynDownDuration;$Username;$Comments\n";

           # Close Nagios Command File

           close($CMD);

   	}																								 }

 close($Config);

#################################################

## It Ends

#################################################

#

# Configuration file example for scheduling recurring downtime

#

# The Relevant fields are seperated by a comma ","

#

# Please follow the Following format

# Sun:Mon:Tue:Wed:Thu:Fri:Sat having a 1 in the field corresponding to the day indicates that the script should run

#

# Daysfield,Hostname,StartTime(HH:MM:ss),duration(seconds),fixed/dynamic,Name(user posting downtime),Comments

# 0:1:1:1:1:1:0,host1.co.za,23:59:00,14400,1,7200,Nagios,Scheduled Daily Downtime (Backups)

#

#################################################

#

# Configuration file example for scheduling recurring downtime

#

# The Relevant fields are seperated by a comma ","

#

# Please follow the Following format

# Sun:Mon:Tue:Wed:Thu:Fri:Sat having a 1 in the field corresponding to the day indicates that the script should run

#

# Daysfield,Hostname,service-name,StartTime(HH:MM:ss),duration(seconds),fixed/dynamic,Name(user posting downtime),Comments

# 0:1:1:1:1:1:0,host1.co.za,Host Service,23:59:00,14400,1,7200,Nic le Roux,Scheduled Daily Downtime (Backups)

#

#################################################