Gecko [ georgetownmover.com ]

Name	Size	Permission	Date
3	[ DIR ]	drwxr-xr-x	2026-04-11 11:45
assets	[ DIR ]	drwxr-xr-x	2026-04-11 11:45
build	[ DIR ]	drwxr-xr-x	2026-04-11 11:45
images	[ DIR ]	drwxr-xr-x	2026-04-11 11:45
includes	[ DIR ]	drwxr-xr-x	2026-04-11 11:45
languages	[ DIR ]	drwxr-xr-x	2026-04-11 11:45
themes	[ DIR ]	drwxr-xr-x	2026-04-11 11:45
todo	[ DIR ]	drwxr-xr-x	2026-04-11 11:45
2020020100.sql	2.03 KB	-rw-r--r--	2026-04-11 11:45
autoresponder_charsets.json	2.88 KB	-rw-r--r--	2025-01-13 08:52
box_msg.json	2.43 KB	-rw-r--r--	2023-02-02 09:28
boxtrapper.php	6.23 KB	-rwxr-xr-x	2023-03-06 08:04
boxtrapper_func.php	8.22 KB	-rw-r--r--	2023-12-15 01:43
boxtrapper_url.php	2.06 KB	-rw-r--r--	2025-10-17 04:29
c7_exim-x86_64.tar.gz	1.89 MB	-rw-r--r--	2026-04-11 11:45
config.inc.php	7.65 KB	-rw-r--r--	2026-04-10 07:27
configure.php	71.76 KB	-rw-r--r--	2026-04-10 05:55
exim-x86_64.tar.gz	1.92 MB	-rw-r--r--	2026-04-11 11:45
exim.conf	44.01 KB	-rw-r--r--	2021-12-24 06:44
exim.json	2.97 KB	-rw-r--r--	2024-06-11 08:31
exim4.conf.template	76.83 KB	-rw-r--r--	2021-12-24 06:44
greylist_common_providers.json	62.76 KB	-rw-r--r--	2022-08-04 11:24
hooks.php	677.01 KB	-rw-r--r--	2026-04-10 07:33
info.xml	4.15 KB	-rw-r--r--	2026-04-10 07:27
install.php	62.1 KB	-rw-r--r--	2026-04-10 07:33
install.xml	63 B	-rw-r--r--	2025-05-08 02:51
logrotate	304 B	-rw-r--r--	2024-02-19 05:16
md5	13.23 KB	-rw-r--r--	2026-04-10 07:33
notes.txt	293 B	-rw-r--r--	2025-11-26 03:01
popb4smtp	1.75 KB	-rw-r--r--	2022-12-09 08:27
popb4smtp-clean	1.93 KB	-rw-r--r--	2022-12-09 08:27
popb4smtp-watch	3.34 KB	-rw-r--r--	2022-12-09 08:27
rbl.json	396 B	-rw-r--r--	2022-09-23 08:09
remove.php	7.95 KB	-rw-r--r--	2026-04-10 07:33
rev	4 B	-rw-r--r--	2026-04-10 07:33
roundcube.tar.gz	7.17 MB	-rw-r--r--	2026-04-11 11:45
sqlite.rcube.db	62 KB	-rw-r--r--	2023-01-12 05:14
update-exim4.conf.conf	1.01 KB	-rw-r--r--	2021-12-24 06:44
update.php	11.53 KB	-rw-r--r--	2026-04-10 07:33

Rename

#!/usr/bin/perl -w
#
# $Id: popb4smtp-clean,v 1.5 2002/11/17 14:41:56 sheldonh Exp $
#
use strict;
use Unix::Syslog qw(:macros :subs);

$SIG{INT} = sub {
	syslog(LOG_CRIT, "%s", "exiting on SIGINT\n");
	exit 1;
};
$SIG{TERM} = sub {
	syslog(LOG_CRIT, "%s", "exiting on SIGTERM\n");
	exit 1;
};

my $DSEARCHDIR = '/var/webuzo-data/popb4smtp';
my $PROGNAME = 'popb4smtp-clean';
my $PIDFILE = '/var/run/popb4smtp-clean.pid';
my $KEEPSECS = 60 * 60 * 2;
my $FLUSHFREQ = 60 * 5;

sub xdie(@);
sub xwarn(@);

openlog($PROGNAME, LOG_PERROR | LOG_PID, LOG_MAIL);
open(PID, "> $PIDFILE") or
    xdie "$PIDFILE: $!\n";
print PID "$$\n";
close(PID);

syslog(LOG_CRIT, "%s", "pruning tree: $DSEARCHDIR\n");

while (1) {
	my ($now, $stat_cnt);

$now = $stat_cnt = 0;
	opendir(DIR, $DSEARCHDIR) or
	    xwarn "$DSEARCHDIR: $!\n";
	while (my $dir = readdir(DIR)) {
		next if $dir =~ /^\.{1,2}$/;

opendir(SUBDIR, "$DSEARCHDIR/$dir") or
		    xwarn "$DSEARCHDIR/$dir: $!\n";
		while (my $fn = readdir(SUBDIR)) {
			my ($mtime, $now);

next if $fn =~ /^\.{1,2}$/;

$stat_cnt++;
			if (not $mtime = (stat("$DSEARCHDIR/$dir/$fn"))[9]) {
				xwarn "$DSEARCHDIR/$dir/$fn: $!\n";
				next;
			}
			if (not $now or $stat_cnt > 250) {
				# We only call time() once every few stat()
				# calls to ensure that we don't abuse the
				# gettimeofday() system call.  We can't just
				# call it once per session, though, in case
				# a session takes a long time.
				#
				$now = time();
				$stat_cnt = 0;
			}
			if ($now - $mtime > $KEEPSECS and
			    not unlink("$DSEARCHDIR/$dir/$fn")) {
				xwarn "$DSEARCHDIR/$dir/$fn: $!\n";
			}
		}
		closedir(SUBDIR);
	}
	closedir(DIR);

sleep($FLUSHFREQ);
}

sub xdie(@)
{
	my (@msg) = @_;
	my ($msgstr, $rv);

$rv = $! or 1;
	$msgstr = join(' ', @msg);
	chomp($msgstr);
	syslog(LOG_CRIT, "%s", $msgstr);
	exit $rv;
}

sub xwarn(@)
{
	my (@msg) = @_;
	my ($msgstr);

$msgstr = join(' ', @msg);
	chomp($msgstr);
	syslog(LOG_CRIT, "%s", $msgstr);
}