From fa641e4c6e88702eb71dfd6b489e3f8592730e42 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Nov 2013 00:27:43 +0000
Subject: [PATCH] git-cache-proxy: wip housekeeping, before introduce new
 locking protocol

---
 scripts/git-cache-proxy | 62 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)

diff --git a/scripts/git-cache-proxy b/scripts/git-cache-proxy
index 7cbbdc1..12a4f52 100755
--- a/scripts/git-cache-proxy
+++ b/scripts/git-cache-proxy
@@ -40,6 +40,7 @@ use POSIX;
 use Socket;
 use Sys::Syslog;
 use Fcntl qw(:flock SEEK_SET);
+use File::Path qw(remove_tree);
 
 our $us = 'git-cache-proxy';
 
@@ -126,6 +127,8 @@ sub gitfail ($) {
 
 #---------- argument parsing ----------
 
+our $housekeepingthreshdays = 1;
+our $treeexpiredays = 21;
 our $fetchtimeout = 1800;
 our $maxfetchtimeout = 3600;
 our $cachedir = '/var/cache/git-cache-proxy';
@@ -325,6 +328,65 @@ sub clonefetch () {
     return 0;
 }
 
+sub housekeeping () {
+    foreach $lock (<[a-z]*\\.lock>) {
+	if (!lstat $lock) {
+	    $! == ENOENT or fail "housekeeping: $lock: stat: $!";
+	    next;
+	}
+	if (-M _ <= $treeexpiredays) {
+	    logm 'debug', "housekeeping: $lock: not too old";
+	    next;
+	}
+	my $subdir = $lock;  $subdir =~ s/\\.lock$//;
+	my $ok = 1;
+	foreach my $suffix (qw(tmp git)) {
+	    my $dir = "${subdir}\\.$suffix";
+	    my $errs;
+	    remove_tree($dir, { safe=>1, error=>\$errs });
+	    $ok = 0 if @$errs;
+	    foreach my $err (@$errs) {
+		logm 'warning', "problem deleting: $err[0]: $err[1]";
+	    }
+	}
+	if ($ok) {
+	    
+
+sub housekeepingcheck ($$) {
+    my ($dofork, $force) = @_;
+    open HLOCK, "+>", "Housekeeping.lock" 
+	or fail "open/create Housekeeping.lock: $!";
+    if (!$force) {
+	if (flock HLOCK, LOCK_EX|LOCK_NB) {
+	    logm 'debug', "housekeeping lock taken, not running";
+	    close HLOCK;
+	    return 0;
+	}
+    }
+    if ($force) {
+	logm 'info', "housekeeping forced";
+    } elsif (!lstat "Housekeeping.stamp") {
+	$! == ENOENT or fail "stat housekeeping.stamp: $!";
+	logm 'info', "housekeeping stamp missing, will run";
+    } elsif (-M _ <= $housekeepingthreshdays) {
+	logm 'debug', "housekeeping done recently";
+	close HLOCK;
+	return 0;
+    }
+    if ($dofork) {
+	my $child = fork;
+	defined $child or fail "fork for housekeeping: $!";
+	if (!$child) {
+	    housekeeping();
+	    exit 0;
+	}
+	return 1;
+    } else {
+	housekeeping();
+	return 1;
+    }
+}
+
 sub runcommand () {
     servinfo "servicing";
     exec qw(git-upload-pack --strict --timeout=1000 .)
-- 
2.30.2