Show take.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$folder => 'none'
$addresslist => ''
</%args>
<& /mail/header.mhtml, title => "Address Book Editor", folder => $folder &>
<form method="post" action="/mail/addressbook/process_take.html">
<input type="submit" name="save" value="Save Changes to Entries">
<table class="addressbookeditor">
<tr><th colspan="3">New Entries</th></tr>
<tr><th>Add</th><th>Alias</th><th>Address(es) (comma separated)</th></tr>
<%perl>
for my $a (@toadd) {
my $tmpalias;
if($a->phrase =~ m/\w+/) {
$tmpalias = (split /\s/, $a->phrase)[0];
} else {
$tmpalias = (split /\@/, $a->address)[0];
}
</%perl>
<tr>
<td><input type="checkbox" checked name="take" value="<% $tmpalias |h %>"></td>
<td>
<input type="text" name="takealias" value="<% $tmpalias |h %>">
<input type="hidden" name="takealiaskey" value="<% $tmpalias |h %>">
</td>
<td>
<input type="text" size="80" name="takeaddress" value="<% $a->format |h %>">
</td>
</tr>
% }
<tr>
<th colspan="3">
<div class="subheading">
Existing Entries
</div>
</th>
</tr>
<tr>
</tr>
% for my $k (sort keys %{$addresses}) {
% local $" = ", ";
<tr>
<td>
</td>
<td>
<% Encode::decode_utf8(mimewords_to_utf8($k)) |h %>
</td>
<td>
<% Encode::decode_utf8(mimewords_to_utf8("@{$addresses->{$k}}")) |h %>
</td>
</tr>
% }
</table>
</form>
<& /mail/footer.mhtml &>
<%init>
my $user = Apache::SiteControl->getCurrentUser($r);
my $book = new AlphaMail::AddressBook($user->getUsername(), $user->getAttribute('imap'), $config);
my $addresses = $book->get_all;
$addresslist = Encode::decode_utf8($addresslist);
my @toadd = Email::Address->parse($addresslist);
</%init>
<%once>
use Carp;
use AlphaMail::AddressBook;
our $logger = Log::Log4perl->get_logger('alphamail');
</%once>
See more files for this project here