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:


$days = 60;

@globs = (

        '*/*/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 

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";

print "Deleted $c messages over $days days old\n";


Cool.  I'll give it a try.   Thanks!

Trey Nolen


Reply via email to