Show sharing_agree.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$agree => 0
$cancel => 0
$copyright => 0
$expire => 0
$number => 0
$selected => ''
$doshare => 0
</%args>
<%init>
if($cancel) {
$m->redirect('/mail/index.html');
}
my $user = Apache::SiteControl->getCurrentUser($r);
my $prefs = new AlphaMail::Preferences($user->getUsername(),
$user->getAttribute('imap'), $config);
eval {
$prefs->set('sharing_agree', $agree);
$prefs->set('sharing_copyright', $copyright);
$prefs->set('sharing_number', $number);
$prefs->set('sharing_expire', $expire);
};
if($@) {
$m->redirect(build_url('/mail/settings/index.html', { selected => 'Sharing',
message => "Unable to save agreement." }));
}
if($doshare && $agree && $copyright && $number && $expire) {
$m->redirect("/mail/share_options.html");
} else {
$m->redirect(build_url('/mail/settings/index.html', { selected => 'Sharing',
message => "Sharing agreement saved." }));
}
</%init>
<%once>
use AlphaMail::HTMLHelper qw(build_url);
our $logger = Log::Log4perl->get_logger('alphamail');
</%once>
See more files for this project here