remove cleancache.pl

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@469 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

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/$_";
-}