FS/bin/freeside-check

   1 #!/usr/bin/perl
   2 #!/usr/bin/perl -w
   3
   4 use strict;
   5 use Email::Send;
   6 use FS::UID qw( adminsuidsetup );
   7 use FS::Cron::check qw(
   8   check_queued check_selfservice check_apache check_bop_failures
   9   alert error_msg
  10 );
  11
  12 my $user = shift or die &usage;
  13 my @emails = @ARGV;
  14 #die "no notification email given" unless @emails;
  15
  16 eval { adminsuidsetup $user };
  17
  18 if ( $@ ) { alert("Database down: $@", @emails); exit; }
  19
  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);
  23
  24 check_bop_failures or alert(error_msg(), @emails);
  25