From 25b2baf237dd90fb054927646f15e63f5e0b6980 Mon Sep 17 00:00:00 2001 From: in2 Date: Thu, 3 Jul 2003 13:06:56 +0000 Subject: add title git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1008 63ad8ddf-47c3-0310-b6dd-a9e9d9715204 --- staticweb/manbuilder.pl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'staticweb') diff --git a/staticweb/manbuilder.pl b/staticweb/manbuilder.pl index 1e9e95d7..e7a0f46e 100755 --- a/staticweb/manbuilder.pl +++ b/staticweb/manbuilder.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: manbuilder.pl,v 1.4 2003/07/03 07:22:24 in2 Exp $ +# $Id: manbuilder.pl,v 1.5 2003/07/03 13:06:56 in2 Exp $ use lib '/home/bbs/bin/'; use strict; use OurNet::FuzzyIndex; @@ -39,13 +39,15 @@ sub build($$) $fn = $bfh{"$_.filename"}; if( $bfh{"$_.isdir"} ){ - push @tdir, ["$doffset/$fn/", $bfh{"$_.title"}]; + push @tdir, ["$doffset/$fn/", # ¥Ø¿ýµ²§À­n¥[ / + $db{"title-$doffset/$fn/"} = $bfh{"$_.title"}]; build("$basedir/$fn", "$doffset/$fn"); } else{ - push @tdir, ["$doffset/$fn", $bfh{"$_.title"}]; + push @tdir, ["$doffset/$fn", + $db{"title-$doffset/$fn/"} = $bfh{"$_.title"}]; my $c = $bfh{"$_.content"}; - $idx->insert("$doffset/$fn", $c); + $idx->insert("$doffset/$fn", $bfh{"$_.title"}. "\n$c"); $db{"$doffset/$fn"} = $c; } } -- cgit v1.2.3