From 6279fc8ad3f63f069d5d03c3842f444b656ed119 Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Mon, 25 Jun 2001 17:55:04 +0000
Subject: [PATCH] Added configure script to figure out perl location.

---
 cleandir/GNUmakefile |  13 ++++-
 cleandir/cleandir.pl | 134 +++++++++++++++++++++++++++++++++++++++++++
 cleandir/configure   |  34 +++++++++++
 3 files changed, 180 insertions(+), 1 deletion(-)
 create mode 100755 cleandir/cleandir.pl
 create mode 100644 cleandir/configure

diff --git a/cleandir/GNUmakefile b/cleandir/GNUmakefile
index a7ed228..15a3a55 100644
--- a/cleandir/GNUmakefile
+++ b/cleandir/GNUmakefile
@@ -1,7 +1,10 @@
 include GNUmakevars
 
 TARGETS = cleandir
-all: $(TARGETS)
+CONFDIR=../../configure
+CONFDIR_exists=$(shell [ -d $(CONFDIR) ] && echo ok)
+
+all: configure $(TARGETS)
 
 clean:
 	rm -f $(TARGETS) *.bak core foo bar baz *.ps
@@ -25,4 +28,12 @@ customize: configure
 $(SBINDIR):
 	mkdir -p $@
 
+ifeq ($(CONFDIR_exists),ok)
+
+configure: $(CONFDIR)/start $(CONFDIR)/perl $(CONFDIR)/finish
+	cat $^ > $@
+
+endif
+
+
 include GNUmakerules
diff --git a/cleandir/cleandir.pl b/cleandir/cleandir.pl
new file mode 100755
index 0000000..df753db
--- /dev/null
+++ b/cleandir/cleandir.pl
@@ -0,0 +1,134 @@
+#!@@@perl@@@ -w
+use strict;
+use File::stat;
+use POSIX;
+
+my $verbose = 0;
+my $nop = 0;
+
+sub usage {
+    print STDERR "Usage: $0 [-d days] dir ...\n";
+    exit(1);
+}
+
+sub cleandir {
+    my ($dir, $since, $level) = (@_);
+    my $notremoved = 0;
+
+    if ($verbose > 1) {
+	print STDERR "$0:", " " x $level, " cleandir $dir $since {\n";
+    }
+    if (!opendir(DIR, ".")) {
+	printf STDERR "$0:", " " x $level, " cannot opendir $dir: $!";
+	return;
+    }
+    my $std = lstat(".");
+    for my $i (readdir(DIR)) {
+	if ($i eq "." || $i eq "..") {next}
+	if ($verbose > 2) {
+	    print STDERR "$0:", " " x $level, " checking $dir/$i\n";
+	}
+	my $st = lstat("$i");
+	if ($verbose > 3) {
+	    print STDERR "$0:", " " x $level, " mtime=", $st->mtime, " atime=", $st->atime, "\n";
+	}
+	if (-d _) {
+	    my $cwd = getcwd();
+	    if (chdir($i)) {
+		my $remaining = -1;
+		my $st1 = lstat(".");
+		if ($st->dev == $st1->dev && $st->ino == $st1->ino) {
+		    $remaining = cleandir("$dir/$i", $since, $level+1);
+		} else {
+		    print STDERR "$0:", " " x $level,
+		    		 " $dir/$i changed dev/inode from ",
+				 $st->dev, "/", $st->ino,
+				 " to ",
+				 $st1->dev, "/", $st1->ino,
+				 "\n";
+		}
+		chdir($cwd);
+		my $std1 = lstat(".");
+		if (!($std->dev == $std1->dev && $std->ino == $std1->ino)) {
+		    print STDERR "$0:", " " x $level,
+		    		 " $cwd changed dev/inode from ",
+				 $std->dev, "/", $std->ino,
+				 " to ",
+				 $std1->dev, "/", $std1->ino,
+				 "\n";
+		}
+		if ($remaining == 0 && $st->mtime < $since) {
+		    if ($verbose > 0) {
+			print STDERR "$0:", " " x $level, "rmdir $i\n";
+		    }
+		    if (rmdir("$i")) {next}
+		    print STDERR "$0:", " " x $level, "rmdir $i failed: $!\n";
+		} 
+	    } else {
+		print STDERR "$0:", " " x $level, " chdir $dir/$i failed: $!\n";
+	    }
+	    
+	} elsif ($st->mtime < $since && $st->atime < $since) {
+	    if ($nop) {
+		print "would remove $dir/$i\n";
+	    } else {
+		if ($verbose > 0) {
+		    print STDERR "$0:", " " x $level, " removing $dir/$i\n";
+		}
+		if (unlink("$i")) {next}
+		print STDERR "$0:", " " x $level, " removing $dir/$i failed: $!\n";
+	    }
+	    
+	} 
+	$notremoved++;
+    }
+    if ($verbose > 1) {
+	print STDERR "$0:", " " x $level, " cleandir: $notremoved }\n";
+    }
+    return $notremoved;
+}
+
+sub main {
+    my $since = time() - 14 * 86400;;
+    my $i;
+    while ($i = shift(@ARGV)) {
+	if ($i eq "-d") {
+	    my $days = shift(@ARGV);
+	    $since = time() - $days * 86400;
+	} elsif ($i eq "-v") {
+	    $verbose++;
+	} elsif ($i eq "-n") {
+	    $nop++;
+	} else {
+	    my $cwd = getcwd();
+	    if (chdir($i)) {
+		cleandir($i, $since, 0);
+		chdir($cwd);
+	    }
+	}
+    }
+    exit(0);
+}
+
+main();
+
+# $Log: cleandir.pl,v $
+# Revision 1.1  2001-06-25 17:55:03  hjp
+# Added configure script to figure out perl location.
+#
+# Revision 1.4  2000/11/20 21:10:08  hjp
+# Checks introduced in last version prevented deletion of unused subdirs.
+# Fixed.
+#
+# revision 1.3
+# date: 2000/09/10 16:16:41;  author: hjp;  state: Exp;  lines: +37 -6
+# Added checks to detect directory/symlink switching attacks.
+# ----------------------------
+# revision 1.2
+# date: 1999/08/21 12:37:53;  author: hjp;  state: Exp;  lines: +25 -13
+# More levels of verbosity.
+# ----------------------------
+# revision 1.1
+# date: 1999/07/09 21:05:26;  author: hjp;  state: Exp;
+# Added cleandir
+# 
diff --git a/cleandir/configure b/cleandir/configure
new file mode 100644
index 0000000..6fea68e
--- /dev/null
+++ b/cleandir/configure
@@ -0,0 +1,34 @@
+#!/bin/sh
+#
+echo "#!/bin/sh" > customize.$$
+echo "sed \\" > customize.$$
+chmod +x customize.$$
+
+################################################################
+# find a working perl:
+#
+for i in /usr/bin/perl /usr/local/bin/perl /usr/bin/perl5 /usr/local/bin/perl5
+do
+    if $i -e 'exit ($] < 5.000)'
+    then
+	echo $i works
+	perl="$i"
+	break
+    fi
+done
+if [ -z "$perl" ]
+then
+    could not find a working perl command, sorry.
+    exit 1
+fi
+echo "  -e 's,@@@perl@@@,$perl,g' \\" >> customize.$$
+
+
+################################################################
+# finish
+#	Add trailing newline and rename temp file to final name
+#
+echo  >> customize.$$
+
+mv customize.$$ customize
+