diff options
| -rw-r--r-- | util/Makefile | 4 | ||||
| -rw-r--r-- | util/cleancache.pl | 26 |
2 files changed, 2 insertions, 28 deletions
diff --git a/util/Makefile b/util/Makefile index 3ff1a1b3..b4e8fb2c 100644 --- a/util/Makefile +++ b/util/Makefile @@ -1,4 +1,4 @@ -# $Id: Makefile,v 1.15 2002/08/12 15:03:25 kcwu Exp $ +# $Id: Makefile,v 1.16 2002/08/15 09:44:12 in2 Exp $ BBSHOME?=$(HOME) OSTYPE!=uname @@ -35,7 +35,7 @@ CPROGS= bbsmail BM_money post account birth deluserfile expire mandex\ PROGS= $(CPROGS) BM_money.sh backpasswd.sh mailog.sh opendice.sh\ openticket.sh stock.sh topsong.sh weather.sh stock.perl weather.perl\ toplazyBM.sh toplazyBBM.sh dailybackup.pl tarqueue.pl waterball.pl \ - filtermail.pl getbackup.pl cleancache.pl + filtermail.pl getbackup.pl all: $(PROGS) diff --git a/util/cleancache.pl b/util/cleancache.pl deleted file mode 100644 index cdd4426c..00000000 --- a/util/cleancache.pl +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl -use lib '/home/bbs/bin/'; -use LocalVars; - -chdir '/home/bbs/'; -opendir(DIR, "cache") || die "can't open cache/ ($!) "; -foreach( readdir(DIR) ){ - if( index($_, $MYHOSTNAME) == 0 ){ - $hash{$_} = 1; - } -} - -closedir DIR; - -open USEDPID, "bin/shmctl listpid |"; -while( <USEDPID> ){ - chomp; - delete $hash{"${MYHOSTNAME}b$_"}; - delete $hash{"${MYHOSTNAME}f$_"}; - delete $hash{"${MYHOSTNAME}z$_"}; -} - -foreach( keys %hash ){ - print "$_\n"; - unlink "cache/$_"; -} |