update_signatures.html from AlphaMail at Krugle
Show update_signatures.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$signature_on_top => 0
$cancel => 0
</%args>
<%init>
if($cancel) {
$m->redirect('/mail/index.html');
}
my $user = Apache::SiteControl->getCurrentUser($r);
my $sigs = new AlphaMail::Signature($user->getUsername(),
$user->getAttribute('imap'), $config);
my $prefs = new AlphaMail::Preferences($user->getUsername(),
$user->getAttribute('imap'), $config);
my $message = "Saved.";
$prefs->set('signature_on_top', $signature_on_top);
if($ARGS{save}) {
$sigs->setBase($ARGS{base});
$message = "New base signature saved.";
}
if($ARGS{add}) {
if($ARGS{entry} =~ m/\w+/) {
$sigs->addSignature($ARGS{entry});
$message = "Signature added.";
} else {
$message = "Blank sub-signatures are not allowed.";
}
} else {
for my $arg (keys %ARGS) {
if($arg =~ m/delete_(\d+)$/) {
$sigs->deleteSignature($1);
$message = "Signature removed.";
} elsif($arg =~ m/update_(\d+)$/) {
my $k = "sig_$1";
$sigs->deleteSignature($1);
$sigs->addSignature($ARGS{$k});
$message = "Signature updated.";
}
}
}
$m->redirect(build_url('/mail/settings/index.html', { selected => 'Signatures',
message => $message }));
</%init>
<%once>
use AlphaMail::Signature;
use Data::Dumper;
use AlphaMail::HTMLHelper qw(url_encode);
our $logger = Log::Log4perl->get_logger('alphamail');
</%once>
See more files for this project here