PAL.C.T MINI SHELL
#!/usr/bin/perl
# Display a message for printing
$trust_unknown_referers = 1;
require './mailbox-lib.pl';
&ReadParse();
# Get the folder
&set_module_index($in{'folder'});
@folders = &list_folders();
$folder = $folders[$in{'folder'}];
# Get the mail
$mail = &mailbox_get_mail($folder, $in{'id'}, 0);
$mail || &error($text{'view_egone'});
&parse_mail($mail);
foreach $s (split(/\0/, $in{'sub'})) {
&decrypt_attachments($mail);
local $amail = &extract_mail(
$mail->{'attach'}->[$s]->{'data'});
&parse_mail($amail);
$mail = $amail;
}
&decrypt_attachments($mail);
($textbody, $htmlbody, $body) = &find_body($mail, $userconfig{'view_html'});
$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 {
$main::force_charset = $mail_charset;
}
# 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();
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`