X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_acct%2Fcommunigate.html;h=179facfa0e57ace3ba7f925827c48f7826c45b26;hb=9aa198dfc90054de34cf1af8f3238d004416ebc9;hp=9d66807500d8f92047a9b2e3538d31a51d8563ed;hpb=624b2d44625f69d71175c3348cae635d580c890b;p=freeside.git

diff --git a/httemplate/view/svc_acct/communigate.html b/httemplate/view/svc_acct/communigate.html
index 9d6680750..179facfa0 100644
--- a/httemplate/view/svc_acct/communigate.html
+++ b/httemplate/view/svc_acct/communigate.html
@@ -32,6 +32,14 @@
   <% include('/view/elements/tr.html', label=>'Add trailer to sent mail',
                         value=>$svc_acct->cgp_addmailtrailer ? 'YES' : 'NO' ) %>
 
+% my $archive_after = $svc_acct->cgp_archiveafter;
+% $archive_after =
+%   $archive_after
+%     ? ( $archive_after / 86400 ). ' days'
+%     : ( $archive_after eq '0' ? 'Never' : 'default (730 days)' );
+  <% include('/view/elements/tr.html', label=>'Archive messages after',
+                        value=>$archive_after, ) %>
+
 %# preferences
 
   <% include('/view/elements/tr.html', label=>'Message delete method',
@@ -53,7 +61,44 @@
   <% include('/view/elements/tr.html', label=>'Send read receipts',
                         value=>$svc_acct->cgp_sendmdnmode ) %>
 
-%#XXX vacation message, redirect all mail
+%# vacation message
+  <% include('/elements/init_overlib.html') %>
+
+  <TR>
+    <TD ALIGN="right">Vacation message</TD>
+    <TD BGCOLOR="#FFFFFF">
+      <% $vacation_rule ? 'Active' : '' %>
+      <% include('/elements/popup_link.html',
+                   'action' => $p.'edit/cgp_rule-vacation.html?'.
+                                 'svcnum='. $svc_acct->svcnum,
+                   'label'  => $vacation_rule ? '(edit)' : '(add)',
+                   'actionlabel' => 'Vacation message',
+                   'width'  => 600,
+                   'height' => 300,
+                   #'color'
+                )
+      %>
+    </TD>
+  </TR>
+
+%# redirect all mail
+
+  <TR>
+    <TD ALIGN="right">Redirect all mail</TD>
+    <TD BGCOLOR="#FFFFFF">
+      <% $redirect_rule ? 'Active' : '' %>
+      <% include('/elements/popup_link.html',
+                   'action' => $p.'edit/cgp_rule-redirect_all.html?'.
+                                 'svcnum='. $svc_acct->svcnum,
+                   'label'  => $redirect_rule ? '(edit)' : '(add)',
+                   'actionlabel' => 'Redirect all mail',
+                   'width' => 763,
+                   #'height'
+                   #'color'
+                )
+      %>
+    </TD>
+  </TR>
 
 %# mail rules
 
@@ -62,6 +107,13 @@
             )
   %>
 
+%# RPOP
+
+  <% include('/view/elements/tr.html', label=>'Remote POP accounts',
+               value=>$rpop_link,
+            )
+  %>
+
 <%init>
 
 my %opt = @_;
@@ -71,7 +123,20 @@ my %opt = @_;
 my $svc_acct = $opt{'svc_acct'};
 #my $part_svc = $opt{'part_svc'};
 
-my $rule_link = qq(<A HREF="${p}browse/cgp_rule.html?svcnum=).
+my $rule_link = qq(<A HREF="${p}browse/cgp_rule.html?svcnum=). #"dum vim
                       $svc_acct->svcnum. '">View/edit mail rules</A>';
 
+my $rpop_link = qq(<A HREF="${p}browse/acct_snarf.html?svcnum=). #"dee vim
+                      $svc_acct->svcnum. '">View/edit remote POP accounts</A>';
+
+my $vacation_rule = qsearchs('cgp_rule', { 'svcnum' => $svc_acct->svcnum,
+                                           'name'   => '#Vacation'
+                                         }
+                            );
+
+my $redirect_rule = qsearchs('cgp_rule', { 'svcnum' => $svc_acct->svcnum,
+                                           'name'   => '#Redirect'
+                                         }
+                            );
+
 </%init>