6 use FS::UID qw( adminsuidsetup );
7 use FS::Cron::check qw(
8 check_queued check_selfservice check_apache check_bop_failures
12 my $user = shift or die &usage;
14 #die "no notification email given" unless @emails;
16 eval { adminsuidsetup $user };
18 if ( $@ ) { alert("Database down: $@", @emails); exit; }
20 check_queued or alert("Queue daemon not running", @emails);
21 check_selfservice or alert(error_msg(), @emails);
22 check_apache or alert("Apache not running: ". error_msg(), @emails);
24 check_bop_failures or alert(error_msg(), @emails);