Show process_take.html syntax highlighted
% # vim:set syntax=mason:
<%args>
@take => ()
@takename => ()
@takeaddress => ()
$folder
$uid
$uidv
$sorted_offset
$sortby
$literal
$printable
$full_headers
$n
</%args>
<%init>
my $user = Apache2::SiteControl->getCurrentUser($r);
my $book = new AlphaMail::AddressBook($user->getUsername(), $user->getAttribute('mx'), $config);
my $k;
my @a;
my %input;
for($k = 0; $k <= $#takeaddress; $k++) {
$takename[$k] = encode_utf8mimewords(Encode::decode_utf8($takename[$k]));
$takeaddress[$k] = Encode::decode_utf8($takeaddress[$k]);
if(grep(/^\Q$takeaddress[$k]\E$/,@take)) {
$book->add_address(qq("$takename[$k]"), $takeaddress[$k]);
}
}
$book->save;
$m->redirect(build_url("$base/mail/read.html", {folder => $folder, uid => $uid, uidv => $uidv, sorted_offset => $sorted_offset, sortby => $sortby, literal => $literal, printable => $printable, full_headers => $full_headers , n => $n, msg => 'Your contacts were updated.' }));
</%init>
<%once>
use AlphaMail::HTMLHelper qw(build_url);
use AlphaMail::MailTool qw(encode_utf8mimewords);
our $logger = Log::Log4perl->get_logger('alphamail');
our $base = $config->get('base_uri');
</%once>
See more files for this project here