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
CHANGELOG	876 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.74 KB	-rwxr-xr-x	2026-07-17 21:17
cancel.cgi	850 B	-rwxr-xr-x	2026-07-17 21:22
config	34 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	376 B	-rw-r--r--	2026-07-17 21:17
config.info.cz	0 B	-rw-r--r--	2026-07-17 21:17
defaultacl	42 B	-rw-r--r--	2026-07-17 21:17
download.cgi	5.02 KB	-rwxr-xr-x	2026-07-17 21:22
download.pl	1.39 KB	-rwxr-xr-x	2026-07-17 21:22
fetch.cgi	3.54 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	7.3 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	986 B	-rwxr-xr-x	2026-07-17 21:17
module.info	210 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	250 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	293 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	168 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	20 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	30 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	144 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	183 B	-rw-r--r--	2026-07-17 21:17
module.info.de	174 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	19 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	334 B	-rw-r--r--	2026-07-17 21:17
module.info.es	27 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	152 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	180 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	267 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	137 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	38 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	166 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	165 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	32 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	159 B	-rw-r--r--	2026-07-17 21:17
module.info.it	26 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	130 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	48 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	217 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	31 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	170 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	191 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	31 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	155 B	-rw-r--r--	2026-07-17 21:17
module.info.no	33 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	158 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	147 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	20 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	176 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	185 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	49 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	256 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	26 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	145 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	190 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	29 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	144 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	317 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	142 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	27 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	127 B	-rw-r--r--	2026-07-17 21:17
safeacl	28 B	-rw-r--r--	2026-07-17 21:17
uninstall.pl	340 B	-rwxr-xr-x	2026-07-17 21:17
updown-lib.pl	8.62 KB	-rwxr-xr-x	2026-07-17 21:17
upload.cgi	7.3 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# download.pl
# Start downloading some file, and update the .down file with its progress

$no_acl_check++;
require './updown-lib.pl';

$down = &get_download($ARGV[0]);
$down || die "Download ID $ARGV[0] does not exist!";
&can_write_file($down->{'dir'}) || die "Cannot download files to $down->{'dir'}";

# Do the download, updating the config file with progress
$down->{'pid'} = $$;
&save_download($down);
$error = &do_download($down, \&download_callback, \@paths);
$down->{'complete'} = 1;
$down->{'error'} = $error if ($error);
&save_download($down);

sub download_callback
{
if ($_[0] == 1) {
	# Started ok
	delete($down->{'size'});
	delete($down->{'got'});
	delete($down->{'finished'});
	$lastupdate = 0;
	$lastpercent = 0;
	}
elsif ($_[0] == 2) {
	# Got size
	$down->{'size'} = $_[1];
	}
elsif ($_[0] == 3) {
	# Got some data. Only update the status file every 10 seconds or when
	# a percent of data is received
	$down->{'got'} = $_[1];
	if ($down->{'size'}) {
		$percent = int($down->{'got'}*100/$down->{'size'});
		$now = time();
		return if ($percent <= $lastpercent &&
			   $now < $lastupdate + 10);
		$lastupdate = $now;
		$lastpercent = $percent;
		}
	}
elsif ($_[0] == 4) {
	# All done
	$down->{'finished'} = 1;
	$down->{'total'} += $down->{'got'};
	}
elsif ($_[0] == 5) {
	# Redirecting to new URL
	}
&switch_uid_back();
&save_download($down);
&switch_uid_to($down->{'uid'}, $down->{'gid'});
}