| bucky's backwards binoculars |
__BODY__
print <<__SEARCH_FORM__;
| |
|
|
__SEARCH_FORM__
if ($query)
{
my $start = $session->param("start");
my $limit = $session->param("limit");
my $search = new Bucky::Search;
my $results = $search->search($query, $start, $limit);
my $terms = $results->{'terms'};
my $r = 0;
my $z_last_start = $results->{'start'} - $results->{'limit'} + 1;
my $z_start = $results->{'start'};
my $z_limit = $results->{'limit'};
my $z_upto = $z_last_start + $z_limit - 1;
my $z_total = $results->{'total'};
my $z_next;
if ($results->{'total'} == 0)
{
my $z_next = "No Results!";
print "| | $z_next | ";
}
else
{
$z_next = "displaying $z_last_start-$z_upto of $z_total results ...";
if ($z_start < $z_total)
{
$z_next .= " next page >>";
}
}
print "| | $z_next | | " if $z_next;
foreach my $result (@{$results->{'results'}})
{
$r = $r ? 0 : 1;
my $thread = $results->{'threads'}->{ $result->{'thread'} };
my $comment = $results->{'comments'}->{ $result->{'comment'} };
my $file = $results->{'files'}->{ $result->{'file'} };
my $z_thread = $thread->{'id'};
my $z_username = $thread->{'username'};
my $z_title = $search->bold_terms( $thread->{'title'}, $terms);
my $z_comment = $search->bold_snippet( $comment->{'comment'}, $terms);
my $z_filename = $file->{'filename'};
my $z_file = $search->bold_terms( $z_filename, $terms);
my $z_date = scalar localtime $thread->{'createdate'};
my $z_strength = $result->{'strength'} . "x" . $result->{'count'};
my $z_bigs = $result->{'count'} > ( scalar(@$terms) - 3 )
? "" : "";
my $z_unbigs = $result->{'count'} > ( scalar(@$terms) - 3 )
? "" : "";
my $z_img;
if ($file && $file->{'filename'} =~ /jpg/i)
{
my $filename = lc($file->{'filename'});
$z_img = "![](\"/bucky/data/$z_thread/.thumb/t.$filename\") " if $filename;
}
elsif ($thread->{'flagged'})
{
my $file = $results->{'files'}->{ $thread->{'flagged'} };
my $filename = lc($file->{'filename'});
$z_img = "" if $filename;
}
my $z_color = "c";
$z_color .= $r;
my $z_filelink = "$z_file" if $z_file;
print <<__RESULT__;
|
$z_img
|
$z_bigs$z_title$z_unbigs
$z_strength posted by $z_username | $z_date
$z_filelink $z_comment
|
__RESULT__
# print Dumper($result);
}
print "| | $z_next | | " if $z_next;
}
print <<__FOOTER__;
|