#!/usr/local/bin/perl

use Jcode;

#### page defines
$SOURCE = '/home/sharl/html/d/hina.txt';
$DEST   = '/home/sharl/html/d/watchlynx.rdf';

$match_pattern = '<!--HINA_OK (\d+)/(\d+)/(\d+) (\d+):(\d+) ...--><A\sHREF="(.*?)">(.*?)</A>(.*?)<BR>';

my $publisher = 'しゃある';
my $creator = '&#115;&#104;&#97;&#114;&#108; &#64; &#104;&#97;&#117;&#78;&#46;&#111;&#114;&#103;';
my $pageuri  = 'http://sharl.hauN.org/d/wl.html';
my $pagedescription = '俺用';
my $pagetitle = 'わっちりんく(す)';
my $copyright = 'Copyright (c) 1995-2004 Sharl';

#### top page time
my ($sec, $min, $hour, $mday, $mon, $year) = localtime($mtime = (stat $SOURCE)[9]);
$year += 1900;
$mon++;

my $dcdate = sprintf("$year-%02d-%02dT%02d:%02d:%02d+09:00", $mon, $mday, $hour, $min, $sec);

my $rdfhead = <<RDFHEAD;
<?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:syn="http://purl.org/rss/1.0/modules/syndication/"
  xml:lang="ja">
 <channel rdf:about="$pageuri">
  <title>$pagetitle</title>
  <link>$pageuri</link>
  <description>$pagedescription</description>
  <dc:language>ja-jp</dc:language>
  <dc:rights>$copyright</dc:rights>
  <dc:date>$dcdate</dc:date>
  <dc:publisher>$publisher</dc:publisher>
  <dc:creator>$creator</dc:creator>
  <items>
   <rdf:Seq>
RDFHEAD
;

open(OUT, ">" . $DEST);
print OUT jcode($rdfhead)->utf8;
&get_items();
my $idx = 0;
foreach (sort NumSort @targets) {
    print OUT jcode(qq|    <rdf:li rdf:resource="$_" />\n|)->utf8;
    last if (++$idx == $max_items);
}
print OUT "   </rdf:Seq>\n";
print OUT "  </items>\n";
print OUT " </channel>\n";
$idx = 0;
foreach (sort NumSort @targets) {
    my $itemblock = <<ITEM;
  <item rdf:about="$_">
   <title>$caption{$_}</title>
   <link>$_</link>
   <description>$caption{$_}</description>
   <dc:date>$dcdate{$_}</dc:date>
   <dc:author>$author{$_}</dc:author>
  </item>
ITEM
;
    print OUT jcode($itemblock)->utf8;
    last if (++$idx == $max_items);
}
print OUT "</rdf:RDF>\n";
close(OUT);
utime $mtime, $mtime, $DEST;

exit;

############################################################

sub get_items {
    open(FD, $SOURCE);
    while (<FD>) {
	if (m|$match_pattern|io) {
	    my ($lyear, $lmon, $lmday, $lhour, $lmin, $ref, $title, $author) =
		($1, $2, $3, $4, $5, $6, $7, $8);
	    my $dcdate = sprintf("$lyear-%02d-%02dT%02d:%02d:00+09:00",
			      $lmon, $lmday, $lhour, $lmin);

	    $title =~ s/&trade;/(TM)/g;
	    $author =~ s/♪//g;

	    $author =~ s/^[\s　]+//g;

	    push(targets, $ref);
	    $caption{$ref} = $title;
	    $dcdate{$ref} = $dcdate;
	    $author{$ref} = $author;
	}
    }
    close(FD);
}

sub NumSort {
    return $dcdate{$b} <=> $dcdate{$a};
}