summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--util/Makefile4
-rw-r--r--util/cleancache.pl26
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/$_";
-}