#!/usr/bin/perl
###
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2,
# as published by the Free Software Foundation.
#
# 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.
#
# copyright (C) 2007 Klaus Dahlke <klaus.dahlke@gmx.de>
# ####
use XML::SAX::Simple;
use Data::Dumper;
use Date::Manip;
use DateTime;
use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
use DBI qw(neat);

use strict ;
use warnings ;

my ($dbh, $rows);
my ($accountguid, $parentguid, $bookguid, $accountname, $accountcode, $description, $act_type, $commodity, $version, $iguid);
my ($cmdty_space, $cmdty_id, $cmdty_sep);
my ($splitguid, $transguid, $memo, $action, $reconsiled, $date_reconsiled, $amount, $value, @split_count, $split_anz);
my ($last_modified, $date_entered, $date_posted, $num, $currency, $quantity);
my ($fullname, $namespace, $mnemonic, $code, $fraction);
my ($priceguid, $price_time, $source, $price_type, $valuenum, $valuedenom, $curr_space, $curr_id, $price_value);
my ($newdate);
###
# open gnc file and convert to hash
###
my $input = new IO::File "<konten.xac"
        or die "Cannot open 'konten.xac': $!\n" ;
my $buffer ;
    gunzip $input => \$buffer 
        or die "gunzip failed: $GunzipError\n";

my $data = XMLin($buffer);


###
# some constants 
###
$bookguid = $data->{"gnc:book"}->{"book:id"}->{"content"};
$version=$data->{"gnc:book"}->{"version"};
$version=substr($version,0,1);
$cmdty_sep= '::';
$cmdty_sep= '::';
my @com_count = @{$data->{"gnc:book"}->{"gnc:commodity"}};
my @trn_count = @{$data->{"gnc:book"}->{"gnc:transaction"}};
my @acc_count = @{$data->{"gnc:book"}->{"gnc:account"}};
my @price_count = @{$data->{"gnc:book"}->{"gnc:pricedb"}->{price}};
my $com_anz = @com_count;
my $trn_anz = @trn_count;
my $acc_anz = @acc_count;
my $price_anz = @price_count;
print "No. commodities, ",$com_anz, "\n";
print "No. transactions, ",$trn_anz, "\n";
print "No. accounts, ",$acc_anz, "\n";
print "No. prices in db, ",$price_anz, "\n";

###
# connect to database
###
$dbh = DBI->connect("dbi:Pg:dbname=konten", "klaus", "");
$rows = $dbh->do ("insert into gncbook (bookguid, book_open, version, iguid) values ('$bookguid', 'y', '$version', '0')");


####
# accounts
####
for (my $j=0; $j<$acc_anz; $j++){
   $accountguid=$data->{"gnc:book"}->{"gnc:account"}->[$j]->{"act:id"}->{"content"}; 
      if (exists($data->{"gnc:book"}->{"gnc:account"}->[$j]->{"act:parent"})) {
         $parentguid = $data->{"gnc:book"}->{"gnc:account"}->[$j]->{"act:parent"}->{"content"};
         }
      else {
            $parentguid='00000000000000000000000000000000';
      }
      $accountname=$data->{"gnc:book"}->{"gnc:account"}->[$j]->{"act:name"};
      if (exists($data->{"gnc:book"}->{"gnc:account"}->[$j]->{"act:description"})) {
         $description=$data->{"gnc:book"}->{"gnc:account"}->[$j]->{"act:description"};
         $description=~ s/'/\\\'/g;
         }
      else {
         $description=' ';
      }
      $act_type = $data->{"gnc:book"}->{"gnc:account"}->[$j]->{"act:type"};
      $cmdty_space = $data->{"gnc:book"}->{"gnc:account"}->[$j]->{"act:commodity"}->{"cmdty:space"};
      $cmdty_id = $data->{"gnc:book"}->{"gnc:account"}->[$j]->{"act:commodity"}->{"cmdty:id"};
      $commodity="$cmdty_space$cmdty_sep$cmdty_id";
      $iguid=$j+1;
      # print "$accountguid, $parentguid, $accountname, $description, $act_type, $commodity, \n";
      $rows = $dbh->do ("insert into gncaccount (accountguid, parentguid, bookguid, accountname, description, type, commodity, version, iguid) values ('$accountguid', '$parentguid', '$bookguid', '$accountname', '$description', '$act_type', '$commodity', '$version', '$iguid')");
}



####
## commoditites
#####
for (my $i=0; $i<$com_anz; $i++){
      $cmdty_space = $data->{"gnc:book"}->{"gnc:commodity"}->[$i]->{"cmdty:space"};
      $cmdty_id = $data->{"gnc:book"}->{"gnc:commodity"}->[$i]->{"cmdty:id"};
      $cmdty_sep= '::';
      $commodity="$cmdty_space$cmdty_sep$cmdty_id";
      $fullname = $data->{"gnc:book"}->{"gnc:commodity"}->[$i]->{"cmdty:name"};
      $namespace = $cmdty_space;
      $mnemonic = $cmdty_id;
      $fraction= $data->{"gnc:book"}->{"gnc:commodity"}->[$i]->{"cmdty:fraction"};
#       print "$commodity, $fullname, $fraction, \n";
      $rows = $dbh->do ("insert into gnccommodity (commodity, fullname, namespace, mnemonic, fraction) values ('$commodity', '$fullname', '$namespace', '$mnemonic', '$fraction')");
}



###
## pricedb
###
for (my $k=0; $k<$price_anz; $k++) {
      $priceguid=$data->{"gnc:book"}->{"gnc:pricedb"}->{"price"}->[$k]->{"price:id"}->{"content"};
      $cmdty_space = $data->{"gnc:book"}->{"gnc:pricedb"}->{"price"}->[$k]->{"price:commodity"}->{"cmdty:space"};
      $cmdty_id = $data->{"gnc:book"}->{"gnc:pricedb"}->{"price"}->[$k]->{"price:commodity"}->{"cmdty:id"};
      $commodity="$cmdty_space$cmdty_sep$cmdty_id";
      $curr_space = $data->{"gnc:book"}->{"gnc:pricedb"}->{"price"}->[$k]->{"price:currency"}->{"cmdty:space"};
      $curr_id = $data->{"gnc:book"}->{"gnc:pricedb"}->{"price"}->[$k]->{"price:currency"}->{"cmdty:id"};
      $currency="$curr_space$cmdty_sep$curr_id";
      $price_type=$data->{"gnc:book"}->{"gnc:pricedb"}->{"price"}->[$k]->{"price:type"};
      $price_time=$data->{"gnc:book"}->{"gnc:pricedb"}->{"price"}->[$k]->{"price:time"}->{"ts:date"};
      $price_value=$data->{"gnc:book"}->{"gnc:pricedb"}->{"price"}->[$k]->{"price:value"};
      $source=$data->{"gnc:book"}->{"gnc:pricedb"}->{"price"}->[$k]->{"price:source"};
      $valuenum=substr($price_value,0, index($price_value,"/"));
      $valuedenom=substr($price_value, index($price_value,"/")+1,);
#      print "$commodity, $currency, $price_time, $valuenum, $valuedenom, \n";
      $rows = $dbh->do ("insert into gncprice (priceguid, bookguid, commodity, currency, time, source, type, valuenum, valuedenom, version) values ('$priceguid', '$bookguid', '$commodity', '$currency', '$price_time', '$source', '$price_type', '$valuenum', '$valuedenom', '$version')");
}



###
## transactions and splits
###
for (my $l=0; $l<$trn_anz; $l++) {
   $transguid=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:id"}->{"content"};
   $date_entered=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:date-entered"}->{"ts:date"};
   $date_posted=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:date-posted"}->{"ts:date"};
   if (exists($data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:num"})) {
      $num=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:num"};
      }
   else {
      $num = '';
   }
   $description=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:description"};
   $description=~ s/'/\\\'/g;
   $curr_space=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:currency"}->{"cmdty:space"};   
   $curr_id=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:currency"}->{"cmdty:id"};   
   $currency="$curr_space$cmdty_sep$curr_id";
   # print "$transguid, $date_posted, $description, $currency, \n";
   $rows = $dbh->do ("insert into gnctransaction (transguid, date_entered, date_posted, num, description, currency, version) values ('$transguid', '$date_entered', '$date_posted', '$num', '$description', '$currency', '$version')");
   ###
   # splits per transaction
   ###
  @split_count = @{$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:splits"}->{"trn:split"}}; 
  $split_anz = @split_count;
  for (my $m=0; $m<$split_anz; $m++) {
      $splitguid=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:splits"}->{"trn:split"}->[$m]->{"split:id"}->{"content"};
      $accountguid=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:splits"}->{"trn:split"}->[$m]->{"split:account"}->{"content"};
     $quantity=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:splits"}->{"trn:split"}->[$m]->{"split:quantity"};
     $quantity=substr($quantity,0, index($quantity,"/"));
     $value=$data->{"gnc:book"}->{"gnc:transaction"}->[$l]->{"trn:splits"}->{"trn:split"}->[$m]->{"split:value"};
     $value=substr($value,0, index($value,"/"));
     # print "$splitguid, $quantity, $value, \n";
     $rows = $dbh->do ("insert into gncsplit (splitguid, accountguid, transguid, amount, value) values ('$splitguid', '$accountguid', '$transguid', '$quantity', '$value')");
     }
}
###
# write date to file for updater script
###
my $rc  = $dbh->disconnect;
my $new_date = ParseDate("today");
open(WRITEFILE, ">last_sql.txt");
print WRITEFILE $new_date;
close(WRITEFILE);