#!/usr/local/bin/perl
use Jcode;

###環境変数###

#RSS化する件数
$count = 5;
#picoBBSのログファイル
$logfile = "./hoge/hoge.log";
#RSSのURL
$rss_url = "http://diary.noasobi.net/bbs.rdf";
#BBSのタイトル
$bbs_title = "朝顔日記掲示板";
#BBSのURL
$bbs_url = "http://diary.noasobi.net/cgi-bin/bbs.cgi";
#RSSのタイトル
$bbs_description = "朝顔日記掲示板";
#XMLスタイルシートがあれば指定（RSSファイルからのパスで）
$xml_stylesheet = "rss2html.xsl";
#グリニッジ標準時間誤差
$GMT = "+09:00";
##############

#スクリプトバージョン
$version = "1.2";
#スクリプト名
$PROGRAM_NAME = "log2rss.pl";
###取り出すデータ保存変数###
my $title;
my $comment;
my $id;
my $name;
my $date;
my $rss;
####################

$xml_code = "UTF-8";
$out_code = "utf8";
$out_file = "";

###引数処理####
my $opt;
while ($opt = shift @ARGV){
  if($opt eq "-c" ){
    $opt = shift @ARGV;
    if($opt !~ /[0-9]*/){
      &error("-c 表示する件数");
    }
    $count = $opt;
  }
  elsif($opt eq "-l"){
    $opt = shift @ARGV;
    if(!-e $opt){
      &error("-l ログファイル名\n$optが見つかりません。");
    }
    $logfile = $opt;
  }
  elsif($opt eq "-o"){
    $opt = shift @ARGV;
    if($opt !~ /\S+/){
         &error("-o 出力RSSファイル名\n出力するファイル名を指定してください。");
    }
    $out_file = $opt;
  }
  elsif($opt eq "-s") {
    $xml_code = "Shift-JIS";
    $out_code = "sjis";
  }
  elsif($opt eq "-u") {
    $xml_code = "UTF-8";
    $out_code = "utf8";
  }
  elsif($opt eq "-e") {
    $xml_code = "EUC";
    $out_code = "euc";
  }
  elsif($opt eq "-h") {
    &print_help;
  }
  elsif($opt eq "-v") {
    print "$PROGRAM_NAME:ver.$version\n";
    exit;
  }
}

open(LOG,"$logfile") || &error("ファイルが開けません::$logfile");
@all = <LOG>;
close(LOG);

$rss .= << "__RSS";
<?xml version="1.0" encoding="$xml_code" ?>
__RSS
if($xml_stylesheet ne ""){
 $rss .= "<?xml-stylesheet type=\"text/xsl\" href=\"$xml_stylesheet\"?>\n";
}
$rss .= << "__RSS";
<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/"
  xml:lang="ja">
  <channel rdf:about="$rss_url">
    <title>$bbs_title</title>
    <link>$bbs_url</link>
    <description>$bbs_description</description>
    <items>
      <rdf:Seq>
__RSS
for ($i=1;$i <= $count;$i++) {
  $rss .= "        <rdf:li rdf:resource=\"$bbs_url#PrintNo$i\"/>\n";
}
$rss .= << "__RSS";
      </rdf:Seq>
    </items>
  </channel>
__RSS

$rss .= "\n";

for ($i=1;$i <= $count;$i++) {
  $line = $all[$#all-$i+1];
  @data = split("\c@",$line);

  $name = $data[4];
  $date = $data[2];
  $id = $data[0];
  $title = $data[6];
  @topcomment = split("\cM",$data[7]);
  $comment = $topcomment[0];
  $comment =~ s/</\&lt\;/g;
  $comment =~ s/>/\&gt\;/g;
  $date = &convert_date($date);
  
  
  $rss .= "  <item rdf:about=\"$bbs_url#PrintNo$i\">\n";
  $rss .= "    <title>[$id]$title ($name)</title>\n";
  $rss .= "    <link>$bbs_url#PrintNo$i</link>\n";
  $rss .= "    <description>$comment</description>\n";
  $rss .= "    <dc:date>$date</dc:date>\n";
  $rss .= "  </item>\n";
  $rss .= "\n";
}
$rss .= "</rdf:RDF>\n";

Jcode::convert(\$rss,"$out_code");

if($out_file ne ""){
  open(OUT,">$out_file") || &error("$out_fileが開けません");
  print OUT "$rss";
  close(OUT);
  print "$out_fileに書き出しました。\n";
}
else{
  print "$rss";
}

exit;

sub error{
  print "ERROR:$_[0]\n";
  print "異常終了します。";
  exit;
}

sub print_help{
  print "$PROGRAM_NAME:ver.$version\n";
  print "使い方:$PROGRAM_NAME [-v | -h | -l ログファイル名 | -o 出力ファイル名 | -e | -s | -u ]\n";
  print "-h : ヘルプ(これ)を表示します。\n";
  print "-v : プログラムのバージョンを表示します。\n";
  print "-l ログファイル名 : picoBBSのログファイルを指定します。\n";
  print "-o 出力ファイル名 : 出力RSSファイル名を指定します。\n";
  print "-e : EUCで出力します。\n";
  print "-s : Shift_JISで出力します。\n";
  print "-u : UTF-8で出力します。\n";
  exit;
}

sub convert_date{
  $_[0] =~ s/\//-/g;
  $_[0] =~ s/([0-9]+-[0-9]+-[0-9]+)\s([0-9]+:[0-9]+)/$1T$2$GMT/;
  return $_[0];
}