summaryrefslogtreecommitdiffstats
path: root/staticweb
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-07-07 12:17:58 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-07-07 12:17:58 +0800
commit9d796662a54523c056aaea158eea2fd53d2aa132 (patch)
tree1d151cea1c69e809a38464c5e7ce8aeba57c04eb /staticweb
parent7769a082deb629d9d6c388bbbdcab186069f4066 (diff)
downloadpttbbs-9d796662a54523c056aaea158eea2fd53d2aa132.tar
pttbbs-9d796662a54523c056aaea158eea2fd53d2aa132.tar.gz
pttbbs-9d796662a54523c056aaea158eea2fd53d2aa132.tar.bz2
pttbbs-9d796662a54523c056aaea158eea2fd53d2aa132.tar.lz
pttbbs-9d796662a54523c056aaea158eea2fd53d2aa132.tar.xz
pttbbs-9d796662a54523c056aaea158eea2fd53d2aa132.tar.zst
pttbbs-9d796662a54523c056aaea158eea2fd53d2aa132.zip
b2g support by b2g.pm, count elapsed time
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1039 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'staticweb')
-rwxr-xr-xstaticweb/man.pl20
1 files changed, 14 insertions, 6 deletions
diff --git a/staticweb/man.pl b/staticweb/man.pl
index 4f20889c..7d33ee5a 100755
--- a/staticweb/man.pl
+++ b/staticweb/man.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: man.pl,v 1.7 2003/07/05 06:16:15 in2 Exp $
+# $Id: man.pl,v 1.8 2003/07/07 04:17:58 in2 Exp $
use CGI qw/:standard/;
use lib qw/./;
use LocalVars;
@@ -12,7 +12,10 @@ use HTML::Calendar::Simple;
use OurNet::FuzzyIndex;
use Data::Serializer;
use Encode;
-use vars qw/%db $brdname $fpath $isgb/;
+use Time::HiRes qw/gettimeofday tv_interval/;
+use b2g;
+
+use vars qw/%db $brdname $fpath $isgb %b2g/;
sub main
{
@@ -27,10 +30,11 @@ sub main
return;
}
- $isgb = (param('gb') ? 1 : 0);
charset('');
print header();
+ $isgb = (param('gb') ? 1 : 0);
+
if( ($key = param('key')) ){
$rh = search($key);
}
@@ -67,7 +71,8 @@ sub dirmode
compress => 0,
);
foreach( @{$serial->deserialize($db{$fpath})} ){
- Encode::from_to($_->[1], 'big5', 'gbk') if( $isgb );
+ $_->[1] =~ s/([\xA1-\xF9].)/$b2g{$1}/eg if( $isgb );
+ #Encode::from_to($_->[1], 'big5', 'gbk') if( $isgb );
$isdir = (($_->[0] =~ m|/$|) ? 1 : 0);
push @{$th{dat}}, {isdir => $isdir,
fn => "man.pl/$brdname$_->[0]",
@@ -97,14 +102,16 @@ sub articlemode
$th{content} =~
s|ptt\.twbbs\.org|<a href="telnet://ptt.csie.ntu.edu.tw">ptt.twbbs.org</a>|gs;
- Encode::from_to($th{content}, 'big5', 'gbk') if( $isgb );
+ $th{content} =~ s/([\xA1-\xF9].)/$b2g{$1}/eg if( $isgb );
+ #Encode::from_to($th{content}, 'big5', 'gbk') if( $isgb );
return \%th;
}
sub search($)
{
my($key) = @_;
- my(%th, $idx, $k);
+ my(%th, $idx, $k, $t0);
+ $t0 = [gettimeofday()];
$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)) {
@@ -114,6 +121,7 @@ sub search($)
score => $result{$t} / 10};
}
+ $th{elapsed} = tv_interval($t0);
$th{key} = $key;
$th{tmpl} = 'search.html';
return \%th;