PAL.C.T MINI SHELL
#!/usr/bin/perl
# Scan through all folders, and apply the scheduled deletion policy for each
$no_acl_check++;
$ENV{'REMOTE_USER'} = getpwuid($<);
require './mailbox-lib.pl';
@folders = &list_folders();
&open_read_hash(); # hack to force correct DBM mode
foreach $f (@folders) {
# Skip folders for which clearing isn't active
next if ($f->{'nowrite'});
$auto = &get_auto_schedule($f);
next if (!$auto || !$auto->{'enabled'});
@delmails = ( );
$headersonly = $auto->{'all'} == 2 ? 0 : 1;
if ($auto->{'mode'} == 0) {
# Find messages that are too old
@mails = &mailbox_list_mails(undef, undef, $f, $headersonly);
$cutoff = time() - $auto->{'days'}*24*60*60;
$future = time() + 7*24*60*60;
foreach $m (@mails) {
$time = &parse_mail_date($m->{'header'}->{'date'});
$time ||= $m->{'time'};
if ($time && $time < $cutoff ||
!$time && $auto->{'invalid'} ||
$time > $future && $auto->{'invalid'}) {
push(@delmails, $m);
}
}
}
else {
# Cut folder down to size, by deleting oldest first
$size = &folder_size($f);
@mails = &mailbox_list_mails(undef, undef, $f, $headersonly);
while($size > $auto->{'size'}) {
last if (!@mails); # empty!
$oldmail = shift(@mails);
push(@delmails, $oldmail);
$size -= $oldmail->{'size'};
}
}
if (@delmails) {
if ($auto->{'all'} == 1) {
# Clear the whole folder
&mailbox_empty_folder($f);
}
elsif ($auto->{'all'} == 0) {
# Just delete mails that are over the limit
&mailbox_delete_mail($f, reverse(@delmails));
}
elsif ($auto->{'all'} == 2) {
# Move to another folder
($dest) = grep { &folder_name($_) eq $auto->{'dest'} }
@folders;
if (!$dest) {
print STDERR "destination folder ".
"$auto->{'dest'} does not exist!\n";
next;
}
&mailbox_move_mail($f, $dest, reverse(@delmails));
}
}
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`