FS/bin/freeside-check

   1 #!/usr/bin/perl
   2 #!/usr/bin/perl -w
   3
   4 use strict;
   5 use FS::UID qw( adminsuidsetup );
   6 use FS::Cron::check qw(
   7   check_queued check_selfservice check_apache check_bop_failures
   8   alert error_msg
   9 );
  10
  11 my $user = shift or die &usage;
  12 my @emails = @ARGV;
  13 #die "no notification email given" unless @emails;
  14
  15 eval { adminsuidsetup $user };
  16
  17 if ( $@ ) { alert("Database down: $@", @emails); exit; }
  18
  19 check_queued       or alert('Queue daemon not running', @emails);
  20 check_selfservice  or alert(error_msg(), @emails);
  21 check_apache       or alert('Apache not running: '. error_msg(), @emails);
  22
  23 check_bop_failures or alert(error_msg(), @emails);
  24