Although I believe that my trash is being emptied, some do not.
When someone who uses our mail-server complains that their mail is not
being deleted, I manually deleted their trash.
This takes time.
I would like to force expunge all trash once a week.
This would save me and many others the headache of listening to all but
the most detail oriented of the obsessive compulsive users.
My only other option would be something like this:
#!/usr/bin/perl
#filename: clean_trash.pl
#warning: use at your own risk this has not been tested.
use strict;
die "Delete this if you want to run this dangerous program.\n";
open( DIRECTORY, '<', "passwd.file" ) || die ("file not found $!\n");
foreach (<DIRECTORY>) {
chomp;
my ( $uid, $uidnum, $gidnum, $path ) = ( split ( /:/, $_ ) )[ \
0,2,3,5];
if ( ( $uidnum > 1000 ) && ( $uid ne "nobody" ) ) {
my $trashdir = "$path\/Maildir\/.Trash\/.cur";
if ( -d $trashdir ) {
print "changing to $trashdir\n";
chdir($trashdir);
print "deleting trash\n";
system("/bin/rm *imap*");
}
}
}
--
********************************
*Theodore Knab
*Washington College
* ---------------------------
********************************
-------------------------------------------------------
This SF.Net email sponsored by: Parasoft
Error proof Web apps, automate testing & more.
Download & eval WebKing and get a free book.
www.parasoft.com/bulletproofapps1
_______________________________________________
courier-users mailing list
[EMAIL PROTECTED]
Unsubscribe: https://lists.sourceforge.net/lists/listinfo/courier-users
