diff options
author | ivan <ivan> | 2009-03-21 22:14:37 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-03-21 22:14:37 +0000 |
commit | 06366964387677bd819ff9603a25d4399d9ad84d (patch) | |
tree | da1b8c9b34b7607e00bfa3e33eb696bb7b130a30 /FS/bin/freeside-check | |
parent | 4e7273f1dee05cf62089ce43960313674b66fbcd (diff) |
freeside-check local monitoring, RT#4610
Diffstat (limited to 'FS/bin/freeside-check')
-rw-r--r-- | FS/bin/freeside-check | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/FS/bin/freeside-check b/FS/bin/freeside-check new file mode 100644 index 000000000..09c9aa4f1 --- /dev/null +++ b/FS/bin/freeside-check @@ -0,0 +1,24 @@ +#!/usr/bin/perl -w + +use strict; +use Email::Send; +use FS::UID qw( adminsuidsetup ); +use FS::Cron::check qw( + check_queued check_selfservice check_apache check_bop_failures + alert error_msg +); + +my $user = shift or die &usage; +my @emails = @ARGV; +#die "no notification email given" unless @emails; + +eval { adminsuidsetup $user }; + +if ( $@ ) { alert("Database down: $@", @emails); exit; } + +check_queued or alert("Queue daemon not running", @emails); +check_selfservice or alert(error_msg(), @emails); +check_apache or alert("Apache not running: ". error_msg(), @emails); + +check_bop_failures or alert(error_msg(), @emails); + |