From e76b691e78e273226cba9284cb8cd22a423319ed Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:23:25 -0500
Subject: bucky2

---
 bucky2/t/recent-searches.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 bucky2/t/recent-searches.pl

(limited to 'bucky2/t/recent-searches.pl')

diff --git a/bucky2/t/recent-searches.pl b/bucky2/t/recent-searches.pl
new file mode 100755
index 0000000..e724746
--- /dev/null
+++ b/bucky2/t/recent-searches.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use lib "../lib";
+use Bucky::Search;
+my $search = new Bucky::Search;
+my $lastseen;
+foreach my $entry (@{ $search->log })
+	{
+	next if $entry->{'query'} eq $lastseen;
+	$lastseen = $entry->{'query'};
+	my $date = $search->show_date($entry->{'date'});
+	print $date . "\t" . $entry->{'matches'} . "\t" . $entry->{'query'} . "\n";
+	}
-- 
cgit v1.2.3-70-g09d2