[freeside-commits] freeside/FS/bin freeside-check,1.1.2.4,1.1.2.5

Ivan,,, ivan at wavetail.420.am
Mon Sep 28 15:35:38 PDT 2009


Update of /home/cvs/cvsroot/freeside/FS/bin
In directory wavetail.420.am:/tmp/cvs-serv16901/bin

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	freeside-check 
Log Message:
correct place for use Email::Send, RT#4610

Index: freeside-check
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/bin/freeside-check,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -d -r1.1.2.4 -r1.1.2.5
--- freeside-check	24 Sep 2009 03:14:32 -0000	1.1.2.4
+++ freeside-check	28 Sep 2009 22:35:36 -0000	1.1.2.5
@@ -2,7 +2,6 @@
 #!/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
@@ -23,8 +22,9 @@
 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_sgng         or alert("${sg}NG not responding: ". error_msg(), @emails);
 
 check_bop_failures or alert(error_msg(), @emails);
 



More information about the freeside-commits mailing list