summaryrefslogtreecommitdiff
path: root/FS/bin/freeside-check
diff options
context:
space:
mode:
Diffstat (limited to 'FS/bin/freeside-check')
-rw-r--r--FS/bin/freeside-check31
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);
-