diff options
| -rwxr-xr-x | staticweb/manbuilder.pl | 10 |
1 files changed, 6 insertions, 4 deletions
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; } } |