Show share_options.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$cancel => 0
$message => ''
</%args>
<& /mail/header.mhtml, message => $message, share => 1, title => "Sharing Options" &>
<div class="heading">Sharing Parameters</div>
<div class="section">
<form method="post" action="/mail/share_upload.html"
enctype="multipart/form-data">
<p>Please specify the following:</p>
<p>Key to use for encrypting the file: <input type="text" name="password">
<p><input type="checkbox" name="key"> I want the key to be sent with the
email. (If you do not check this, you will tell the recipient the key by
some other method, i.e. by phone or a separate email).
</p>
<p>File: <input type="file" name="file">
<br>
<br>
<input type="submit" name="upload" value="Upload and Compose a message">
<input type="submit" name="cancel" value="Cancel">
</form>
</div>
<& /mail/footer.mhtml &>
<%init>
my $user = Apache::SiteControl->getCurrentUser($r);
my $prefs = new AlphaMail::Preferences($user->getUsername(),
$user->getAttribute('imap'), $config);
my $number = $prefs->get('sharing_number');
my $agree = $prefs->get('sharing_agree');
my $copyright = $prefs->get('sharing_copyright');
my $expire = $prefs->get('sharing_expire');
if(!$number || !$copyright || !$agree || !$expire) {
$m->redirect(build_url("/mail/settings/index.html", {message => "You must check all of the agreement items and click agree in order to share files", selected => "Sharing"}));
}
</%init>
<%once>
use AlphaMail::HTMLHelper qw(build_url);
</%once>
See more files for this project here