Show import_csv_save.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$cancel => 0
@line => ()
@alias => ()
@entry => ()
</%args>
<%init>
my $message ="";
if($cancel) {
$m->redirect("/mail/index.html");
}
my $user = Apache::SiteControl->getCurrentUser($r);
my $book = new AlphaMail::AddressBook($user->getUsername(), $user->getAttribute('imap'), $config);
eval {
for my $n (@line) {
$logger->debug("Merging line $n $alias[$n] with $entry[$n]");
$book->merge($alias[$n], [ $entry[$n] ]);
}
$message = "Your address book was successfully merged.";
};
if($@) {
$logger->error("failed: $@");
$message = "Error. Could not import address book.";
}
$m->redirect(build_url('/mail/addressbook/index.html', { selected => 'Contacts',
message => $message }));
</%init>
<%once>
use AlphaMail::HTMLHelper qw(build_url);
use AlphaMail::AddressBook;
our $logger = Log::Log4perl->get_logger('alphamail');
</%once>
See more files for this project here