From 4b2097a9bddecbfea9a5caa62b5c3607f335f288 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 23 Jun 2010 23:45:19 +0000
Subject: [PATCH] add display of forward destionations via GetForward, RT#7083

---
 FS/FS/part_export/communigate_pro.pm | 17 +++++++++++++++++
 httemplate/view/svc_forward.cgi      |  3 +++
 2 files changed, 20 insertions(+)

diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm
index 42f562c2b..3ac0dfd9c 100644
--- a/FS/FS/part_export/communigate_pro.pm
+++ b/FS/FS/part_export/communigate_pro.pm
@@ -835,6 +835,23 @@ sub export_getsettings_svc_acct {
 
 }
 
+sub export_getsettings_svc_forward {
+  my($self, $svc_forward, $settingsref, $defaultref ) = @_;
+
+  my $dest = eval { $self->communigate_pro_runcommand(
+    'GetForwarder',
+    ($svc_forward->src || $svc_forward->srcsvc_acct->email),
+  ) };
+  return $@ if $@;
+
+  my $settings = { 'Destination' => $dest };
+
+  %{$settingsref} = %$settings;
+  %{$defaultref} = ();
+
+  '';
+}
+
 sub _rule2string {
   my $rule = shift;
   my($priority, $name, $conditions, $actions, $comment) = @$rule;
diff --git a/httemplate/view/svc_forward.cgi b/httemplate/view/svc_forward.cgi
index 43d8a4e8b..15b5ae56f 100755
--- a/httemplate/view/svc_forward.cgi
+++ b/httemplate/view/svc_forward.cgi
@@ -50,6 +50,9 @@
 </TABLE>
 
 <BR>
+
+<% include('elements/svc_export_settings.html', $svc_forward) %>
+
 <% joblisting({'svcnum'=>$svcnum}, 1) %>
 
 <% include('/elements/footer.html') %>
-- 
2.11.0