#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(ＳＳ)Ｃ−ＢＯＡＲＤライブラリ（とほほ改ver1.02.2）
#┠──────────────────────────────────────
#┃ＲＳＳ出力示関係の関数が含まれています。−　RSS 2.0 Shift_JIS
#┃
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

package RSS;

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   表示
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub view {
	require './lib/file/tre.pl';
	require './lib/file/msg.pl';
	print "Content-type: text/xml; charset=Shift_JIS\n\n";
	print <<"__XML__";
<?xml version="1.0" encoding="Shift_JIS"?>
<?xml-stylesheet type="text/xsl" href="$CNF::place{'this'}{'path'}?cmd=x2s"?>
<rss version="2.0" xmlns:blogChannel="http://backend.userland.com/blogChannelModule">
 <channel>
  <title>$CNF::base{'title'}</title>
  <link>$CNF::place{'this'}{'url'}?id=$::FORM{'id'}</link>
  <description>$CNF::base{'title'}</description>
  <language>ja</language>
__XML__
	my $mode;
	if (defined($::FORM{'mode'}))
	{
		$mode = $::FORM{'mode'};
	}
	else
	{
		$mode = $CNF::view{'page'}{'rss'}{'mode'};
	}

	if ($mode == 0) {
		# 最新ツリー（親記事）
		my $o_tree = new FILE::TREE($CNF::place{'data'}{'path'});
		my($r_topic, $flag);
		my @result;
		my $date_gmt;
		local *MSG;
		while ($r_topic = $o_tree->read(0, $CNF::view{'page'}{'rss'}{'number'},'tpc')) {
			*MSG = ${$r_topic}[0];
			$date_gmt=&COMMON::date('ddd, dd mmm yyyy hhhh:nn:ss GMT', $MSG{'time'}, 1);
			print <<"__XML__";
	 <item>
	  <title>$MSG{'subject'}</title>
	  <author>$MSG{'name'}</author>
	  <link>$CNF::place{'this'}{'url'}?cmd=ntr;tree=$MSG{'no'};id=$::FORM{'id'}#$MSG{'no'}</link>
	  <pubDate>$date_gmt</pubDate>
	 </item>
__XML__
		}
		$o_tree->close;
		print <<"__XML__";
 </channel>
</rss>

__XML__
	}
	elsif ($mode == 1) {
		# 最新ツリー（最新記事）
		my $o_tree = new FILE::TREE($CNF::place{'data'}{'path'});
		my($r_topic, $flag);
		my @result;
		my $date_gmt;
		my $email;
		local *MSG;
		while ($r_topic = $o_tree->read(0, $CNF::view{'page'}{'rss'}{'number'},'tpc')) {
			@result = sort { ${$b}{'no'} <=> ${$a}{'no'} } @{$r_topic};
			*MSG = $result[0];
			$date_gmt=&COMMON::date('ddd, dd mmm yyyy hhhh:nn:ss GMT', $MSG{'time'}, 1);
			print <<"__XML__";
	 <item>
	  <title>$MSG{'subject'}</title>
	  <author>$MSG{'name'}</author>
	  <link>$CNF::place{'this'}{'url'}?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}#$MSG{'no'}</link>
	  <pubDate>$date_gmt</pubDate>
	 </item>
__XML__
		}
		$o_tree->close;
		print <<"__XML__";
 </channel>
</rss>

__XML__
	}
	elsif ($mode == 2) {
		# 最新記事（ツリーに関係なく時系列）
		my $o_message = new FILE::MESSAGE($CNF::place{'data'}{'path'});
		my $r_MSG;
		my $email;
		my $date_gmt;
		local *MSG;
		while ($r_MSG = $o_message->read(0, $CNF::view{'page'}{'rss'}{'number'},'tpc')) {
			*MSG = $r_MSG;
			$date_gmt=&COMMON::date('ddd, dd mmm yyyy hhhh:nn:ss GMT', $MSG{'time'}, 1);
			print <<"__XML__";
	 <item>
	  <title>$MSG{'subject'}</title>
	  <author>$MSG{'name'}</author>
	  <link>$CNF::place{'this'}{'url'}?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}#$MSG{'no'}</link>
	  <pubDate>$date_gmt</pubDate>
	 </item>
__XML__
		}
		$o_message->close;
		print <<"__XML__";
 </channel>
</rss>

__XML__
	}
	else {
		# 入力エラー
		print <<"__XML__";
 </channel>
</rss>

__XML__
	}
}

1;

# $Id: rss.pl,v 2.0 2001/11/02 14:25:00 N.Hirai Exp $;