Gecko [ contributie.vriendennsm.nl ]

Linux mail.vriendennsm.nl 6.1.0-51-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.177-1 (2026-07-16) x86_64
Apache/2.4.68 (Debian)
Server IP : 217.154.75.17 & Your IP : 216.73.216.195
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
xinha	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
CHANGELOG	5.7 KB	-rw-r--r--	2026-07-17 21:17
Makefile	125 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	3.02 KB	-rwxr-xr-x	2026-07-17 21:17
boxes-lib.pl	85.02 KB	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	520 B	-rwxr-xr-x	2026-07-17 21:17
config	794 B	-rw-r--r--	2026-07-17 21:17
config.info	5.38 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	5.8 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	5.21 KB	-rw-r--r--	2026-07-17 21:17
config.info.de	6.28 KB	-rw-r--r--	2026-07-17 21:17
config.info.el	8.15 KB	-rw-r--r--	2026-07-17 21:17
config.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	6.42 KB	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.it	5.98 KB	-rw-r--r--	2026-07-17 21:17
config.info.ja	5.98 KB	-rw-r--r--	2026-07-17 21:17
config.info.ko	5.3 KB	-rw-r--r--	2026-07-17 21:17
config.info.nl	5.49 KB	-rw-r--r--	2026-07-17 21:17
config.info.no	5.26 KB	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
config_info.pl	389 B	-rwxr-xr-x	2026-07-17 21:17
defaultacl	50 B	-rw-r--r--	2026-07-17 21:17
delete_all.cgi	1.25 KB	-rwxr-xr-x	2026-07-17 21:22
delete_mail.cgi	7 KB	-rwxr-xr-x	2026-07-17 21:22
detach.cgi	3.65 KB	-rwxr-xr-x	2026-07-17 21:22
detachall.cgi	1.84 KB	-rwxr-xr-x	2026-07-17 21:22
find.cgi	731 B	-rwxr-xr-x	2026-07-17 21:22
folders-lib.pl	133.18 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	2.73 KB	-rwxr-xr-x	2026-07-17 21:22
list_mail.cgi	5.24 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.02 KB	-rwxr-xr-x	2026-07-17 21:17
mail_search.cgi	3.68 KB	-rwxr-xr-x	2026-07-17 21:22
mailboxes-lib.pl	33.71 KB	-rwxr-xr-x	2026-07-17 21:17
makelang.pl	1.35 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	137 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	145 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	167 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	97 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	37 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	75 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	72 B	-rw-r--r--	2026-07-17 21:17
module.info.de	77 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	232 B	-rw-r--r--	2026-07-17 21:17
module.info.es	38 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	72 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	110 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	141 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	27 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	61 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	40 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	76 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	108 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	38 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	72 B	-rw-r--r--	2026-07-17 21:17
module.info.it	27 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	76 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	39 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	79 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	29 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	65 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	73 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	30 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	57 B	-rw-r--r--	2026-07-17 21:17
module.info.no	27 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	47 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	118 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	67 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	94 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	34 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	65 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	63 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	99 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	120 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	78 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	104 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	193 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	79 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	33 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	55 B	-rw-r--r--	2026-07-17 21:17
prefs.info	240 B	-rw-r--r--	2026-07-17 21:17
reply_mail.cgi	16.74 KB	-rwxr-xr-x	2026-07-17 21:22
safeacl	32 B	-rw-r--r--	2026-07-17 21:17
search_form.cgi	1.86 KB	-rwxr-xr-x	2026-07-17 21:22
send_mail.cgi	11.9 KB	-rwxr-xr-x	2026-07-17 21:22
slideshow.cgi	1.63 KB	-rwxr-xr-x	2026-07-17 21:22
useradmin_update.pl	2.33 KB	-rwxr-xr-x	2026-07-17 21:17
view_mail.cgi	11.24 KB	-rwxr-xr-x	2026-07-17 21:22
xhr-lib.pl	2.34 KB	-rw-r--r--	2026-07-17 21:22
xhr.cgi	351 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Show a page containing all image attachments

require './mailboxes-lib.pl';

# Get the mail
&ReadParse();
&can_user($in{'user'}) || &error($text{'mail_ecannot'});
@folders = &list_user_folders($in{'user'});
$folder = $folders[$in{'folder'}];
@mail = &mailbox_list_mails($in{'idx'}, $in{'idx'}, $folder);
$mail = $mail[$in{'idx'}];
&parse_mail($mail);
@sub = split(/\0/, $in{'sub'});
$subs = join("", map { "&sub=".&urlize($_) } @sub);
foreach $s (@sub) {
        # We are looking at a mail within a mail ..
        local $amail = &extract_mail($mail->{'attach'}->[$s]->{'data'});
        &parse_mail($amail);
        $mail = $amail;
        }

# Find image attachments
@attach = @{$mail->{'attach'}};
@attach = &remove_body_attachments($mail, \@attach);
@attach = &remove_cid_attachments($mail, \@attach);
@iattach = grep { $_->{'type'} =~ /^image\// } @attach;

&popup_header($text{'slide_title'});

$n = 0;
foreach $a (@iattach) {
	# Navigation links
	print "<hr>" if ($n > 0);
	print "<a name=image$n></a>\n";
	@links = ( );
	if ($a eq $iattach[0]) {
		push(@links, $text{'slide_prev'});
		}
	else {
		push(@links, "<a href='#image".($n-1)."'>".
			     "$text{'slide_prev'}</a>");
		}
	if ($a eq $iattach[$#iattach]) {
		push(@links, $text{'slide_next'});
		}
	else {
		push(@links, "<a href='#image".($n+1)."'>".
			     "$text{'slide_next'}</a>");
		}
	push(@links, "<b>$a->{'filename'}</b>") if ($a->{'filename'});
	print &ui_links_row(\@links),"<br>\n";

# Actual image
	print "<img src='detach.cgi?idx=$in{'idx'}".
	      "&folder=$in{'folder'}&attach=$a->{'idx'}&user=".
	      &urlize($in{'user'})."$subs'><br>\n";
	$n++;
	}

&popup_footer();