X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-check;h=9930aae6cc096d2044609f68370f9c116bdf8212;hb=b5c4237a34aef94976bc343c8d9e138664fc3984;hp=ac2fc3d034630704d23212e6080210e2fd4102a4;hpb=25cf511573ebff303700ce71611450ad72debcbc;p=freeside.git

diff --git a/FS/bin/freeside-check b/FS/bin/freeside-check
index ac2fc3d03..9930aae6c 100644
--- a/FS/bin/freeside-check
+++ b/FS/bin/freeside-check
@@ -2,11 +2,10 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Email::Send;
 use FS::UID qw( adminsuidsetup );
 use FS::Cron::check qw(
   check_queued check_selfservice check_apache check_bop_failures
-  check_sg check_sgng
+  check_sg check_sg_login check_sgng
   alert error_msg
 );
 
@@ -23,8 +22,10 @@ check_selfservice  or alert(error_msg(), @emails);
 check_apache       or alert('Apache not running: '. error_msg(), @emails);
 
 #no-ops unless you are sg
-check_sg           or alert('FS::ClientAPI::SG not responding',   @emails);
-check_sgng         or alert('FS::ClientAPI::SGNG not responding', @emails);
+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);