🚀 go-pugleaf

On 28 Feb 2000 09:30:41 GMT, Dave Thorn <davet@tw2.com> wrote:
>On Tue, 22 Feb 2000 23:29:14 +0000, Colin Smith <colin@Yelm.freeserve.co.uk> 
>wrote in message <slrn8b66u7.6us.colin@Orlanth.homenetwork>:
>>
>>Here's the shell code for 'del'.
>>------------------
>[snip code]
>>------------------
>
>
>that's nice.  and to join it, here's a script to delete those entries
>after they've been sitting there for some time.  add it to your
>crontab.  No, it's not a one-liner, sorry.  Doubtless this could be

Go on... I bet you could make it a one liner. :) You know you want to.

Rather than put it in a crontab, stick it in the /etc/profile or 
better if you use bash, your  ~/.bash_logout. That way on login 
or logout it'll clean up behind the individual users. In X11, 
stick it after the window manager in the .Xclient or .xsession
file so it gets run when you quit.


>written better (I'd cross-post to comp.lang.perl.misc if I really
>wanted it taken apart :).  Usual disclaimers, no warranty, GPL'd, etc,
>etc.
>
>
>#!/usr/bin/perl -w
>use strict;
>
>my $TRASH_DIR = $ENV{HOME}.'/.trash';
>my $EXPIRY = shift || 7;
>
>opendir(DIR, $TRASH_DIR) 
>  or die "can't opendir '$TRASH_DIR': $!";
>
>my @files = grep {
>    (-M "$TRASH_DIR/$_" > $EXPIRY) && (-f "$TRASH_DIR/$_")
>} readdir(DIR);
>
>foreach my $file (@files) {
>    unlink "$TRASH_DIR/$file" or warn "Cannot unlink '$file': $!";
>}
>
>__END__
>
>
>-- 
>#include <disclaimer.h>


-- 
|Colin Smith:  Colin.Smith@yelm.freeserve.co.uk  |   Windows 2000    |
|Linux: Delivers on the promises Microsoft make. |        AKA        |
|             http://www.linux.org/              |    The W2K Bug    |