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("$base/mail/index.html");
}
my $user = Apache2::SiteControl->getCurrentUser($r);
my $sigs = new AlphaMail::Signature($user->getUsername(),
$user->getAttribute('mx'), $config);
my $prefs = new AlphaMail::Preferences($user->getUsername(),
$user->getAttribute('mx'), $config);
my $message = "Saved.";
$prefs->set('signature_on_top', $signature_on_top);
if($ARGS{save}) {
$sigs->setBase(encode_utf8mimewords(Encode::decode_utf8($ARGS{base})));
$message = "New base signature saved.";
}
if($ARGS{add}) {
$ARGS{entry} = Encode::decode_utf8($ARGS{entry});
if($ARGS{entry} =~ m/\w+/) {
$sigs->addSignature(encode_utf8mimewords($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(encode_utf8mimewords(Encode::decode_utf8($ARGS{$k})));
$message = "Signature updated.";
}
}
}
$m->redirect(build_url("$base/mail/settings/index.html", { selected => 'Signatures',
message => $message }));
</%init>
<%once>
use AlphaMail::HTMLHelper qw(build_url);
use AlphaMail::MailTool qw(encode_utf8mimewords);
our $logger = Log::Log4perl->get_logger('alphamail');
our $base = $config->get('base_uri');
</%once>
See more files for this project here