From 06366964387677bd819ff9603a25d4399d9ad84d Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 21 Mar 2009 22:14:37 +0000 Subject: freeside-check local monitoring, RT#4610 --- FS/bin/freeside-check | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 FS/bin/freeside-check (limited to 'FS/bin/freeside-check') diff --git a/FS/bin/freeside-check b/FS/bin/freeside-check new file mode 100644 index 000000000..09c9aa4f1 --- /dev/null +++ b/FS/bin/freeside-check @@ -0,0 +1,24 @@ +#!/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 + alert error_msg +); + +my $user = shift or die &usage; +my @emails = @ARGV; +#die "no notification email given" unless @emails; + +eval { adminsuidsetup $user }; + +if ( $@ ) { alert("Database down: $@", @emails); exit; } + +check_queued or alert("Queue daemon not running", @emails); +check_selfservice or alert(error_msg(), @emails); +check_apache or alert("Apache not running: ". error_msg(), @emails); + +check_bop_failures or alert(error_msg(), @emails); + -- cgit v1.2.1 From dcd8225db25059c0f6fa0c743601eb8945f07692 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 21 Mar 2009 23:37:14 +0000 Subject: Locale::SubCountry warnings clogging up cron output not useful --- FS/bin/freeside-check | 1 + 1 file changed, 1 insertion(+) (limited to 'FS/bin/freeside-check') diff --git a/FS/bin/freeside-check b/FS/bin/freeside-check index 09c9aa4f1..f2d596b80 100644 --- a/FS/bin/freeside-check +++ b/FS/bin/freeside-check @@ -1,3 +1,4 @@ +#!/usr/bin/perl #!/usr/bin/perl -w use strict; -- cgit v1.2.1 From 25cf511573ebff303700ce71611450ad72debcbc Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 24 Sep 2009 03:14:27 +0000 Subject: add SG and SGNG ping, RT#4610 --- FS/bin/freeside-check | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'FS/bin/freeside-check') diff --git a/FS/bin/freeside-check b/FS/bin/freeside-check index f2d596b80..ac2fc3d03 100644 --- a/FS/bin/freeside-check +++ b/FS/bin/freeside-check @@ -6,6 +6,7 @@ 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 alert error_msg ); @@ -17,9 +18,13 @@ eval { adminsuidsetup $user }; if ( $@ ) { alert("Database down: $@", @emails); exit; } -check_queued or alert("Queue daemon not running", @emails); +check_queued or alert('Queue daemon not running', @emails); check_selfservice or alert(error_msg(), @emails); -check_apache or alert("Apache not running: ". 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); check_bop_failures or alert(error_msg(), @emails); -- cgit v1.2.1 From 6bef62b1c736c51225505143e0f02e6e93aef768 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 28 Sep 2009 22:35:35 +0000 Subject: correct place for use Email::Send, RT#4610 --- FS/bin/freeside-check | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'FS/bin/freeside-check') diff --git a/FS/bin/freeside-check b/FS/bin/freeside-check index ac2fc3d03..9c9da7646 100644 --- a/FS/bin/freeside-check +++ b/FS/bin/freeside-check @@ -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_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_sgng or alert("${sg}NG not responding: ". error_msg(), @emails); check_bop_failures or alert(error_msg(), @emails); -- cgit v1.2.1 From ea771de9552fe4b22d49ecb6b73614cbcc995223 Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 1 Oct 2009 00:29:06 +0000 Subject: add login check to FS::ClientAPI::SG/SGNG checks. RT#4610 --- FS/bin/freeside-check | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'FS/bin/freeside-check') diff --git a/FS/bin/freeside-check b/FS/bin/freeside-check index 9c9da7646..9930aae6c 100644 --- a/FS/bin/freeside-check +++ b/FS/bin/freeside-check @@ -5,7 +5,7 @@ use strict; 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,7 +23,8 @@ check_apache or alert('Apache not running: '. error_msg(), @emails); #no-ops unless you are sg my $sg = 'FS::ClientAPI::SG'; -check_sg or alert("$sg not responding: ". error_msg(), @emails); +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); -- cgit v1.2.1