bucky2/t/recent-searches.pl


1
2
3
4
5
6
7
8
9
10
11
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";
	}