vndb/manned
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added simple search results page

Browse source 
Rather ugly and rushed, as usual.
This commit is contained in:
Yorhel 2012-07-17 21:14:55 +02:00
parent 4d699d8d47
commit 2d200c35d9
2 changed files with 33 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

29
www/index.pl
View file

@ -40,6 +40,7 @@ TUWF::set(
TUWF::register(
qr// => \&home,
qr{info/about} => \&about,
qr{browse/search} => \&browsesearch,
qr{browse/([^/]+)} => \&browsesys,
qr{browse/([^/]+)/([^/]+)(?:/([^/]+))?} => \&browsepkg,
qr{xml/search\.xml} => \&xmlsearch,
@ -208,6 +209,32 @@ sub about {
}
sub browsesearch {
my $self = shift;
my $q = $self->reqGet('q')||'';
my $man = $self->dbSearch($q, 150);
$self->htmlHeader(title => 'Search results for '.$q);
h1 'Search results for '.$q;
txt 'Note: This is just a simple case-insensitive prefix match on the man names. In the future we\'ll have more powerful search functionality. Hopefully.';
if(@$man) {
ul id => 'searchres';
for(@$man) {
li;
a href => "/$_->{name}.".substr($_->{section},0,1), $_->{name};
i $_->{section};
end;
}
end;
} else {
br; br;
b 'No results :-(';
}
$self->htmlFooter;
}
sub browsesys {
my($self, $short) = @_;
@ -502,7 +529,7 @@ sub htmlHeader {
div id => 'header';
a href => '/', 'manned.org';
form action => '/', method => 'get';
form action => '/browse/search', method => 'get';
input type => 'text', name => 'q', id => 'q';
input type => 'submit', value => ' ';
end;