<% 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',
<% 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
)
%>
+%# RPOP
+
+ <% include('/view/elements/tr.html', label=>'Remote POP accounts',
+ value=>$rpop_link,
+ )
+ %>
+
<%init>
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>