Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	15.09 KB	-rw-r--r--	2026-07-19 16:26
add_address.cgi	611 B	-rwxr-xr-x	2026-07-19 16:28
address_chooser.cgi	5.09 KB	-rwxr-xr-x	2026-07-19 16:28
auto.pl	1.94 KB	-rwxr-xr-x	2026-07-19 16:28
boxes-lib.pl	85.02 KB	-rwxr-xr-x	2026-07-19 16:26
classlinks.sh	160 B	-rwxr-xr-x	2026-07-19 16:26
config-ALL-linux	503 B	-rw-r--r--	2026-07-19 16:26
config-aix	482 B	-rw-r--r--	2026-07-19 16:26
config-freebsd	478 B	-rw-r--r--	2026-07-19 16:26
config-hpux	478 B	-rw-r--r--	2026-07-19 16:26
config-irix	477 B	-rw-r--r--	2026-07-19 16:26
config-macos	478 B	-rw-r--r--	2026-07-19 16:26
config-msc-linux	495 B	-rw-r--r--	2026-07-19 16:26
config-netbsd	478 B	-rw-r--r--	2026-07-19 16:26
config-openbsd	478 B	-rw-r--r--	2026-07-19 16:26
config-openserver	483 B	-rw-r--r--	2026-07-19 16:26
config-osf1	484 B	-rw-r--r--	2026-07-19 16:26
config-qnx	499 B	-rw-r--r--	2026-07-19 16:26
config-solaris	477 B	-rw-r--r--	2026-07-19 16:26
config-unixware	477 B	-rw-r--r--	2026-07-19 16:26
config.info	3.23 KB	-rw-r--r--	2026-07-19 16:26
config.info.ca	3.54 KB	-rwxr-xr-x	2026-07-19 16:26
config.info.de	1.59 KB	-rw-r--r--	2026-07-19 16:26
config.info.el	4.76 KB	-rw-r--r--	2026-07-19 16:26
config.info.hu	0 B	-rw-r--r--	2026-07-19 16:26
config.info.nl	2.9 KB	-rwxr-xr-x	2026-07-19 16:26
config.info.no	3.09 KB	-rw-r--r--	2026-07-19 16:26
copy.cgi	848 B	-rwxr-xr-x	2026-07-19 16:28
copy_form.cgi	1.13 KB	-rwxr-xr-x	2026-07-19 16:28
defaultuconfig	763 B	-rw-r--r--	2026-07-19 16:26
delete_folders.cgi	1.32 KB	-rwxr-xr-x	2026-07-19 16:28
delete_mail.cgi	6.94 KB	-rwxr-xr-x	2026-07-19 16:28
detach.cgi	3.12 KB	-rwxr-xr-x	2026-07-19 16:28
detachall.cgi	1.96 KB	-rwxr-xr-x	2026-07-19 16:28
edit_auto.cgi	1.81 KB	-rwxr-xr-x	2026-07-19 16:28
edit_comp.cgi	1.58 KB	-rwxr-xr-x	2026-07-19 16:28
edit_folder.cgi	2.67 KB	-rwxr-xr-x	2026-07-19 16:28
edit_ifolder.cgi	1.05 KB	-rwxr-xr-x	2026-07-19 16:28
edit_imap.cgi	1.86 KB	-rwxr-xr-x	2026-07-19 16:28
edit_pop3.cgi	1.69 KB	-rwxr-xr-x	2026-07-19 16:28
edit_sig.cgi	552 B	-rwxr-xr-x	2026-07-19 16:28
edit_virt.cgi	1.25 KB	-rwxr-xr-x	2026-07-19 16:28
export.cgi	1.32 KB	-rwxr-xr-x	2026-07-19 16:28
folders-lib.pl	133.18 KB	-rwxr-xr-x	2026-07-19 16:26
import.cgi	3.02 KB	-rwxr-xr-x	2026-07-19 16:28
inbox_login.cgi	1.41 KB	-rwxr-xr-x	2026-07-19 16:28
inbox_login_error.cgi	1.17 KB	-rwxr-xr-x	2026-07-19 16:28
inbox_logout.cgi	503 B	-rwxr-xr-x	2026-07-19 16:28
index.cgi	12.29 KB	-rwxr-xr-x	2026-07-19 16:28
list_addresses.cgi	8.52 KB	-rwxr-xr-x	2026-07-19 16:28
list_folders.cgi	5.24 KB	-rwxr-xr-x	2026-07-19 16:28
list_ifolders.cgi	3.02 KB	-rwxr-xr-x	2026-07-19 16:28
mail_search.cgi	7.48 KB	-rwxr-xr-x	2026-07-19 16:28
mailbox-lib.pl	66.15 KB	-rwxr-xr-x	2026-07-19 16:26
module.info	296 B	-rw-r--r--	2026-07-19 16:26
module.info.ar	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ar.auto	256 B	-rw-r--r--	2026-07-19 16:26
module.info.bg	0 B	-rw-r--r--	2026-07-19 16:26
module.info.bg.auto	305 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	26 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	168 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	25 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	142 B	-rw-r--r--	2026-07-19 16:26
module.info.da	0 B	-rw-r--r--	2026-07-19 16:26
module.info.da.auto	159 B	-rw-r--r--	2026-07-19 16:26
module.info.de	119 B	-rw-r--r--	2026-07-19 16:26
module.info.el	0 B	-rw-r--r--	2026-07-19 16:26
module.info.el.auto	357 B	-rw-r--r--	2026-07-19 16:26
module.info.es	26 B	-rw-r--r--	2026-07-19 16:26
module.info.es.auto	163 B	-rw-r--r--	2026-07-19 16:26
module.info.eu	0 B	-rw-r--r--	2026-07-19 16:26
module.info.eu.auto	166 B	-rw-r--r--	2026-07-19 16:26
module.info.fa	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fa.auto	242 B	-rw-r--r--	2026-07-19 16:26
module.info.fi	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fi.auto	149 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	26 B	-rw-r--r--	2026-07-19 16:26
module.info.fr.auto	167 B	-rw-r--r--	2026-07-19 16:26
module.info.hr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.hr.auto	167 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	38 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	173 B	-rw-r--r--	2026-07-19 16:26
module.info.it	0 B	-rw-r--r--	2026-07-19 16:26
module.info.it.auto	151 B	-rw-r--r--	2026-07-19 16:26
module.info.ja	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	213 B	-rw-r--r--	2026-07-19 16:26
module.info.ko	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ko.auto	177 B	-rw-r--r--	2026-07-19 16:26
module.info.ms	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ms.auto	137 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	29 B	-rw-r--r--	2026-07-19 16:26
module.info.nl.auto	137 B	-rw-r--r--	2026-07-19 16:26
module.info.no	19 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	122 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	179 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	170 B	-rw-r--r--	2026-07-19 16:26
module.info.pt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt.auto	159 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR.auto	165 B	-rw-r--r--	2026-07-19 16:26
module.info.ru	55 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	264 B	-rw-r--r--	2026-07-19 16:26
module.info.sk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sk.auto	162 B	-rw-r--r--	2026-07-19 16:26
module.info.sv	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sv.auto	150 B	-rw-r--r--	2026-07-19 16:26
module.info.tr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.tr.auto	172 B	-rw-r--r--	2026-07-19 16:26
module.info.uk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.uk.auto	298 B	-rw-r--r--	2026-07-19 16:26
module.info.zh	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh.auto	141 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW.auto	147 B	-rw-r--r--	2026-07-19 16:26
newfolder.cgi	223 B	-rwxr-xr-x	2026-07-19 16:28
print_mail.cgi	1.33 KB	-rwxr-xr-x	2026-07-19 16:28
quotacheck.pl	3.18 KB	-rwxr-xr-x	2026-07-19 16:28
reply_mail.cgi	26.61 KB	-rwxr-xr-x	2026-07-19 16:28
save_address.cgi	1.01 KB	-rwxr-xr-x	2026-07-19 16:28
save_allow.cgi	761 B	-rwxr-xr-x	2026-07-19 16:28
save_auto.cgi	1.13 KB	-rwxr-xr-x	2026-07-19 16:28
save_comp.cgi	1.24 KB	-rwxr-xr-x	2026-07-19 16:28
save_folder.cgi	3.91 KB	-rwxr-xr-x	2026-07-19 16:28
save_group.cgi	797 B	-rwxr-xr-x	2026-07-19 16:28
save_ifolder.cgi	1.78 KB	-rwxr-xr-x	2026-07-19 16:28
save_imap.cgi	1.85 KB	-rwxr-xr-x	2026-07-19 16:28
save_pop3.cgi	1.63 KB	-rwxr-xr-x	2026-07-19 16:28
save_sig.cgi	648 B	-rwxr-xr-x	2026-07-19 16:28
save_virt.cgi	1.01 KB	-rwxr-xr-x	2026-07-19 16:28
search_form.cgi	2.58 KB	-rwxr-xr-x	2026-07-19 16:28
send_mail.cgi	18.99 KB	-rwxr-xr-x	2026-07-19 16:28
slideshow.cgi	1.78 KB	-rwxr-xr-x	2026-07-19 16:28
sort.cgi	1.14 KB	-rwxr-xr-x	2026-07-19 16:28
specialsync.cgi	1.2 KB	-rwxr-xr-x	2026-07-19 16:28
system_info.pl	1.6 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info	5.31 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.ca	5.59 KB	-rwxr-xr-x	2026-07-19 16:26
uconfig.info.cs	4.97 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.da	0 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.de	5.86 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.el	7.3 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.es	0 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.fr	145 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.hu	0 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.it	3.27 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.nl	5.21 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.no	4.96 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.pl	0 B	-rwxr-xr-x	2026-07-19 16:26
uconfig.info.pt_BR	4.95 KB	-rw-r--r--	2026-07-19 16:26
uconfig_info.pl	317 B	-rwxr-xr-x	2026-07-19 16:26
view_mail.cgi	17.66 KB	-rwxr-xr-x	2026-07-19 16:28
virtualize.cgi	753 B	-rwxr-xr-x	2026-07-19 16:28
webmin_menu.pl	4.67 KB	-rw-r--r--	2026-07-19 16:26
xhr-lib.pl	2.34 KB	-rw-r--r--	2026-07-19 16:28
xhr.cgi	351 B	-rwxr-xr-x	2026-07-19 16:28

Rename

#!/usr/bin/perl
# Called from Procmail to check if some user is over his LDAP quota, and if
# so bounces it. Exits with 0 if OK, 100 if over quota, or 111 if a temporary
# error occurred
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';

use Net::LDAP;

@ARGV == 6 || temperr("usage: quotacheck.pl <email> <ldap-host> <ldap-port> <ldap-based> <ldap-login> <ldap-pass>");
my ($email, $host, $port, $base, $login, $pass) = @ARGV;

# Read in email
my $size = 0;
while(<STDIN>) {
	$size += length($_);
	}

# Connect to LDAP
my $ldap = Net::LDAP->new($host, port => $port);
$ldap || temperr("Failed to connect to LDAP server $host:$port");
my $mesg = $ldap->bind(dn => $login, password => $pass);
if (!$mesg || $mesg->code) {
	temperr("Failed to login to LDAP server as $login : ",
		$mesg ? $mesg->error : "Unknown error");
	}

# Lookup the email address
my $rv = $ldap->search(base => $base,
		    filter => "(|(mail=$email)(mailAlternateAddress=$email))");
if ($rv->code) {
	temperr("Failed to lookup user in LDAP : ",$rv->error);
	}
my ($user) = $rv->all_entries();
exit(0) if (!$user);		# Non-LDAP, so no quota

# Check the current size of all the user's folders
my $mms = $user->get_value('mailMessageStore');
my $inbox = { 'type' => &folder_type($mms),
	      'file' => $mms };
my @folders = ( $inbox );
my $fdir = $user->get_value('homeDirectory')."/mail";
opendir(DIR, $fdir);
while(my $f = readdir(DIR)) {
	next if ($f eq "." || $f eq "..");
	my $path = "$fdir/$f";
	my $folder = { 'type' => &folder_type($path),
		       'file' => $path };
	push(@folders, $folder);
	}
closedir(DIR);
my $total = &folder_size(@folders);
print "Current size: $total\n";
print "Extra size: $size\n";

# Compare to quota
my $quota = $user->get_value('mailQuotaSize');
print "Allowed quota: $quota\n";
if ($quota && $total + $size > $quota) {
	print STDERR "Quota exceeded\n";
	exit(100);
	}
exit(0);

sub temperr
{
print STDERR @_,"\n";
exit(111);
}

# folder_size(&folder, ...)
# Sets the 'size' field of one or more folders, and returns the total
sub folder_size
{
my $total;
foreach my $f (@_) {
	if ($f->{'type'} == 0) {
		# Single mail file - size is easy
		my @st = stat($f->{'file'});
		$f->{'size'} = $st[7];
		}
	elsif ($f->{'type'} == 1) {
		# Maildir folder size is that of all mail files
		my $qd;
		$f->{'size'} = 0;
		foreach my $qd ('cur', 'new') {
			my $mf;
			opendir(QDIR, "$f->{'file'}/$qd");
			while($mf = readdir(QDIR)) {
				next if ($mf eq "." || $mf eq "..");
				my @st = stat("$f->{'file'}/$qd/$mf");
				$f->{'size'} += $st[7];
				}
			closedir(QDIR);
			}
		}
	elsif ($f->{'type'} == 3) {
		# MH folder size is that of all mail files
		my $mf;
		$f->{'size'} = 0;
		opendir(MHDIR, $f->{'file'});
		while($mf = readdir(MHDIR)) {
			next if ($mf eq "." || $mf eq "..");
			my @st = stat("$f->{'file'}/$mf");
			$f->{'size'} += $st[7];
			}
		closedir(MHDIR);
		}
	elsif ($f->{'type'} == 5) {
		# Size of a combined folder is the size of all sub-folders
		return &folder_size(@{$f->{'subfolders'}});
		}
	else {
		# Cannot get size of a remote folder
		$f->{'size'} = undef;
		}
	$total += $f->{'size'};
	}
return $total;
}

# folder_type(file_or_dir)
sub folder_type
{
return -d "$_[0]/cur" ? 1 : -d $_[0] ? 3 : 0;
}