diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-03 21:38:53 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-03 21:38:53 +0800 |
| commit | 009f0b469857e692b4185f072d052998019a7e7f (patch) | |
| tree | c8d75a219a3be1e7dd78bf239397c053e7760bc4 | |
| parent | 3fa7fa5cbc0f9878179414f74346df169f1c4f0a (diff) | |
| download | pttbbs-009f0b469857e692b4185f072d052998019a7e7f.tar pttbbs-009f0b469857e692b4185f072d052998019a7e7f.tar.gz pttbbs-009f0b469857e692b4185f072d052998019a7e7f.tar.bz2 pttbbs-009f0b469857e692b4185f072d052998019a7e7f.tar.lz pttbbs-009f0b469857e692b4185f072d052998019a7e7f.tar.xz pttbbs-009f0b469857e692b4185f072d052998019a7e7f.tar.zst pttbbs-009f0b469857e692b4185f072d052998019a7e7f.zip | |
bug fix, -n
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@1009 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rwxr-xr-x | pttbbs/staticweb/manbuilder.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/pttbbs/staticweb/manbuilder.pl b/pttbbs/staticweb/manbuilder.pl index e7a0f46e..ed15d57e 100755 --- a/pttbbs/staticweb/manbuilder.pl +++ b/pttbbs/staticweb/manbuilder.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: manbuilder.pl,v 1.5 2003/07/03 13:06:56 in2 Exp $ +# $Id: manbuilder.pl,v 1.6 2003/07/03 13:38:53 in2 Exp $ use lib '/home/bbs/bin/'; use strict; use OurNet::FuzzyIndex; @@ -12,7 +12,7 @@ my(%db, $idx, $serial); sub main { - die usage() unless( @ARGV ); + die usage() unless( getopts('n') || !@ARGV ); $serial = Data::Serializer->new(serializer => 'Storable', digester => 'MD5', @@ -45,7 +45,7 @@ sub build($$) } else{ push @tdir, ["$doffset/$fn", - $db{"title-$doffset/$fn/"} = $bfh{"$_.title"}]; + $db{"title-$doffset/$fn"} = $bfh{"$_.title"}]; my $c = $bfh{"$_.content"}; $idx->insert("$doffset/$fn", $bfh{"$_.title"}. "\n$c"); $db{"$doffset/$fn"} = $c; @@ -56,7 +56,8 @@ sub build($$) sub usage { - print ("$0 boardname ...\n"); + print ("$0 [-n] boardname ...\n". + "\t -n for .db only (no .idx)\n"); exit(0); } |