From 878496aeee23342ecbdf35f2667e9cfd126cb664 Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Mon, 25 Feb 2002 23:36:22 +0000
Subject: [PATCH] cleandir is generated from cleandir.pl -> removed.

---
 cleandir/cleandir | 145 ----------------------------------------------
 1 file changed, 145 deletions(-)
 delete mode 100755 cleandir/cleandir

diff --git a/cleandir/cleandir b/cleandir/cleandir
deleted file mode 100755
index 7c89160..0000000
--- a/cleandir/cleandir
+++ /dev/null
@@ -1,145 +0,0 @@
-#!/usr/bin/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(".");
-    my $fs = $std->dev;
-
-    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");
-
-	# Skip anything on a different filesystem
-	next if ($st->dev != $fs);
-
-	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";
-		    return ++$notremoved;
-		}
-		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,v $
-# Revision 1.5  2002-02-25 23:23:10  hjp
-# Applied patch from "Chris L. Mason" <cmason@somanetworks.com> to prevent
-# filesystem traversal.
-#
-# Return immediately if we cannot chdir back to the directory we came
-# from.
-#
-# 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
-#