From f943a87875970b88bd075f039ef93220056822ff Mon Sep 17 00:00:00 2001
From: Rene Krenn <rkrenn@sipwise.com>
Date: Fri, 6 Oct 2017 01:32:30 +0200
Subject: [PATCH] TT#21871 consider ratio for credit warnings

Change-Id: I410918f33efbd844b62ee49519a963293233bcef
(cherry picked from commit 11a6a0382c2d1df53cacb233e45b4803ef6e68fa)
---
 bin/ngcp-credit-warning | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/bin/ngcp-credit-warning b/bin/ngcp-credit-warning
index 09154c3..40cef6e 100755
--- a/bin/ngcp-credit-warning
+++ b/bin/ngcp-credit-warning
@@ -65,9 +65,15 @@ sub send_email {
                  adminmail => $config->{adminmail} };
 
     foreach my $data (@{$contracts}) {
-        $vars->{contracts} .= sprintf <<EOF, @{$data}{qw(id cash_balance)};
+        if (exists $data->{threshold}) {
+            $vars->{contracts} .= sprintf <<EOF_RATIO, @{$data}{qw(id cash_balance threshold)};
+contract_id: %s cash_balance: %s (threshold: %s)
+EOF_RATIO
+        } else {
+            $vars->{contracts} .= sprintf <<EOF, @{$data}{qw(id cash_balance)};
 contract_id: %s cash_balance: %s
 EOF
+        }
     }
 
     my $tt = Template->new();
@@ -147,9 +153,12 @@ sub main {
             sub {
                 my $balances = shift;
                 foreach my $balance (@{$balances}) {
-                    next if $balance->{cash_balance} >= $cwarning->{threshold};
-                    push @contracts,
-                        { map { $_ => $balance->{$_} } qw(id cash_balance) };
+                    my $ratio = $balance->{ratio} // 1.0;
+                    my $threshold = $cwarning->{threshold} * $ratio;
+                    next if $balance->{cash_balance} >= $threshold;
+                    my $data = { map { $_ => $balance->{$_} } qw(id cash_balance) };
+                    $data->{threshold} = $threshold if $ratio < 1.0;
+                    push @contracts,$data;
                 }
                 return 1;
             }