diff options
| author | ivan <ivan> | 2010-06-23 23:45:19 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-06-23 23:45:19 +0000 |
| commit | 4b2097a9bddecbfea9a5caa62b5c3607f335f288 (patch) | |
| tree | 56232c28904fa8948454e946e157aed19a884fe2 | |
| parent | 7921fe2c8bb041cc7743c2e5c4130fd1641beac0 (diff) | |
add display of forward destionations via GetForward, RT#7083
| -rw-r--r-- | FS/FS/part_export/communigate_pro.pm | 17 | ||||
| -rwxr-xr-x | httemplate/view/svc_forward.cgi | 3 |
2 files changed, 20 insertions, 0 deletions
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') %> |