批判・要望・意見スレッド
279:◆hikArinCL2 06/01/22 00:17 ID:Kjdcjs5k [sage] AAS
# 2nnシステムの冒頭で。$JcodeはJcodeオブジェクト
use XML::RSS::LibXML;
my $rdf = XML::RSS::LibXML->new;
my $description = '2ちゃんねるのニュース速報+系6板を自動解析し、';
$description .= '人気の高いニュース及び最新のニュースを';
$description .= 'リアルタイムで計算・抽出して提供しています。';
$rdf->channel(
'title' => '2nn.jp RSS',
'link' => 'www.2nn.jp
'description' => $Jcode->set($description)->utf8,
'dc' => {
'date' => get_date(time),
'creater' => 'webmaster@2nn.jp',
'publisher' => 'webmaster@2nn.jp',
'rights' => 'Copyright 2004-2005 2nn.jp',
'language' => 'ja-JP',
}
);

sub get_date {
my @date = localtime($_[0]);
sprintf('%04d-%02d-%02dT%02d:%02d:%02d+09:00',
$date[5] + 1900, $date[4] + 1, $date[3], $date[2], $date[1], $date[0]);
}
1-AA