Edit:
#!/usr/bin/perl
# Show a page containing all image attachments
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in);
require './mailbox-lib.pl';
# Get the mail
&ReadParse();
my @folders = &list_folders_sorted();
my ($folder) = grep { $_->{'index'} == $in{'folder'} } @folders;
$folder || &error($text{'view_efolder'});
my $mail = &mailbox_get_mail($folder, $in{'id'}, 0);
$mail || &error($text{'view_egone'});
&parse_mail($mail);
my @sub = split(/\0/, $in{'sub'});
my $subs = join("", map { "&sub=".&urlize($_) } @sub);
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;
}
&decrypt_attachments($mail);
# Find image attachments
my @attach = @{$mail->{'attach'}};
@attach = &remove_body_attachments($mail, \@attach);
@attach = &remove_cid_attachments($mail, \@attach);
my @iattach = grep { $_->{'type'} =~ /^image\// } @attach;
&popup_header($text{'slide_title'});
my $n = 0;
foreach my $a (@iattach) {
# Navigation links
print "/usr/share/usermin/mailbox/slideshow.cgi (1823B)
" if ($n > 0); print "\n"; my @links; if ($a eq $iattach[0]) { push(@links, $text{'slide_prev'}); } else { push(@links, "". "$text{'slide_prev'}"); } if ($a eq $iattach[$#iattach]) { push(@links, $text{'slide_next'}); } else { push(@links, "". "$text{'slide_next'}"); } push(@links, "$a->{'filename'}") if ($a->{'filename'}); print &ui_links_row(\@links),"
\n"; # Actual image print "
\n"; $n++; } &popup_footer();