From 0850cde5a6a77898e6ae88173a34bc641414deb9 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Wed, 7 May 2008 23:51:25 -0400
Subject: implemented pruning, s3 support now complete-ish

---
 IkiWiki/Plugin/amazon_s3.pm | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

(limited to 'IkiWiki')

diff --git a/IkiWiki/Plugin/amazon_s3.pm b/IkiWiki/Plugin/amazon_s3.pm
index b5629eb4a..0613d4357 100644
--- a/IkiWiki/Plugin/amazon_s3.pm
+++ b/IkiWiki/Plugin/amazon_s3.pm
@@ -152,10 +152,25 @@ sub writefile ($$$;$$) { #{{{
 sub prune ($) { #{{{
 	my $file=shift;
 
-	my $bucket=IkiWiki::Plugin::amazon_s3::getbucket();
-	print STDERR "wrapped prune\n";
+	# If a file in the destdir is being pruned, need to delete it out
+	# of S3 as well.
+	if ($file =~ /^\Q$config{destdir}\/\E(.*)/) {
+		my $key=$config{amazon_s3_prefix}.$1;
+		print STDERR "wrapped prune ($key)\n";
+		my $bucket=IkiWiki::Plugin::amazon_s3::getbucket();
+		my $res=$bucket->delete_key($key);
+		if ($res && $key=~/(^|\/)index.$config{htmlext}$/) {
+			# index.html special case: Delete other file too
+			$key=~s/index.$config{htmlext}$//;
+			$res=$bucket->delete_key($key);
+		}
+		if (! $res) {
+			error(gettext("Failed to delete file from S3: ").
+				$bucket->err.": ".$bucket->errstr."\n");
+		}
+	}
 
-	return $IkiWiki::Plugin::amazon_s3::subs{'IkiWiki::writefile'}->($file);
+	return $IkiWiki::Plugin::amazon_s3::subs{'IkiWiki::prune'}->($file);
 } #}}}
 
 1
-- 
cgit v1.2.3