From f040b90c4025753d7f694679ac7d898b774704e6 Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <icculus@icculus.org>
Date: Fri, 6 Nov 2009 11:12:05 -0800
Subject: [PATCH] Added an --outputurls command line option.

---
 cleanup_offload_cache.pl | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/cleanup_offload_cache.pl b/cleanup_offload_cache.pl
index 1ccc2b2..bf8b1f0 100755
--- a/cleanup_offload_cache.pl
+++ b/cleanup_offload_cache.pl
@@ -53,14 +53,16 @@ sub loadMetadata {
 }
 
 sub usage {
-    die("USAGE: $0 <offloaddir> [--nukeshortfiles] [--youngerthan=X]\n")
+    die("USAGE: $0 <offloaddir> [--outputurls] [--nukeshortfiles] [--youngerthan=X]\n")
 }
 
 my $youngerthan = undef;
 my $nukeshortfiles = 0;
+my $outputurls = 0;
 my $offloaddir = undef;
 foreach (@ARGV) {
     $nukeshortfiles = 1, next if ($_ eq '--nukeshortfiles');
+    $outputurls = 1, next if ($_ eq '--outputurls');
     $youngerthan = $1, next if (/\A--youngerthan=(\d+)\Z/);
     $offloaddir = $_, next if not defined $offloaddir;
     usage();
@@ -144,11 +146,17 @@ sub usage {
         next;
     }
 
-    $headrequests++;
     my $len = $metadata{'Content-Length'};
     my $hostname = $metadata{'X-Offload-Hostname'};
     my $origurl = $metadata{'X-Offload-Orig-URL'};
     my $url = 'http://' . $hostname . $origurl;
+
+    if ($outputurls) {
+        print "$url\n";
+        next;
+    }
+
+    $headrequests++;
     my $request = HTTP::Request->new(HEAD => $url);
     my $response = $ua->request($request);
 
@@ -186,8 +194,11 @@ sub usage {
 
 closedir(DIRH);
 
-print("Recovered $diskrecovered bytes of $totalfilespace.\n");
-print("$filesseen files seen, $filesdelete deleted.\n");
-print("$headrequests HTTP HEAD requests.\n");
+if (not $outputurls) {
+    print("Recovered $diskrecovered bytes of $totalfilespace.\n");
+    print("$filesseen files seen, $filesdelete deleted.\n");
+    print("$headrequests HTTP HEAD requests.\n");
+}
+
 exit 0;