search support

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1010 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

2 files changed, 66 insertions, 3 deletions

diff --git a/staticweb/man.pl b/staticweb/man.pl
index db5b84d5..e9e45a2a 100755
--- a/staticweb/man.pl
+++ b/staticweb/man.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: man.pl,v 1.2 2003/07/03 12:39:05 in2 Exp $
+# $Id: man.pl,v 1.3 2003/07/03 13:49:07 in2 Exp $
 use CGI qw/:standard/;
 use lib qw/./;
 use LocalVars;
@@ -15,7 +15,7 @@ use vars qw/%db $brdname $fpath/;
 
 sub main
 {
-    my($tmpl, $rh);
+    my($tmpl, $rh, $key);
 
     if( !(($brdname, $fpath) = $ENV{PATH_INFO} =~ m|^/([\w\-]+?)(/.*)|) ||
 	!(tie %db, 'DB_File',
@@ -29,7 +29,12 @@ sub main
     charset('');
     print header();
 
-    $rh = (($fpath =~ m|/$|) ? dirmode($fpath) : articlemode($fpath));
+    if( ($key = param('key')) ){
+	$rh = search($key);
+    }
+    else{
+	$rh = (($fpath =~ m|/$|) ? dirmode($fpath) : articlemode($fpath));
+    }
     $rh->{brdname} = $brdname;
     $tmpl = Template->new({INCLUDE_PATH => '.',
 			   ABSOLUTE => 0,
@@ -68,5 +73,23 @@ sub articlemode
     return \%th;
 }
 
+sub search($)
+{
+    my($key) = @_;
+    my(%th, $idx, $k);
+    $idx = OurNet::FuzzyIndex->new("$MANDATA/$brdname.idx");
+    my %result = $idx->query($th{key} = $key, MATCH_FUZZY);
+    foreach my $t (sort { $result{$b} <=> $result{$a} } keys(%result)) {
+	$k = $idx->getkey($t);
+	push @{$th{search}}, {title => $db{"title-$k"},
+			      fn    => $k,
+			      score => $result{$t} / 10};
+    }
+
+    $th{key} = $key;
+    $th{tmpl} = 'search.html';
+    return \%th;
+}
+
 main();
 1;
diff --git a/staticweb/search.html b/staticweb/search.html
new file mode 100644
index 00000000..191c412f
--- /dev/null
+++ b/staticweb/search.html
@@ -0,0 +1,40 @@
+[% INCLUDE header.html %]
+<table width="75%" align="center">
+<tr>
+<td>
+<div id="banner">
+    <h1><a href="http://blog.ptt.cc/blog.pl/ptt/"
+           accesskey="1">批踢踢實業坊</a></h1>
+</div>
+</td></tr>
+
+<tr><td>
+<a href="http://man.ptt.cc">網頁版精華區首頁</a>
+<a href="http://man.ptt.cc/man.pl/[% brdname %]/">[% brdname %]精華區首頁</a>
+<a href="http://blog.ptt.cc">批踢踢部落格</a>
+<br />
+<font size=+1>在看板 [% brdname %] 內搜尋 [% key %]</font>
+<hr />
+</td></tr>
+<tr><td>
+
+<ul>
+[% FOREACH x=search %]
+<li><a href="/man.pl/[% brdname %][% x.fn %]">[% x.title %]</a> (score: [% x.score %])</li>
+[% END %]
+</ul>
+
+</td></tr>
+<tr><td>
+<hr />
+<form method="POST" action="/man.pl/[% brdname %]/">
+在這個精華區內翻弄 (under construction)
+<input type="text" name="key">
+<input type="submit" value="撈">
+</form>
+<hr />
+<a href="telnet://ptt.cc">批踢踢實業坊</a> (<a href="http://ptt.cc">PttWeb</a>)
+</td></tr>
+</table>
+</body>
+</html>