On Tue, Sep 23, 2003 at 01:55:30AM -0500, [EMAIL PROTECTED] wrote:
Here is an updated version of my perl program to handle the find cleanup parts of qmail-scanner-queue.pl -z. The first version, if the /var/spool/qmailscan directory had not been updated in a day, went ahead and deleted it as well.
Sorry, but I don't want to see another 30K of perl added for such a simple
thing. Don't forget, EACH instance of Q-S would have to load that 30K worth
of code
plus the overhead the File::xxxxx module code
maybe someone with a Solaris system can check this cruftiness?
find . \( \( \( -type f -name '*.log' -o -name '*.csv' -o -name '*.txt' -o -name '*.db' \) -o \( -type d -name 'quarantine' -o -name 'archives' \) \) -o -mtime +1 \) -prune -o -print
------------------------------------------------------- This sf.net email is sponsored by:ThinkGeek Welcome to geek heaven. http://thinkgeek.com/sf _______________________________________________ Qmail-scanner-general mailing list [EMAIL PROTECTED] https://lists.sourceforge.net/lists/listinfo/qmail-scanner-general
