Viewing file:  print_mail.cgi (1.26 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Display a message for printing
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %userconfig);
our $trust_unknown_referers = 1;
require './mailbox-lib.pl';
&ReadParse();
# Get the folder
&set_module_index($in{'folder'});
my @folders = &list_folders();
my $folder = $folders[$in{'folder'}];
# Get the mail
my $mail = &mailbox_get_mail($folder, $in{'id'}, 0);
$mail || &error($text{'view_egone'});
&parse_mail($mail);
foreach my $s (split(/\0/, $in{'sub'})) {
&decrypt_attachments($mail);
my $amail = &extract_mail(
$mail->{'attach'}->[$s]->{'data'});
&parse_mail($amail);
$mail = $amail;
}
&decrypt_attachments($mail);
my ($textbody, $htmlbody, $body) = &find_body($mail, $userconfig{'view_html'});
my $mail_charset = &get_mail_charset($mail, $body);
if (&get_charset() eq 'UTF-8' && &can_convert_to_utf8(undef, $mail_charset)) {
$body->{'data'} = &convert_to_utf8($body->{'data'}, $mail_charset);
}
else {
no warnings "once";
$main::force_charset = $mail_charset;
use warnings "once";
}
# Show it
&ui_print_header(undef,
&convert_header_for_display($mail->{'header'}->{'subject'}));
&show_mail_printable($mail, $body, $textbody, $htmlbody);
print "<script>window.print();</script>\n";
&ui_print_footer();
|