#!/usr/bin/perl

# Copyright 2007 Gérald Sédrati-Dinet
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# any later version.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

use strict;
use warnings;
use Sleepycat::DbXml 'simple';
use XML::Twig;
use Getopt::Long;
use Tie::IxHash;

# Some files will be save under tree hierarchy based on executable location
use FindBin qw($Bin);
use lib "$Bin";

# Default values
my $path2DbEnv = "$Bin/dbxml";
my $theContainer = 'ministers.dbxml';
my $output_dir = "$Bin/spikini/ministers";

# Parse command line options
Getopt::Long::Configure("bundling");
GetOptions(
  'path2dbenv|p=s' => \$path2DbEnv,
  'container|c=s'  => \$theContainer,
  'output|o=s'     => \$output_dir,
  'help|h'         =>
    sub {
      print STDERR <<USAGE;
Usage : $0 [-h] [-p <path_to_db_env>] [-c <container>] [-o <output_dir]
Options can be:
  --path2dbenv, -p <path_to_db_env>: path to directory of DB XML database
                                     default: $Bin/dbxml
  --container, -c <container>:       DB XML container
                                     <container> is typically ministers (for convenience the final "s" can be omitted, also ".dbxml" can be appended)
                                     default: ministers.dbxml
  --output, -o <output_dir>:         output directory of spikini pages
                                     default: $Bin/spikini/ministers
  --help, -h:                        print this message
USAGE
      exit 0;
    }
);
$theContainer =~ s/s?(?:\.dbxml)?$/s/;

# Open a container in the db environment
my $env = new DbEnv(0);
$env->set_cachesize(0, 64 * 1024, 1);
$env->open($path2DbEnv,
          Db::DB_INIT_MPOOL|Db::DB_CREATE|Db::DB_INIT_LOCK|Db::DB_INIT_LOG);
my $theMgr = new XmlManager($env);

my $container = $theMgr->openContainer("$theContainer.dbxml");

# Get all documents
eval {
  my $results = $container->getAllDocuments(0);
  my $value ;
  while( $results->next($value) ) {
    # Build xml tree
    my $xml = XML::Twig->new(output_encoding => 'ISO-8859-1')->parse($value);

    # Extract infos
    my $infos = $xml->root->first_child('infos');
    my $name = $infos->first_child('name');
    my $gender = $name->first_child_text('gender');
    my $role =  ($infos->first_child('ministry')->att('protocole')?($infos->first_child('ministry')->att('protocole').', '):'').$infos->first_child('ministry')->first_child_text('name');
    my $first_name = $name->first_child_text('first');
    my $last_name = $name->first_child_text('last');
    my $wiki_name = $name->first_child_text('wiki');
    my $pic = $infos->first_child_text('picture');
    my $birth = $infos->first_child('birth');
    my $birth_date = $birth->first_child('date');
    my $birth_place = $birth->first_child('place');
    my $birth_str = sprintf "{%s le} %02d %s %04d {à} %s (%s)", $birth->first_child_text('gender'), $birth_date->first_child_text('day'), $birth_date->first_child_text('month'), $birth_date->first_child_text('year'), $birth_place->first_child_text('city'), $birth_place->first_child_text('department');
    my $grp = $infos->first_child('group');
    my $grp_str = $grp->first_child_text('name') if $grp;
    my $abbrev = $grp->first_child_text('abbreviation') if $grp;
    my $prof = $infos->first_child_text('profession');

    my $contact = $xml->root->first_child('contact');
    my $address = "-* " . join("\n-* ", map({($_->first_child('street')?$_->first_child_text('street').',':'').($_->first_child('postcode')?' '.$_->first_child_text('postcode'):'').($_->first_child('city')?' '.$_->first_child_text('city'):'').($_->first_child('phone')?(' - Tél. : '.join(' - Tél. : ', $_->children_text('phone'))):'').($_->first_child('fax')?(' - Fax : '.join(' - Fax : ', $_->children_text('fax'))):'')} $contact->children('address')))."\n";
    # Hack for telephone/fax without address
    $address =~ s/^-\*  - /-* /om;
    my $mail = $contact->first_child_text('email');
    my $mail_str;
    (($mail_str = $mail) =~ s/@/(à)/o) if $mail;
    my @webs = map {
      (my $web_str = $_->text) =~ s#^http://##o;
      my $type=$_->att('type')?ucfirst($_->att('type')):'Site web';
      [$_->text(), $web_str, $type];
    } $contact->children('web');

    # Group mandates by type and by institution or role
    my $mandates = $xml->root->first_child('mandates');
    my %mandate;
    foreach my $mandate ($mandates->children('mandate')) {
      my $type = $mandate->first_child_text('type');
      if ($mandate->att('current') eq 'true') {
        $type .= ' en cours' if $type ne 'Organismes extra-parlementaires';
        # Hack for "Mandats et fonctions à l'Assemblée nationale"
        $type =~ s/Mandats et fonctions à l'Assemblée nationale en cours/Mandats et fonctions en cours à l'Assemblée nationale/o;
      }
      else {
        $type =~ s/^Mandats/Anciens mandats/o;
        $type =~ s/^Fonctions/Anciennes fonctions/o;
      }
      my $institution_or_role = 'null';
      my $mandate_str = '';
      if ($mandate->first_child('institution')) {
        $institution_or_role = $mandate->first_child_text('institution');
        if ($mandate->first_child('election_date')) {
          $mandate_str .= sprintf("Élections du %02d/%02d/%04d - ", $mandate->first_child('election_date')->first_child_text('day'), $mandate->first_child('election_date')->first_child_text('month'), $mandate->first_child('election_date')->first_child_text('year'));
        }
        if ($mandate->first_child('begin_term')) {
          if ($mandate->first_child('begin_term')->first_child('day')) {
            $mandate_str .= sprintf("Mandat du %02d/%02d/%04d ", $mandate->first_child('begin_term')->first_child_text('day'), $mandate->first_child('begin_term')->first_child_text('month'), $mandate->first_child('begin_term')->first_child_text('year'));
          }
          elsif ($mandate->first_child('begin_term')->first_child('month')) {
            $mandate_str .= sprintf("%02d/%04d ", $mandate->first_child('begin_term')->first_child_text('month'), $mandate->first_child('begin_term')->first_child_text('year'));
          }
          else {
            $mandate_str .= sprintf("%04d ", $mandate->first_child('begin_term')->first_child_text('year'));
          }
          $mandate_str .= sprintf("(%s) ", $mandate->first_child('begin_term')->first_child_text('reason')) if $mandate->first_child('begin_term')->first_child('reason');
        }
        if ($mandate->first_child('end_term')) {
          if ($mandate->first_child('end_term')->first_child('day')) {
            $mandate_str .= sprintf("au %02d/%02d/%04d ", $mandate->first_child('end_term')->first_child_text('day'), $mandate->first_child('end_term')->first_child_text('month'), $mandate->first_child('end_term')->first_child_text('year'));
          }
          elsif ($mandate->first_child('end_term')->first_child('month')) {
            $mandate_str .= sprintf("- %02d/%04d ", $mandate->first_child('end_term')->first_child_text('month'), $mandate->first_child('end_term')->first_child_text('year'));
          }
          else {
            $mandate_str .= sprintf("- %04d ", $mandate->first_child('end_term')->first_child_text('year'));
          }
          $mandate_str .= sprintf(" (%s)", $mandate->first_child('end_term')->first_child_text('reason')) if $mandate->first_child('end_term')->first_child('reason');
        }
        $mandate_str .= sprintf(": %s", $mandate->first_child_text('role')) if $mandate->first_child('role');
      }
      elsif ($mandate->first_child('role')) {
        $institution_or_role = $mandate->first_child_text('role');
        if ($mandate->first_child('begin_term')) {
          $mandate_str .= sprintf("Mandat du %02d/%02d/%04d ", $mandate->first_child('begin_term')->first_child_text('day'), $mandate->first_child('begin_term')->first_child_text('month'), $mandate->first_child('begin_term')->first_child_text('year'));
          $mandate_str .= sprintf("(%s) ", $mandate->first_child('begin_term')->first_child_text('reason')) if $mandate->first_child('begin_term')->first_child('reason');
        }
        if ($mandate->first_child('end_term')) {
          $mandate_str .= sprintf("au %02d/%02d/%04d", $mandate->first_child('end_term')->first_child_text('day'), $mandate->first_child('end_term')->first_child_text('month'), $mandate->first_child('end_term')->first_child_text('year'));
          $mandate_str .= sprintf(" (%s)", $mandate->first_child('end_term')->first_child_text('reason')) if $mandate->first_child('end_term')->first_child('reason');
        }
      }
      else {
        if ($mandate->first_child('election_date')) {
          $mandate_str .= sprintf("Élections du %02d/%02d/%04d - ", $mandate->first_child('election_date')->first_child_text('day'), $mandate->first_child('election_date')->first_child_text('month'), $mandate->first_child('election_date')->first_child_text('year'));
        }
        if ($mandate->first_child('begin_term')) {
          $mandate_str .= sprintf("Mandat du %02d/%02d/%04d ", $mandate->first_child('begin_term')->first_child_text('day'), $mandate->first_child('begin_term')->first_child_text('month'), $mandate->first_child('begin_term')->first_child_text('year'));
          $mandate_str .= sprintf("(%s) ", $mandate->first_child('begin_term')->first_child_text('reason')) if $mandate->first_child('begin_term')->first_child('reason');
        }
        if ($mandate->first_child('end_term')) {
          $mandate_str .= sprintf("au %02d/%02d/%04d", $mandate->first_child('end_term')->first_child_text('day'), $mandate->first_child('end_term')->first_child_text('month'), $mandate->first_child('end_term')->first_child_text('year'));
          $mandate_str .= sprintf(" (%s)", $mandate->first_child('end_term')->first_child_text('reason')) if $mandate->first_child('end_term')->first_child('reason');
        }
        $mandate_str .= sprintf(" (%s)", $mandate->first_child_text('role')) if $mandate->first_child('role');
      }

      if (exists $mandate{$type}) {
        if (exists($mandate{$type}{$institution_or_role})) {
          push @{$mandate{$type}{$institution_or_role}}, $mandate_str;
        }
        else {
          $mandate{$type}{$institution_or_role} = [$mandate_str];
        }
      }
      else {
        # Second level is an ordered hash to keep chronology
        my %ordered_hash;
        tie %ordered_hash, "Tie::IxHash";
        %ordered_hash = ($institution_or_role => [$mandate_str]);
        $mandate{$type} = \%ordered_hash;
      }
    }

    my @positions = map {$_->text} $xml->root->first_child('cv')->children('position');

    my @opinions=();
    if ($xml->root->first_child('opinions')) {
      @opinions = map {"- ".$_->first_child_text('date')." [".$_->first_child_text('title')."->".$_->first_child_text('url')."]\n\n".$_->first_child_text('content')."\n\n"} $xml->root->first_child('opinions')->children('opinion');
    }

    # Build spikini page
    my $spikini_page = << "SPIKINI_PAGE";
{{{GroupeMemoirePolitique : $first_name $last_name, ministre}}}

-----

<img style="float: right;" src="/IMG/memoire_politique/ministres/$pic" />

{{$role}}

- {{Informations générales}}

-* $birth_str
SPIKINI_PAGE

    $spikini_page .= "-* {Groupe politique} : $grp_str ($abbrev)\n" if $grp;
    $spikini_page .= "-* {Profession} : $prof\n" if $prof;

    $spikini_page .= "\n- {{Contact}}\n\n$address\n";
    $spikini_page .= "-* {Courriel} : [$mail_str->mailto:$mail]\n" if $mail;
    foreach my $web (@webs) {
      $spikini_page .= "-* {$web->[2]} : [$web->[1] -> $web->[0]]\n";
    }

    $spikini_page .= "\n- {{Mandats}}\n\n";
    foreach my $mandate_type (sort sort_mandate_type keys %mandate) {
      $spikini_page .= "-* {$mandate_type}\n";
      foreach my $mandate_second_level (keys %{$mandate{$mandate_type}}) {
        if ($mandate_second_level eq 'null') {
          $spikini_page .= "-** ".join("\n-** ", @{$mandate{$mandate_type}{$mandate_second_level}})."\n";
        }
        else {
          $spikini_page .= "-** $mandate_second_level\n";
          if ($mandate{$mandate_type}{$mandate_second_level}[0]) {
            $spikini_page .= "-*** ".join("\n-*** ", @{$mandate{$mandate_type}{$mandate_second_level}})."\n";
          }
        }
      }
    }
    
    if (scalar @positions) {
      $spikini_page .= "\n- {{Curriculum Vitae}}\n\n";
      foreach my $pos (@positions) {
        $spikini_page .= "-* $pos\n";
      }
    }

    $spikini_page .= <<"SPIKINI";

-----

{{{Prises de positions}}}

{Merci d'enrichir cette partie en y rapportant les prises de positions de $first_name $last_name concernant les brevets (consultez la page MemoirePolitiqueAide pour savoir comment faire).}

- {{Sources d'informations}}
-* [Wikipédia->http://fr.wikipedia.org/wiki/${first_name}_${last_name}]
-* [Google->http://www.google.fr/search?q=$first_name+$last_name+brevet]

SPIKINI

    foreach my $opinion (@opinions) {
      $spikini_page .= "$opinion\n";
    }

    # ISO-8859-1 doesn't include some characters
    $spikini_page =~ s/\x{153}/&oelig;/g;
    $spikini_page =~ s/\x{2019}/'/g;

    # Output spikini page
    my $spikini_location = "$output_dir/$wiki_name.spikini";
    open SPIKINI, ">$spikini_location" or die "Cannot write in file $spikini_location: $!\n";
    print SPIKINI $spikini_page;
	  close SPIKINI or die "Error when closing $spikini_location: $!\n";
    warn "$spikini_location done\n";
  }

};

if (my $e = catch std::exception) {
  warn "getAllDocuments failed\n";
  warn $e->what() . "\n";
  exit( -1 );
}
elsif ($@) {
  warn "getAllDocuments failed\n";
  warn $@;
  exit( -1 );
}

sub sort_mandate_type {
  my $ordered_types = "
    Mandats nationaux ou fonctions ministérielles en cours
    Anciens mandats nationaux ou fonctions ministérielles
    Anciens mandats et fonctions à l'Assemblée nationale
    Organismes extra-parlementaires
    Anciens mandats de sénateur
    Mandats locaux en cours
    Mandats intercommunaux en cours
    Anciens mandats locaux
    Anciens mandats intercommunaux
    Fonctions dans les instances internationales ou judiciaires en cours
    Anciennes fonctions dans les instances internationales ou judiciaires
    Anciens mandats européens
    Mandats politiques en cours
    Anciens mandats politiques
  ";
  return index($ordered_types, $a) <=> index($ordered_types, $b);
}