#!/usr/bin/perl --
#!/usr/local/bin/perl -w
#
# こうさぎ飼育箱・・・こうさぎの投稿を表示するCGI
#
require 'marimo-ini.pl';

mkdir $data_dir, 0755 unless -e $data_dir;

# ファイルリストから該当するページを探す
my $page;
my @dates;
if ( open(IN, $data_dir . $listfile) ) {
	while (<IN>) {
		chop;
		unshift(@dates, $_);
	}
	close(IN);
}

# http://hail2u.net/blog/rss/content-type_of_rss.htmlを参考
print "Content-type: application/xml; charset=UTF-8\n\n";
print << "EOS";
<?xml version="1.0" encoding="utf-8" ?>
<rdf:RDF
	xmlns="http://purl.org/rss/1.0/"
	xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xml:lang="ja">
<channel rdf:about="$rss_url">
	<title>$diarytitle</title>
	<link>$top_url</link>
	<description>$diarytitle</description>
	<items>
	<rdf:Seq>
EOS

$page = 1;
foreach (@dates) {
	print "\t\t<rdf:li rdf:resource=\"$top_url?page=$page\"/>\n";
	$page++;
	last if ($rss_count < $page);
}

print << "EOS";
	</rdf:Seq>
	</items>
</channel>
EOS

my $open;
my $date = "";
my $date_str = "";
my $title    = "";
my @description;
my $description;
my $desc;
my ($year, $month, $day, $hour, $min, $sec);
$page = 1;
foreach (@dates) {
	# ファイル内容を読み込み
	$date  = $dates[$page-1];
	$year  = substr($date, 0, 4);
	$month = substr($date, 4, 2);
	$day   = substr($date, 6, 2);
	$hour  = substr($date, 8, 2);
	$min   = substr($date,10, 2);
	$sec   = substr($date,12, 2);
	$open  = $filename . $date . ".txt";
	if ( open(IN, "$open" ) ) {
		$date_str = <IN>;
		$title    = <IN>;
		@description = <IN>;
		close(IN);
	}
	print "<item rdf:about=\"$top_url?page=$page\">\n";
	print "\t<title>$title</title>\n";
	print "\t<link>$top_url?page=$page</link>\n";
	print "\t<description>";
	foreach (@description) {
		$description = $_;
		chop($description);
		$description =~ s/<[^>]+>//g; 
		print $description;
	}
	print "</description>\n";
	print "\t<content:encoded><![CDATA[";
	foreach (@description) {
		$desc = $_;
		$desc =~ s/<br(\s*)\/>/\n/;
		$desc =~ s/\n/<br \/>/;
		print $desc;
	}
	print "]]></content:encoded>\n";
	print "\t<dc:date>$year-$month-$day" . "T" . "$hour:$min:$sec+09:00</dc:date>\n";
	print "</item>\n";
	$page++;
	last if ($rss_count < $page);
}

print << "EOS";
</rdf:RDF>
EOS