/usr/share/usermin/mailbox/reply_mail.cgi (27251B)
" : $folder->{'type'} == 0 ? $text{'confirm_warn4'}."
" : ""), [ &inputs_to_hiddens(\%in) ], [ [ 'confirm', $text{'confirm_ok'} ] ], ); &mail_page_footer( $viewlink, $text{'view_return'}, "index.cgi?folder=$in{'folder'}", $text{'index'}); exit; } &lock_folder($folder); &mailbox_delete_mail($folder, $mail); &unlock_folder($folder); &pop3_logout_all(); &redirect_to_previous(); exit; } elsif ($in{'markas0'} || $in{'markas1'} || $in{'markas2'}) { # Just mark the message as read/special my $oldread = &get_mail_read($folder, $mail); my $mark = $in{'markas0'} ? 0 : $in{'markas1'} ? 1 : 2; &set_mail_read($folder, $mail, ($oldread&4)+$mark); &redirect_to_previous(1); exit; } elsif ($in{'move1'} || $in{'move2'}) { # Move to another folder &error_setup($text{'reply_errm'}); my $mfolder = $folders[$in{'move1'} ? $in{'mfolder1'} : $in{'mfolder2'}]; $mfolder->{'noadd'} && &error($text{'delete_enoadd'}); &lock_folder($folder); &lock_folder($mfolder); &mailbox_move_mail($folder, $mfolder, $mail); &unlock_folder($mfolder); &unlock_folder($folder); &redirect_to_previous(); exit; } elsif ($in{'copy1'} || $in{'copy2'}) { # Copy to another folder &error_setup($text{'reply_errc'}); my $mfolder = $folders[$in{'copy1'} ? $in{'mfolder1'} : $in{'mfolder2'}]; my $qerr = &would_exceed_quota($mfolder, $mail); &error($qerr) if ($qerr); &lock_folder($folder); &lock_folder($mfolder); &mailbox_copy_mail($folder, $mfolder, $mail); &unlock_folder($mfolder); &unlock_folder($folder); &redirect_to_previous(); exit; } elsif ($in{'detach'} && $config{'server_attach'} == 2) { # Detach some attachment to a directory on the server &error_setup($text{'detach_err'}); $in{'dir'} || &error($text{'detach_edir'}); $in{'dir'} = "$remote_user_info[7]/$in{'dir'}" if ($in{'dir'} !~ /^\//); if ($in{'attach'} eq '*') { # Detaching all attachments (except the body and any # signature) under their filenames @dattach = grep { $_->{'idx'} ne $in{'bindex'} && $_->{'header'}->{'content-type'} !~ /^multipart\//i } @{$mail->{'attach'}}; if (defined($in{'sindex'})) { @dattach = grep { $_->{'idx'} ne $in{'sindex'} } @dattach; } } else { # Just one attachment @dattach = ( $mail->{'attach'}->[$in{'attach'}] ); } my @paths; foreach my $attach (@dattach) { my $path; if (-d $in{'dir'}) { # Just write to the filename in the directory my $fn; if ($attach->{'filename'}) { $fn = &decode_mimewords( $attach->{'filename'}); $fn =~ s/^.*[\/\\]//; } else { $attach->{'type'} =~ /\/(\S+)$/; $fn = "file.$1"; } $path = "$in{'dir'}/$fn"; } else { # Assume a full path was given $path = $in{'dir'}; } push(@paths, $path); } for(my $i=0; $i<@dattach; $i++) { # Try to write the files open(my $FILE, ">", "$paths[$i]") || &error(&text('detach_eopen', "$paths[$i]", $!)); (print $FILE $dattach[$i]->{'data'}) || &error(&text('detach_ewrite', "$paths[$i]", $!)); close($FILE) || &error(&text('detach_ewrite', "$paths[$i]", $!)); } # Show a message about the new files &mail_page_header($text{'detach_title'}); for(my $i=0; $i<@dattach; $i++) { my $sz = (int(length($dattach[$i]->{'data'}) / 1000)+1)." Kb"; print "
",&text('detach_ok', "$paths[$i]", $sz),"
\n"; } &mail_page_footer( $viewlink, $text{'view_return'}, "index.cgi?folder=$in{'folder'}", $text{'mail_return'}); exit; } elsif ($in{'black'} || $in{'white'}) { # Add sender to SpamAssassin black/write list, and tell user $mode = $in{'black'} ? "black" : "white"; &mail_page_header($text{$mode.'_title'}); &foreign_require("spam", "spam-lib.pl"); my $conf = &spam::get_config(); my @from = map { @{$_->{'words'}} } &spam::find($mode."list_from", $conf); my %already = map { $_, 1 } @from; my ($spamfrom) = &address_parts($mail->{'header'}->{'from'}); if ($already{$spamfrom}) { print &text($mode.'_already', "$spamfrom"),"
\n"; } else { push(@from, $spamfrom); &spam::save_directives($conf, $mode.'list_from', \@from, 1); &flush_file_lines(); print &text($mode.'_done', "$spamfrom"),"
\n"; } # Also move message to inbox $inbox = &get_spam_inbox_folder(); if ($userconfig{'white_move'} && $folder->{'spam'} && $in{'white'}) { &mailbox_move_mail($folder, $inbox, $mail); &mail_page_footer( "index.cgi?folder=$in{'folder'}&". "start=$in{'start'}", $text{'mail_return'}); } else { &mail_page_footer( $viewlink, $text{'view_return'}, "index.cgi?folder=$in{'folder'}&". "start=$in{'start'}", $text{'mail_return'}); } exit; } elsif ($in{'razor'} || $in{'ham'}) { # Report message to Razor as spam/ham and tell user $mode = $in{'razor'} ? "razor" : "ham"; &mail_page_header($text{$mode.'_title'}); print "",$text{$mode.'_report'},"\n"; print "
";
my $temp = &transname();
&send_mail($mail, $temp, 0, 1);
if ($userconfig{'spam_del'} && $mode eq "razor") {
# Delete message too
&lock_folder($folder);
&mailbox_delete_mail($folder, $mail);
&unlock_folder($folder);
}
my $cmd = $mode eq "razor" ? &spam_report_cmd()
: &ham_report_cmd();
open(my $OUT, "$cmd <$temp 2>&1 |");
my $error;
while(<$OUT>) {
print &html_escape($_);
$error++ if (/failed/i);
}
close($OUT);
unlink($temp);
print "\n";
$deleted = 0;
my $loc;
if ($? || $error) {
print "",$text{'razor_err'},"\n"; } else { $inbox = &get_spam_inbox_folder(); if ($userconfig{'spam_del'} && $mode eq "razor") { # Delete message too print "$text{'razor_deleted'}
\n"; $deleted = 1; $loc = "index.cgi?folder=$in{'folder'}"; } elsif ($userconfig{'ham_move'} && $folder->{'spam'} && $in{'ham'}) { # Move mail to inbox and tell user if (&remove_spam_subject($mail)) { &mailbox_modify_mail( $mail, $mail, $folder); } &mailbox_move_mail($folder, $inbox, $mail); print "",&text('razor_moved', $inbox->{'name'}),"
\n"; $deleted = 1; $loc = "index.cgi?folder=$in{'folder'}"; } else { # Tell user it was done print "",$text{'razor_done'},"
\n";
$loc = $viewlink;
}
}
&mail_page_footer(
$deleted ? ( ) :
( $viewlink, $text{'view_return'} ),
"index.cgi?folder=$in{'folder'}&start=$in{'start'}",
$text{'mail_return'});
exit;
}
elsif ($in{'dsn'}) {
# Send DSN to sender
my %dsn;
&open_dbm_db(\%dsn, "$user_module_config_directory/dsn", 0600);
my $dsnaddr = &send_delivery_notification($mail, undef, 1);
if ($dsnaddr) {
my $mid = $mail->{'header'}->{'message-id'};
$dsn{$mid} = time()." ".$dsnaddr;
}
dbmclose(%dsn);
&redirect_to_previous();
exit;
}
# Get the forwarded message and its attachments
if (!@fwdmail) {
&parse_mail($mail);
&decrypt_attachments($mail);
@attach = @{$mail->{'attach'}};
}
if ($in{'enew'}) {
# Editing an existing message, so keep same fields
$to = $mail->{'header'}->{'to'};
$rto = $mail->{'header'}->{'reply-to'};
$from = &decode_mimewords($mail->{'header'}->{'from'});
$cc = $mail->{'header'}->{'cc'};
$bcc = $mail->{'header'}->{'bcc'};
$ouser = $1 if ($from =~ /^(\S+)\@/);
}
else {
if (!$in{'forward'} && !@fwdmail) {
# Replying to a message, so set To: field
$to = $mail->{'header'}->{'reply-to'};
$to = $mail->{'header'}->{'from'} if (!$to);
$replyfrom = $mail->{'header'}->{'to'};
}
if ($in{'ereply'}) {
# Replying to our own sent email - to should be
# original to
$to = $mail->{'header'}->{'to'};
}
elsif ($in{'erall'}) {
# Replying to all of our own email - set to and cc
$to = $mail->{'header'}->{'to'};
$cc = $mail->{'header'}->{'cc'};
$bcc = $mail->{'header'}->{'bcc'};
}
elsif ($in{'rall'}) {
# If replying to all, add any addresses in the original
# To: or Cc: to our new Cc: address.
$cc = $mail->{'header'}->{'to'};
$cc .= ", ".$mail->{'header'}->{'cc'}
if ($mail->{'header'}->{'cc'});
}
}
# Convert MIMEwords in headers to 8 bit for display
$to = &decode_mimewords($to);
$rto = &decode_mimewords($rto);
$cc = &decode_mimewords($cc);
$bcc = &decode_mimewords($bcc);
# If replying, work out address it was sent to - this can be later used
# as the from address
if ($replyfrom) {
$replyfrom = &decode_mimewords($replyfrom);
@replyfrom = &split_addresses($replyfrom);
$replyfrom = @replyfrom ? $replyfrom[0]->[0] : undef;
}
# Remove our own emails from to/cc addresses
if (($in{'rall'} || $in{'erall'}) && !$in{'enew'} &&
!$userconfig{'reply_self'}) {
$to = &remove_own_email($to);
$cc = &remove_own_email($cc);
$bcc = &remove_own_email($bcc);
}
# Work out new subject, depending on whether we are replying
# our forwarding a message (or neither)
my $qu = !$in{'enew'} &&
(!$in{'forward'} || !$userconfig{'fwd_mode'});
$subject = &convert_header_for_display($mail->{'header'}->{'subject'},
undef, 1);
$subject = "Re: ".$subject if ($subject !~ /^Re:/i && !$in{'forward'} &&
!@fwdmail && !$in{'enew'});
$subject = "Fwd: ".$subject if ($subject !~ /^Fwd:/i &&
($in{'forward'} || @fwdmail));
# Remove signature
&check_signature_attachments($mail->{'attach'}, $textbody);
# Construct the initial mail text
$sig = &get_signature();
($quote, $html_edit, $body) = "ed_message(
$mail, $qu, $sig, $in{'body'}, $userconfig{'sig_mode'});
# Load images using server in replies
$quote = &disable_html_images($quote, 3);
# Don't include the original body as an attachment
@attach = &remove_body_attachments($mail, \@attach);
if (!$in{'forward'} && !$in{'enew'}) {
# When replying, lose non-cid attachments
@attach = grep { $_->{'header'}->{'content-id'} ||
$_->{'header'}->{'content-location'} } @attach;
}
# For a HTML reply or forward, fix up the cid: to refer to attachments
# in the original message.
if ($html_edit) {
my $qmid = &urlize($mail->{'id'});
$quote = &fix_cids($quote, \@attach,
"detach.cgi?id=$qmid&folder=$in{'folder'}$subs");
}
&mail_page_header(
$in{'forward'} || @fwdmail ? $text{'forward_title'} :
$in{'enew'} ? $text{'enew_title'} :
$text{'reply_title'});
}
# Script to validate fields
my $noto_msg = "e_escape($text{'send_etomsg'}, '"');
my $nosubject_msg = "e_escape($text{'send_esubjectmsg'}, '"');
my $close_msg = "e_escape($text{'send_eclosemsg'}, '"');
print <";
my $has_gpg;
my @keys;
if (&has_command("gpg") && &foreign_check("gnupg") &&
&foreign_available("gnupg")) {
&foreign_require("gnupg", "gnupg-lib.pl");
@keys = &gnupg::list_keys_sorted();
$has_gpg = @keys ? 1 : 0;
}
my @tabs = ( [ "from", $text{'reply_tabfrom'} ],
$userconfig{'reply_to'} ne 'x' ?
( [ "rto", $text{'reply_tabreplyto'} ] ) : ( ),
[ "to", $text{'reply_tabto'} ],
$userconfig{'cc_tabs'} ? ( ) :
( [ "cc", $text{'reply_tabcc'} ],
[ "bcc", $text{'reply_tabbcc'} ] ),
$has_gpg ? ( [ "signing", $text{'reply_tabsigning'} ] ) : ( ),
[ "options", $text{'reply_taboptions'} ] );
print &ui_tabs_start(\@tabs, "tab", "to", 0);
# From address tab
my @froms;
if ($from) {
# Got From address already, such as when editing old email
@froms = ( $from );
}
else {
# Work out From: addresses
($froms, $doms) = &list_from_addresses();
@froms = @$froms;
}
# Find preferred From address from addressbook, if set
my @faddrs = grep { $_->[3] } &list_addresses();
my ($defaddr) = grep { $_->[3] == 2 } @faddrs;
# If replying to an email and the original to address is in our addressbook,
# use that as the from address
my $replyaddr;
if ($replyfrom) {
($replyaddr) = grep { $_->[0] eq $replyfrom } @faddrs;
$defaddr = $replyaddr if ($replyaddr);
}
if ($folder->{'fromaddr'}) {
# Folder has a specified From: address
($defaddr) = &split_addresses($folder->{'fromaddr'});
}
my $deffrom;
my $frominput;
if ($config{'edit_from'} == 1) {
# User can enter any from address he wants
if ($defaddr) {
# Address book contains a default from address
$deffrom = $defaddr->[1] ? "\"$defaddr->[1]\" <$defaddr->[0]>"
: $defaddr->[0];
}
else {
$deffrom = $froms[0];
}
$frominput = &ui_address_field("from", $deffrom, 1, 0);
}
elsif ($config{'edit_from'} == 2) {
# Only the real name and username part is editable
my ($real, $user, $dom);
my ($sp) = $defaddr || &split_addresses($froms[0]);
$real = $sp->[1];
if ($sp->[0] =~ /^(\S+)\@(\S+)$/) {
$user = $1; $dom = $2;
}
else {
$user = $sp->[0];
}
$frominput = &ui_textbox("real", $real, 15)."\n".
"<".&ui_textbox("user", $user, 10)."\@";
if ($doms && @$doms > 1) {
$frominput .= &ui_select("dom", undef,
[ map { [ $_ ] } @$doms ]).">";
}
else {
$frominput .= "$dom>".
&ui_hidden("dom", $dom);
}
$frominput .= &address_button("user", 0, 2, "real") if (@faddrs);
}
else {
# A fixed From address, or a choice of fixed options
if (@froms > 1) {
$deffrom = $froms[0];
if ($replyfrom) {
# Use from address from original email if possible
foreach my $f (@froms) {
my @f = &split_addresses($f);
if (@f && $f[0]->[0] eq $replyfrom) {
$deffrom = $f;
last;
}
}
}
$frominput = &ui_select("from", $deffrom,
[ map { [ $_, &html_escape($_) ] } @froms ]);
}
else {
$frominput = "".&html_escape($froms[0])."".
&ui_hidden("from", $froms[0]);
}
}
print &ui_tabs_start_tab("tab", "from");
print &ui_div_row($text{'mail_from'}, $frominput);
print &ui_tabs_end_tab();
# Show the Reply-To field
if ($userconfig{'reply_to'} ne 'x') {
$rto = $userconfig{'reply_to'} if ($userconfig{'reply_to'} ne '*');
print &ui_tabs_start_tab("tab", "rto");
print &ui_div_row($text{'mail_replyto'},
&ui_address_field("replyto", $rto, 1, 0));
print &ui_tabs_end_tab();
}
$bcc ||= $userconfig{'bcc_to'};
if ($userconfig{'cc_tabs'}) {
# Show all address fields in a tab
print &ui_tabs_start_tab("tab", "to");
print &ui_div_row($text{'mail_to'}, &ui_address_field("to", $to,
0, 1));
print &ui_div_row($text{'mail_cc'}, &ui_address_field("cc", $cc,
0, 1));
print &ui_div_row($text{'mail_bcc'}, &ui_address_field("bcc", $bcc,
0, 1));
print &ui_tabs_end_tab();
}
else {
# Show To: field in a tab
print &ui_tabs_start_tab("tab", "to");
print &ui_div_row($text{'mail_to'}, &ui_address_field("to", $to,
0, 1));
print &ui_tabs_end_tab();
# Show Cc: field in a tab
print &ui_tabs_start_tab("tab", "cc");
print &ui_div_row($text{'mail_cc'}, &ui_address_field("cc", $cc,
0, 1));
print &ui_tabs_end_tab();
# Show Bcc: field in a tab
print &ui_tabs_start_tab("tab", "bcc");
print &ui_div_row($text{'mail_bcc'}, &ui_address_field("bcc", $bcc,
0, 1));
print &ui_tabs_end_tab();
}
# Ask for signing and encryption
if ($has_gpg) {
print &ui_tabs_start_tab("tab", "signing");
my @signs;
my $def_sign = "";
my @crypts;
foreach my $k (@keys) {
my $n = $k->{'name'}->[0];
$n = substr($n, 0, 40)."..." if (length($n) > 40);
if ($k->{'email'}->[0]) {
$n .= " <".$k->{'email'}->[0].">";
}
else {
$n .= " ($k->{'key'})";
}
if ($k->{'secret'}) {
push(@signs, [ $k->{'index'}, $n ]);
}
if ($k->{'secret'} && $userconfig{'def_sign'}) {
my $def_signer = lc($userconfig{'def_sign'});
for(my $i=0; $i<@{$k->{'name'}}; $i++) {
if (lc($k->{'name'}->[$i]) eq $def_signer ||
lc($k->{'email'}->[$i]) eq $def_signer) {
$def_sign = $k->{'index'};
}
}
}
push(@crypts, [ $k->{'index'}, $n ]);
}
print &ui_div_row($text{'mail_sign'},
&ui_select("sign", $def_sign,
[ [ "", $text{'mail_nosign'} ], @signs ]));
print &ui_div_row($text{'mail_crypt'},
&ui_select("crypt", $userconfig{'def_crypt'} ? -1 : "",
[ [ "", $text{'mail_nocrypt'} ],
[ -1, $text{'mail_samecrypt'} ], @crypts ]));
print &ui_tabs_end_tab();
}
# Show tab for options
print &ui_tabs_start_tab("tab", "options");
print &ui_div_row($text{'mail_pri'},
&ui_select("pri", "",
[ [ 1, $text{'mail_highest'} ],
[ 2, $text{'mail_high'} ],
[ "", $text{'mail_normal'} ],
[ 4, $text{'mail_low'} ],
[ 5, $text{'mail_lowest'} ] ]));
if ($userconfig{'req_dsn'} == 2) {
# Ask for a disposition (read) status
print &ui_div_row($text{'reply_dsn'},
&ui_radio("dsn", 0, [ [ 1, $text{'yes'} ],
[ 0, $text{'no'} ] ]));
}
if ($userconfig{'req_del'} == 2) {
# Ask for a delivery status
print &ui_div_row($text{'reply_del'},
&ui_radio("del", 0, [ [ 1, $text{'yes'} ],
[ 0, $text{'no'} ] ]));
}
# Ask if should add to address book
print &ui_div_row(" ",
&ui_checkbox("abook", 1, $text{'reply_aboot'}, $userconfig{'add_abook'}));
print &ui_tabs_end_tab();
print &ui_tabs_end();
# JS to disable enter in subject field
print <
/g,
$sig =~ s/^\s+//g,
$sig = "
$sig
"
if ($sig);
print &ui_table_row(undef,
&ui_textarea("body", $draft || $sig, 16, 80, undef, 0,
"style='display: none' id=body data-html-mode='$userconfig{'html_edit_mode'}'").
$html_editor, 2);
}
else {
# Show text editing area
my $wm = $config{'wrap_mode'};
$wm =~ s/^wrap=//g;
my $wcols = $userconfig{'wrap_compose'};
print &ui_table_row(undef,
&ui_textarea("body", "\n".($draft || "\n\n$sig\n\n$quote"), 16,
$wcols || 80,
$wcols ? "hard" : "",
0,
$wcols ? "" : "style='width:100%'"), 2);
}
if (&has_command("ispell") && !$userconfig{'nospellcheck'}) {
print &ui_table_row(undef,
&ui_checkbox("spell", 1, $text{'reply_spell'},
$userconfig{'spell_check'}), 2);
}
print &ui_table_end();
print &ui_hidden("html_edit", $html_edit);
print &ui_hidden("html_edit_config", $userconfig{'html_edit'});
# Display forwarded attachments - but exclude those referenced in the body,
# as they get included automatically
my $viewurl = "view_mail.cgi?id=".&urlize($in{'id'}).
"&folder=$folder->{'index'}$subs";
my $detachurl = "detach.cgi?id=".&urlize($in{'id'}).
"&folder=$folder->{'index'}$subs";
my $mailurl = "view_mail.cgi?folder=$folder->{'index'}$subs";
my @non_body_attach;
if (@attach) {
@non_body_attach = &remove_cid_attachments($mail, \@attach);
}
if (@non_body_attach) {
&attachments_table(\@non_body_attach, $folder, $viewurl, $detachurl,
$mailurl, 'id', "forward");
}
foreach my $a (@attach) {
if (&indexof($a, @non_body_attach) < 0) {
# Body attachment .. always include
print &ui_hidden("forward", $a->{'idx'});
}
}
# Display forwarded mails
if (@fwdmail) {
&attachments_table(\@fwdmail, $folder, $viewurl, $detachurl,
$mailurl, 'id', undef);
foreach my $fwdid (@mailforwardids) {
print &ui_hidden("mailforward", $fwdid);
}
}
# Display new attachment fields
&show_attachments_fields($userconfig{'def_attach'}, $config{'server_attach'});
print &ui_form_end([ [ "send", $text{'reply_send'} ],
[ "draft", $text{'reply_draft'}, undef, undef,
"onClick='form.draft_clicked = 1'" ],
[ "save", $text{'reply_save'}, undef, undef,
"onClick='form.draft_clicked = 1'" ],
]);
&mail_page_footer("index.cgi?folder=$in{'folder'}&start=$in{'start'}",
$text{'mail_return'});
&pop3_logout_all();
sub decode_and_sub
{
return if (!$mail);
&parse_mail($mail);
@sub = split(/\0/, $in{'sub'});
$subs = join("", map { "&sub=$_" } @sub);
my ($deccode, $decmessage);
foreach my $s (@sub) {
# We are looking at a mail within a mail ..
&decrypt_attachments($mail);
my $amail = &extract_mail(
$mail->{'attach'}->[$s]->{'data'});
&parse_mail($amail);
$mail = $amail;
}
($deccode, $decmessage) = &decrypt_attachments($mail);
}
sub redirect_to_previous
{
my ($refresh) = @_;
$refresh = time().$$ if ($refresh);
my $perpage = $folder->{'perpage'} || $userconfig{'perpage'};
my $s = int($mail->{'sortidx'} / $perpage) * $perpage;
if ($userconfig{'open_mode'}) {
&redirect($viewlink);
}
else {
&redirect("index.cgi?folder=$in{'folder'}&start=$s&refresh=$refresh");
}
}