',
to => $attr{"$fn.loadComments"},
subject => "您的部落格收到 $name 給您的迴響",
charset => 'big5',
msg => "
您的部落格 http://blog.ptt2.cc/blog.pl/$brdname/$ofn
剛才收到來自 $name <$mail> 給您的迴響
--------------------------------------------------------------------
$comment
--------------------------------------------------------------------
(這封信件是由程式自動發出, 請不要直接回複這封信^^)
",
});
}
dodbi(sub {
my($dbh) = @_;
my($t, $hash);
$t = time();
$name = $dbh->quote($name);
$mail = $dbh->quote($mail);
$comment = $dbh->quote($comment);
$hash = MD5->hexhash("$t$th{key}$name$mail$comment");
$dbh->do('insert into comment '.
'(brdname, artid, name, mail, content, mtime, hash) '.
"values ('$brdname', '$th{key}', $name, $mail, ".
"$comment, '$t', '$hash')");
});
}
dodbi(sub {
my($dbh) = @_;
my($sth, $t);
$sth = $dbh->prepare("select mtime,name,mail,content,hash ".
"from comment ".
"where brdname='$brdname'&&artid='$th{key}' ".
"order by mtime desc");
$sth->execute();
while( $t = $sth->fetchrow_hashref() ){
$t->{time} = POSIX::ctime($t->{mtime});
$t->{content} = applyfilter($t->{content},
$config{outputfilter});
push @{$th{comment}}, $t;
}
});
}
# serialized -------------------------------------------------------------
if( $attr{"$fn.loadSerialized"} ){
my($obj, %h, $str);
$obj = Data::Serializer->new(serializer => 'Storable',
digester => 'MD5',
compress => 0,
);
open FH, '<'.$attr{"$fn.loadSerialized"};
FH->read($str, -s $attr{"$fn.loadSerialized"});
close FH;
%h = %{$obj->deserialize($str)};
$th{$_} = $h{$_} foreach( keys %h );
}
# 用 Template Toolkit 輸出
$th{LANG} =~ s/zh_TW/zh-TW/;
mkdir "$BLOGCACHE/$brdname";
$tmpl = Template->new({INCLUDE_PATH => '.',
ABSOLUTE => 0,
RELATIVE => 0,
RECURSION => 0,
EVAL_PERL => 0,
COMPILE_EXT => '.pl',
COMPILE_DIR => "$BLOGCACHE/$brdname/",
});
chdir "$BLOGDATA/$brdname/";
$tmpl->process($fn, \%th) ||
print "template error: ". $tmpl->error();
$dbh->disconnect() if( $dbh );
untie %attr if( %attr );
untie %config if( %config );
untie %article if( %article );
undef $tmpl;
}
sub utf8dump($;$)
{
my($str, $prefix) = @_;
my $ret = $prefix || '';
my $ostr = $str;
Encode::from_to($str, 'big5', 'utf-8');
$ret .= '%'. sprintf('%x', ord($_))
foreach( split(//, $str) );
return "$ostr";
}
sub AddArticle($$$;$)
{
my($cl, $fields, $s, $score) = @_;
my($content, $short, $nComments) = ();
$content = applyfilter($article{"$s.content"}, $config{outputfilter})
if( $fields =~ /content/i );
$short = applyfilter($article{"$s.short"}, $config{outputfilter})
if( $fields =~ /short/i );
if( $fields =~ /nComments/i ){
$nComments = dodbi(sub {
my($dbh) = @_;
my $sth = $dbh->prepare("select count(*) from comment ".
"where brdname='$brdname'&&artid='$s'");
$sth->execute();
return $sth->fetchrow_hashref()->{'count(*)'};
}) || 0;
}
my($y, $m, $d) = unpackdate($s);
push @{$th{$cl}}, {year => $y,
month => $m,
emonth => $emonth[$m],
cmonth => $cnumber[$m],
day => $d,
key => $s,
title => (($fields !~ /title/i) ? '' :
$article{"$s.title"}),
content=> $content,
author => (($fields !~ /author/i) ? '' :
$article{"$s.author"}),
short => $short,
score => $score,
nComments => $nComments,
}
if( $article{"$s.title"} );
}
sub applyfilter($$)
{
my($c, $filter) = @_;
foreach( split(',', $filter) ){
if( /^generic$/i ){
$c =~ s/\n/
\n/gs;
}
elsif( /^strict$/i ){
$c =~ s/\/>/gs;
$c =~ s/\"/"/gs;
$c =~ s/\'/'/gs;
# $c =~ s/ / /gs;
}
elsif( /^ubb$/i ){
$c =~ s|\[url\](.*?)\[/url\]|$1|gsi;
$c =~ s|\[url=(.*?)\](.*?)\[/url\]|$2|gsi;
$c =~ s|\[email\](.*?)\[/email\]|$1|gsi;
$c =~ s|\[b\](.*?)\[/b\]|$1|gsi;
$c =~ s|\[i\](.*?)\[/i\]|$1|gsi;
$c =~ s|\[img\](.*?)\[/img\]|
|gsi;
}
elsif( /^wiki$/i ){
my $t;
$c =~ s|\[(http://\S+) (.*?)\]|\[ $2 \]|gi;
$c =~ s|([^\>\"])(http://\S+\.(:?jpg\|gif\|png\|bmp))|$1![$2](\"$2\")
|gsi;
$c =~ s|([^\>\"])(http://\S+)|$1$2|gsi;
$c =~ s|\(\((.*?)\)\)|utf8dump($1, $th{wikibase})|gsie;
$c =~ s|^\-{4,}$|
|gm;
}
}
return $c;
}
sub parsefn($)
{
my($fs) = @_;
return ("$1.$3", unpackdate($2))
if( $fs =~ /^(.*),(\w+)\.(.*)$/ );
return ($fs, Today());
}
sub GetType($)
{
my($f) = @_;
return 'text/css' if( $f =~ /.css$/i );
return 'text/html';
}
sub packdate($$$)
{
return $_[0] * 10000 + $_[1] * 100 + $_[2];
}
sub unpackdate($)
{
return (int($_[0] / 10000),
(int($_[0] / 100)) % 100,
$_[0] % 100);
}
sub dodbi
{
my($func) = @_;
my($ret);
my $dbh = DBI->connect("DBI:mysql:database=$BLOGdbname;".
"host=$BLOGdbhost",
$BLOGdbuser, $BLOGdbpasswd,
{'RaiseError' => 1})
if( !$dbh );
eval {
$ret = &{$func}($dbh);
};
print "SQL: $@\n" if( $@ );
return $ret;
}
main();
1;