From c82d349f864e6bd9f96fd1156903bc1f7193a203 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 27 Dec 2010 00:04:45 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'. --- FS/bin/freeside-check | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100644 FS/bin/freeside-check (limited to 'FS/bin/freeside-check') 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); - -- cgit v1.2.1