From 42a77852d00d5faa16a53353bd7fea49c4aa8c70 Mon Sep 17 00:00:00 2001
From: Daniel Tiefnig <dtiefnig@sipwise.com>
Date: Wed, 18 Jan 2012 23:31:06 +0000
Subject: [PATCH] write joined recipients list to To header
---
bin/ngcp-credit-warning | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/bin/ngcp-credit-warning b/bin/ngcp-credit-warning
index a264597..68864e4 100644
--- a/bin/ngcp-credit-warning
+++ b/bin/ngcp-credit-warning
@@ -36,7 +36,9 @@ sub main {
", $$domcfg{domain}, $$domcfg{threshold});
if(@$contracts) {
- my $mailtxt = "To: $$domcfg{recipients}\nSubject: Sipwise NGCP credit threshold notification\n\n";
+ $$domcfg{recipients} = [ $$domcfg{recipients} ]
+ unless defined eval { @{$$domcfg{recipients}} };
+ my $mailtxt = "To: ". join(', ', @{$$domcfg{recipients}}) ."\nSubject: Sipwise NGCP credit threshold notification\n\n";
$mailtxt .= "Credit threshold warning for: $$domcfg{domain}\nThe following contracts are below the configured threshold of $$domcfg{threshold} cent:\n\n";
$mailtxt .= "account_id\tcash_balance\tcash_balance_interval\tsubscribers\n";
for(@$contracts) {