XMailforum is a readonly knowledge archive now.

Registering as a new user or answering posts is not possible anymore.

Might the force be with you, to find here what you are looking for.

2019-09-20 - hschneider, Admin

Cookie Disclaimer: This forum uses only essential, anonymous session cookies (xmailforum*), nothing to be scared of.

Posted by: hschneider Jul 2 2004, 10:37 AM

I see ... then this one is offtopic here Try this, but backup before testing: CODE #!/usr/bin/perl # # purgemaildir.pl 1.00 # # Clears POP boxes from messages older than x days. # # (c)2004 Harald Schneider # #-------------------------------------------------------------- #--- Custom configuration goes here --------------------------- #-------------------------------------------------------------- $EXP_DAYS = 30; # Purge after x days. $DOMDIR= '/var/MailRoot/domains'; # domains folder #-------------------------------------------------------------- #--- End of custom config ------------------------------------- #-------------------------------------------------------------- &dorec([$DOMDIR],"procFiles",".*\$"); print "\n-- DONE!\n"; exit(0); sub dorec { my $delim = '/';  local(*paths) = $_[0];  local($path);  $fun = $_[1];  $pattern = $_[2];  foreach $path (@paths) {       next if $path =~ m%/\.$%; # Skip current       next if $path =~ m%/\.\.$%; #  and parent directory       if (-f $path && ($path =~ /$pattern/o)) {           &$fun($path);       } elsif (-d $path) {           opendir(DIR,$path) || die "Can't open $path - $!";           local(@files) = readdir(DIR);           closedir(DIR);           foreach (@files) { # Add directory part               $_ = $path . $delim . $_;           }           &dorec(*files,$fun,$pattern);       }  } } sub procFiles() { my $path = shift; if ($path =~ /Maildir\/new/) {  $tstamp = (stat($path))[9];  if($tstamp < (time - (60*60*24*$EXP_DAYS)) ) {    unlink($path);    print "REMOVED $path\n";  } } }                                                                                                                               Now you have both ...