Show process_take.html syntax highlighted
% # vim:set syntax=mason:
<%args>
@take => ()
@takealias => ()
@takealiaskey => ()
@takeaddress => ()
</%args>
<%init>
my $user = Apache::SiteControl->getCurrentUser($r);
my $book = new AlphaMail::AddressBook($user->getUsername(), $user->getAttribute('imap'), $config);
my $k;
my @a;
my %take = ();
# Merge new "take" entries
for($k=0; $k <= $#takealias; $k++) {
$take{$takealiaskey[$k]} = [ Encode::decode_utf8($takealias[$k]), Encode::decode_utf8($takeaddress[$k]) ];
}
for($k=0; $k <= $#take; $k++) {
# Skip entries that have blank fields
my $alias = $take{$take[$k]}[0];
my $addr = $take{$take[$k]}[1];
next if $alias =~ m/^\s*$/ || $addr =~ m/^\s*$/;
@a = map { encode_utf8mimewords($_) } split(/,/, $addr);
$book->merge(encode_utf8mimewords($alias), [ @a ]);
}
$m->redirect(build_url('/mail/addressbook/index.html', {selected => 'Contacts', message => 'Your contacts were updated.' }));
</%init>
<%once>
use Carp;
use AlphaMail::AddressBook;
use AlphaMail::HTMLHelper qw(build_url);
use AlphaMail::MailTool qw(encode_utf8mimewords);
our $logger = Log::Log4perl->get_logger('alphamail');
</%once>
See more files for this project here