bucky2

1 files changed, 12 insertions, 0 deletions

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";
+	}