#!/usr/bin/perl

################################################
#　初期設定
################################################

$item_title = "dt";     #タイトルとリンクを抜き出す要素
$item_descr = "dd";     #説明文を抜き出す要素
$host = "http://www.rakulog.com/"; #ＵＲＬの設定

# 変換したいファイル名(当ファイルから相対パス)

$file = "updates.html";

$file_description=	"リーズナブルなアクセスログ解析【らくらくログ解析】";
$file_title=		"らくらくログ解析更新情報";


open INFILE, $file;

################################################
# 初期設定ここまで
###############################################

#ソースからタイトル、リンク、説明文を抽出
while(<INFILE>){
  if(m|<${item_title}.*?><a href="(.*?)">(.*?)</a>|){
    $link[++$items] = $1;
   $title[$items] = $2;
    $isItem = 1;
    $etc = $1;
if ($etc =~ /^http:/){
    $items_list .= qq(    <rdf:li rdf:resource="$etc"/>\n);
}else{
    $items_list .= qq(    <rdf:li rdf:resource="$host$1"/>\n);
}
#    $title[$items] = $2;
#    $isItem = 1;
  }elsif(m|<${item_descr}.*?>(.*?)</${item_descr}>| and $isItem){
    $str = $1;
    $str =~ s/<.*?>//g; #不要なマークアップを削除
    $descr[$items] = $str;
    $isItem = 0;        #説明文は1要素だけにしておく
  }
}

#以下、RSSの構文に従って出力
print "Content-Type: application/xml\n\n";
print <<EOF;
<?xml version="1.0" encoding="EUC-JP" ?>
<rdf:RDF 
  xmlns="http://purl.org/rss/1.0/"
  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
  xml:lang="ja">
 <channel rdf:about="$host$file">
  <title>$file_title</title>
  <link>$host$file</link>
  <description>$file_description</description>
  <items>
   <rdf:Seq>
$items_list
   </rdf:Seq>
  </items>
 </channel>

EOF

for $i (1..$#link){
if ($link[$i] =~ /^http:/){
  print <<EOF;
 <item rdf:about="$link[$i]">
  <title>$title[$i]</title>
  <link>$link[$i]</link>
  <description>$descr[$i]</description>
 </item>

EOF
}else{
  print <<EOF;
 <item rdf:about="$host$link[$i]">
  <title>$title[$i]</title>
  <link>$host$link[$i]</link>
  <description>$descr[$i]</description>
 </item>

EOF
}

}

print "</rdf:RDF>\n";