#!/usr/local/bin/perl

#
#  RingBlog    RSSの表示
#
#  mimeタイプを送信したあと、index.rdf を送信する
#  rss.cgi とリネームして blog.cgi は同じディレクトリに置くこと
#  cgi と index.rdf を別ディレクトリに置く場合には $base_dir をかならず設定すること
#  $base_dir の末尾に / をつけないこと
#  PageHome.pm の改造が必要
#    (1)$rss = "<a href=\"$rdf_file_url\"><img src=\"$image_url/
#       の行の先頭に # をつけてコメント化
#    (2)その上の行
#       #    		$rss = "<a href=\"$cgi_url/rss.cgi$uwd_config->{'uwd_param1'}\"><img src=\"$image_dir/rdf.png\" border=0 alt=\"RSS\"></a><br><br>";
#       の先頭の # を削除する

# 初期設定
$base_url = "";

# モジュールの読み込み
require "./module/cgi-lib.pl";

&ReadParse(*query);

$uwd = $query{'uwd'};
if ( $uwd ne "" ) {
	if ( $uwd =~ /^\/|[c-zC-Z]:\\/ ) {
		$base_dir = $uwd;
	}
	else {
		$base_dir .= "/$uwd";
	}
}
elsif ( $base_dir eq "" ) {
	$base_dir = ".";
}

print "Content-type: application/xml\n\n";

if (!(open RSS, "<$base_dir/index.rdf")) { exit; }
flock RSS, 2;

while ( <RSS> ) {
	print "$_";
}

flock RSS, 8;
close RSS;

exit;