TT#69407 - Add customer external_id to credit warning email

Change-Id: I07c5ee47590e69a66597e74ab28a01fafd644c16
(cherry picked from commit 5cc2e21123)

bin/ngcp-credit-warning

@@ -67,15 +67,10 @@ sub send_email {
                  adminmail => $config->{adminmail} };
 
     foreach my $data (@{$contracts}) {
-        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
-        }
+        $vars->{contracts} .= sprintf ('contract_id: %s cash_balance: %s', @{$data}{qw(id cash_balance)});
+        $vars->{contracts} .= ' external_id: '. $data->{external_id} if $data->{external_id};
+        $vars->{contracts} .= ' threshold: '. $data->{threshold} if $data->{threshold};
+        $vars->{contracts} .= "\n";
     }
 
     my $tt = Template->new();
@@ -158,7 +153,7 @@ sub main {
                     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) };
+                    my $data = { map { $_ => $balance->{$_} } qw(id cash_balance external_id) };
                     $data->{threshold} = $threshold if $ratio < 1.0;
                     push @contracts,$data;
                 }