diff options
author | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
commit | c82d349f864e6bd9f96fd1156903bc1f7193a203 (patch) | |
tree | e117a87533656110b6acd56fc0ca64289892a9f5 /FS/bin/freeside-check | |
parent | 74e058c8a010ef6feb539248a550d0bb169c1e94 (diff) |
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'FS/bin/freeside-check')
-rw-r--r-- | FS/bin/freeside-check | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/FS/bin/freeside-check b/FS/bin/freeside-check deleted file mode 100644 index 9930aae6c..000000000 --- a/FS/bin/freeside-check +++ /dev/null @@ -1,31 +0,0 @@ -#!/usr/bin/perl -#!/usr/bin/perl -w - -use strict; -use FS::UID qw( adminsuidsetup ); -use FS::Cron::check qw( - check_queued check_selfservice check_apache check_bop_failures - check_sg check_sg_login check_sgng - 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); - -#no-ops unless you are sg -my $sg = 'FS::ClientAPI::SG'; -check_sg or alert("$sg not responding: ". error_msg(), @emails); -check_sg_login or alert("$sg login errort: ". error_msg(), @emails); -check_sgng or alert("${sg}NG not responding: ". error_msg(), @emails); - -check_bop_failures or alert(error_msg(), @emails); - |