#!/usr/bin/perl
use strict;
use utf8;

use lib qw</home/wakaba/work/manakai/lib
    /home/httpd/html/www/markup/html/whatpm>;

our $REPOSITORY_PATH = q</home/wakaba/public_html/d/>;
our $FEED_TAG = q<urn:x-suika-fam-cx:fuyubi:>;
our $BASE_URI = q<http://suika.fam.cx/~wakaba/d/>;
our $BASE_LANG = 'ja';
our $AUTHOR_NAME = q<わかば>;
our $AUTHOR_URI = q<http://suika.fam.cx/~wakaba/who?>;
our $AUTHOR_MAIL = q<w@suika.fam.cx>;

use Message::DOM::DOMImplementation;
use Whatpm::H2H;
use Encode::EUCJP1997;

my ($year, $month, $day) = @ARGV;
$year += 0;
$month += 0;
$day += 0;

my $atom = q<http://www.w3.org/2005/Atom>;
my $fe = q<http://suika.fam.cx/www/2006/feature/>;
my $cfg = q<http://suika.fam.cx/www/2006/dom-config/>;
my $html = q<http://www.w3.org/1999/xhtml>;
my $xml = q<http://www.w3.org/XML/1998/namespace>;
my $xhtml2 = q<http://www.w3.org/2002/06/xhtml2/>;
my $h2h = q<http://suika.fam.cx/~wakaba/archive/2005/manakai/Markup/H2H/>;
my $xmlns = q<http://www.w3.org/2000/xmlns/>;

my $impl = Message::DOM::DOMImplementation->new;

my $base_file_name = $REPOSITORY_PATH.sprintf ('%04d/d%04d%02d%02d',
                                               $year, $year, $month, $day);

my $h2h_data = '';
if (-f $base_file_name.'.hnf') {
  local $/ = undef;
  open my $h2h_file, '<', $base_file_name.'.hnf'
      or die "$0: $base_file_name.hnf: $!";
  $h2h_data = Encode::decode ('euc-jp-1997', <$h2h_file>);
  close $h2h_file;
}

my $h2h_doc = Whatpm::H2H->parse_string ($h2h_data => $impl->create_document);

my $i = 0;

for my $section (@{$h2h_doc->get_elements_by_tag_name_ns ($html, 'body')
                           ->[0]->child_nodes}) {
  next if $section->node_type != $section->ELEMENT_NODE;
  next if $section->local_name != 'section';
  next if $section->namespace_uri != $html;

  $i++;

  my $atom_doc = $impl->create_atom_entry_document
                           ($FEED_TAG.$year.':'.$month.':'.$day.':'.$i);
  $atom_doc->dom_config->set_parameter ($cfg.'create-child-element' => 1);

  my $atom_entry = $atom_doc->document_element;
  $atom_entry->set_attribute_ns ($xml, 'xml:base', $BASE_URI);
  $atom_entry->set_attribute_ns ($xml, 'xml:lang', $BASE_LANG);
  $atom_entry->set_attribute_ns ($xmlns, xmlns => $html);

  my $atom_content = $atom_entry->content_element;
  $atom_content->type ('xhtml');

  my $atom_container = $atom_content->container;

  my $hour = 0;
  my $minute = 0;
  my $tz = '-00:00';
  my @section_children = @{$section->child_nodes};
  for my $el (@section_children) {
    next if $el->node_type != $el->ELEMENT_NODE;

    my $xuri = $el->manakai_expanded_uri;

    if ($xuri eq $xhtml2.'h') {
      my $atom_title = $atom_entry->title_element;
      $atom_title->type ('xhtml');
      my $atom_title_container = $atom_title->container;
      my @el_children = @{$el->child_nodes};
      for (@el_children) {
        $atom_title_container->append_child ($atom_doc->adopt_node ($_));
      }

      if ($atom_title_container->text_content
              =~ /\(\@(\d\d):(\d\d) ([+-]\d\d:\d\d)\)\s*$/) {
        $hour = $1 + 0;
        $minute = $2 + 0;
        $tz = $3;
      }
    } elsif ($xuri eq $h2h.'cat') {
      ## TODO:
    } else {
      $atom_container->append_child ($atom_doc->adopt_node ($el));
    }
  }

  $atom_entry->published_element->text_content
      (sprintf '%04d-%02d-%02dT%02d:%02d:00%s',
       $year, $month, $day, $hour, $minute, $tz);

  for my $author_el ($atom_entry->append_child
                         ($atom_doc->create_element_ns ($atom, 'author'))) {
    $author_el->name ($AUTHOR_NAME);
    $author_el->uri ($AUTHOR_URI) if defined $AUTHOR_URI;
    $author_el->email ($AUTHOR_MAIL) if defined $AUTHOR_MAIL;
  }

  for my $link_el ($atom_entry->append_child
                       ($atom_doc->create_element_ns ($atom, 'link'))) {
    $link_el->rel ('alternate');
    $link_el->href (sprintf 'd%04d%02d.%s.html#d%d-%d',
                            $year, $month, $BASE_LANG, $day, $i);
    $link_el->type ('text/html');
    $link_el->hreflang ($BASE_LANG);
  }

  for my $link_el ($atom_entry->append_child
                       ($atom_doc->create_element_ns ($atom, 'link'))) {
    $link_el->rel ('self');
    $link_el->href (sprintf '%04d/d%04d%02d%02d-%d.%s.atom',
                    $year, $year, $month, $day, $i, $BASE_LANG);
    $link_el->type ('application/atom+xml');
    $link_el->hreflang ($BASE_LANG);
  }

  my $entry_file_name = $base_file_name . '-' . $i . '.'.$BASE_LANG.'.atom';

  open my $entry_file, '>', $entry_file_name
      or die "$0: $entry_file_name: $!";
  
  warn qq<Write to "$entry_file_name"\n>;
  print $entry_file Encode::encode ('utf-8', $atom_doc->inner_html);
  close $entry_file;
  system 'chmod', 'go+r', $entry_file_name;
  $? == -1 and die "$0: chmod $entry_file_name: $!";
}