Show update_general.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$linkify => 0
$icon_preview => 0
$skip_images => 0
$fullname => 0
$replyto => 0
$messages_per_page => 0
$quicknav => 0
$always_bcc => 0
$skipsendreport => 0
$literal => 0
$enable_raw => 0
$cancel => 0
</%args>
<%init>
if($cancel) {
$m->redirect('/mail/index.html');
}
my $message = "Your settings were saved";
my $user = Apache::SiteControl->getCurrentUser($r);
my $prefs = new AlphaMail::Preferences($user->getUsername(),
$user->getAttribute('imap'), $config);
if($replyto !~ m/^[[:ascii:]]*$/) {
$message = "Reply address contained illegal characters";
}
eval {
$prefs->set('linkify', $linkify);
$prefs->set('icon_preview', $icon_preview);
$prefs->set('skip_images', $skip_images);
$prefs->set('enable_raw', $enable_raw);
$prefs->set('messages_per_page', $messages_per_page);
$prefs->set('always_bcc', $always_bcc);
# BUG 245: Make sure the change (msg per pg) propagates immediately
$user->setAttribute($r, 'lastn', $messages_per_page);
$prefs->set('fullname', encode_utf8mimewords(Encode::decode_utf8($fullname)));
my $reply_address = $user->getUsername() . "@" . $user->getAttribute('mx');
if($replyto =~ m/^[[:ascii:]]+\@[[:ascii:]]+/) {
$prefs->set('replyto', $replyto);
} else {
$prefs->set('replyto', $reply_address);
}
$prefs->set('skipsendreport', $skipsendreport);
#$prefs->set('quicknav', $quicknav);
};
if($@) {
$message = "Unable to save preferences: $@";
}
$m->redirect(build_url('/mail/settings/index.html', { selected => 'General',
message => $message }));
</%init>
<%once>
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