Tom Collins wrote:
On Mar 2, 2010, at 3:31 PM, Trey Nolen wrote:
In the past, we have been using Sqwebmail to remove email from the Trash folder
periodically (by default 7 days). Now, we have migrated to a new server using
the new Vpopmail which no longer supports Sqwebmail. We have moved to
SquirrelMail for our main webmail interface. I would still like to be able to
remove deleted items after 7 days. I have seen the Proon plugin for
SquirrelMail, but I believe it is too complex for most users, and it also will
not let us specify global defaults. Does anyone out there have a solution
they are using?
It's a bit of a hack, but here's what I'm doing right now:
#!/usr/bin/perl
$|++;
$days = 60;
@globs = (
'*/*/Maildir/.Trash*/{cur,new}',
'?/*/*/Maildir/.Trash*/{cur,new}',
'*/?/*/Maildir/.Trash*/{cur,new}',
'?/*/?/*/Maildir/.Trash*/{cur,new}',
'*/*/Maildir/.Deleted Messages*/{cur,new}',
'?/*/*/Maildir/.Deleted Messages*/{cur,new}',
'*/?/*/Maildir/.Deleted Messages*/{cur,new}',
'?/*/?/*/Maildir/.Deleted Messages*/{cur,new}'
);
$c = 0;
print "Deleting mail in .Trash and .Deleted Messages folders, over $days days
old.\n";
foreach $path (@globs)
{
while ($name = glob ('/home/vpopmail/domains/' . $path))
{
opendir (D, $name);
while ($f = readdir(D))
{
# skip non-files
next if (! -f "$name/$f");
$t = -M "$name/$f";
if ($t > $days)
{
unlink "$name/$f";
$c++;
}
}
}
}
print "Deleted $c messages over $days days old\n";
-Tom
Cool. I'll give it a try. Thanks!
Trey Nolen
!DSPAM:4b945f4032711087518585!
