process_first_login.html from AlphaMail at Krugle
Show process_first_login.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$fullname => ''
@subscribed => ()
$sent_folder => 'none'
$trash_folder => 'none'
$drafts_folder => 'none'
$delete_drafts => 'none'
</%args>
<%init>
my $user = Apache2::SiteControl->getCurrentUser($r);
if(!$user || !$user->isa('Apache2::SiteControl::User')) {
$logger->error("Unable to find a user for the given session key. r, m:" . Dumper($r, $m));
$m->redirect("$base");
}
my $c;
my $p;
my $message;
eval {
$c = new AlphaMail::Middleware($user->getAttribute('imap'),
$user->getUsername(),
$user->getAttribute('password'), $config);
$p = new AlphaMail::Preferences($user->getUsername(),
$user->getAttribute('mx'), $config);
$p->set('fullname', $fullname);
$p->set('trash_folder', $trash_folder);
$p->set('sent_folder', $sent_folder);
$p->set('drafts_folder', $drafts_folder);
$p->set('delete_drafts', $delete_drafts);
$p->set('signature_on_top', $config->get('default_signature_on_top', 1));
$p->set('icon_preview', $config->get('default_icon_preview', 1));
$p->set('linkify', $config->get('default_linkify', 1));
$p->set('invertindex', $config->get('default_invertindex', 1));
$p->set('skipsendreport', $config->get('default_skipsendreport', 0));
$p->set('skip_images', $config->get('default_skip_images', 1));
$p->set('messages_per_page', $config->get('default_messages_per_page', 10));
$message = "Your settings were saved. ";
# Force an update of the session folderlist
$user->setAttribute($r, 'subfolderlist', '');
$logger->debug("Saving @subscribed as new folder list");
my ($prefix, $separator) = $config->getFolderPrefix($user);
$c->setSubscribedFolderList($prefix.$separator, @subscribed);
$logger->debug("Success");
$c->close();
};
if($@) {
$logger->error("$@");
$message = "Your list of subscribed folders was not updated due to a server error.";
}
$m->redirect(build_url("$base/mail/index.html", { message => $message }));
</%init>
<%once>
use AlphaMail::HTMLHelper qw(build_url);
use Data::Dumper;
our $logger = Log::Log4perl->get_logger('alphamail');
our $base = $config->get('base_uri');
</%once>
See more files for this project here