File manager - Edit - /usr/local/usermin-1.860/mailbox/print_mail.cgi
Back
#!/usr/bin/perl # Display a message for printing use strict; use warnings; 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();
| ver. 1.4 |
Github
|
.
| PHP 7.4.33 | Generation time: 0.48 |
proxy
|
phpinfo
|
Settings