#!/usr/bin/perl

#
#    rabo2ofx.pl
#    Version 0.1
#    Copyright 2008, 2009 Peter Vermaas
#
#    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 3 of the License, or
#    (at your option) 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, see <http://www.gnu.org/licenses/>.
#

sub printheader
{
	($se,$mi,$ho,$d,$m,$y)=gmtime(time()); # can't assume strftime
	$nowdate=sprintf("%04d%02d%02d%02d%02d%02d",$y+1900,$m+1,$d,$ho,$mi,$se);
	print <<EOT;
<OFX>
<SIGNONMSGSRSV1>
       <SONRS>                          <!-- Begin signon -->
          <STATUS>                      <!-- Begin status aggregate -->
            <CODE>0</CODE>              <!-- OK -->
            <SEVERITY>INFO</SEVERITY>
          </STATUS>
          <DTSERVER>$nowdate</DTSERVER><!-- Oct. 29, 1999, 10:10:03 am -->
          <LANGUAGE>ENG</LANGUAGE>                <!-- Language used in response -->
          <DTPROFUP>$nowdate</DTPROFUP><!-- Last update to profile-->
          <DTACCTUP>$nowdate</DTACCTUP><!-- Last account update -->
          <FI>                          <!-- ID of receiving institution -->
            <ORG>NCH</ORG>              <!-- Name of ID owner -->
            <FID>1001</FID>             <!-- Actual ID -->
          </FI>
       </SONRS>                         <!-- End of signon -->
     </SIGNONMSGSRSV1>
     <BANKMSGSRSV1>
       <STMTTRNRS>                      <!-- Begin response -->
          <TRNUID>1001</TRNUID>         <!-- Client ID sent in request -->
          <STATUS>                      <!-- Start status aggregate -->
            <CODE>0</CODE>              <!-- OK -->
            <SEVERITY>INFO</SEVERITY>
          </STATUS>
EOT
}

sub printfooter
{
	print <<EOT;
             </STMTTRNRS>                           <!-- End of transaction -->
             </BANKMSGSRSV1>
       </OFX>
EOT
}

#
# main
#
&printheader();
$mindate=99999999;
$maxdate=0;
$tnr=0;
while (<>)
{
	#s/^\"//;	# remove starting "
	#s/\"\s*$//;	# remove trailing "
	#($t_datum, $t_name, $t_myaccount, $t_otheraccount, $t_code, $t_credit, $t_amount, $t_mu, $t_memo) = split(/\",\"/);
	#($t_van_rek, $t_muntsoort, $t_rentedatum, $t_bij_af_code, $t_bedrag, $t_naar_rek, $t_naar_naam, $t_boekdatum, $t_boekcode, $t_budgetcode, $omschr1, $omschr2, $omschr3, $omschr4, $omschr5, $omschr6) = split(/\",\"/);
	if ( /"(\d{10})","EUR",(\d{8}),"(.)",(\d*\.\d{2}),"(.{0,10})","(.{0,24})",(\d{8}),"(.{0,2})",".{0,6}","(.{0,32})","(.{0,32})","(.{0,32})","(.{0,32})","(.{0,32})","(.{0,32})"/)
	{
		$t_van_rek = $1;
		$t_rentedatum = $2;
		$t_bij_af_code = $3;
		$t_bedrag = $4;
		$t_naar_rek= $5;
		$t_naar_naam = $6;
		$t_boekdatum = $7;
		$t_boekcode = $8;
		$omschr1 = $9;
		$omschr2 = $10;
		$omschr3 = $11;
		$omschr4 = $12;
		$omschr5 = $13;
		$omschr6 = $14;
		#print "$t_bij_af_code, $t_bedrag\n";
		
		if ($t_van_rek =~ /(\d+)/)
		{
			if ($t_rentedatum < $mindate)
			{
				$mindate = $t_rentedatum;
			}
			if ($t_rentedatum > $maxdate)
			{
				$maxdate = $t_rentedatum;
			}
			$accounts{$1}=1;
			if ($t_boekcode eq "MA")	# Machtiging
			{
				$trntype = "DIRECTDEBIT";
			} elsif ($t_boekcode eq "TB")	# Telebankieren
			{
				$trntype = "PAYMENT";
			} elsif ($t_boekcode eq "BA")	# betaalautomaat
			{
				$trntype = "POS";
			} elsif ($t_boekcode eq "GA")	# geldautomaat (pin)
			{
				$trntype = "ATM";
			} elsif ($t_boekcode eq "OV")	# overschrijving
			{
				if ($t_bij_af_code eq "C")
				{
					$trntype = "CREDIT";
				} else {
					$trntype = "DEBIT";
				}
			} elsif ($t_boekcode eq "BY")	# Bijschrijving
			{
				if ($t_bij_af_code eq "C")
				{
					$trntype = "CREDIT";
				} else {
					$trntype = "DEBIT";
				}
			} elsif ($t_boekcode eq "DA")	# diversen
			{
				if ($t_bij_af_code eq "C")
				{
					$trntype = "CREDIT";
				} else {
					$trntype = "DEBIT";
				}
			} else
			{
				$trntype = "OTHER";
			}
			if ($t_bij_af_code eq "C")
			{
				$amount = $t_bedrag;
			} else {
				$amount = "-".$t_bedrag;
			} 
			$transaction[$tnr]{'account'} = $t_van_rek;
			$transaction[$tnr]{'trntype'} =	$trntype;
			$transaction[$tnr]{'dtposted'} = $t_rentedatum;
			$transaction[$tnr]{'trnamt'} = $amount;
			$transaction[$tnr]{'fitid'} = $t_rentedatum . $t_bedrag;
			$transaction[$tnr]{'payee'} = $t_naar_naam;
			$transaction[$tnr]{'bankacctto'} = $t_naar_rek;
			$transaction[$tnr]{'memo'} = $t_naar_naam.$omschr1.$omschr2.$omschr3.$omschr4.$omschr5.$omschr6;
			#print "$transaction[$#transaction]{'account'}\n";
			$tnr++;
		}
	}
}

foreach my $rekening (keys %accounts)
{
	#print "rekening: $rekening\n";
	print <<EOT;
	<STMTRS>                      <!-- Begin statement response -->
            <CURDEF>EUR</CURDEF>
	<BANKACCTFROM>              <!-- Identify the account -->
                  <BANKID>121099999</BANKID><!-- Routing transit or other FI ID -->
                  <ACCTID>$rekening</ACCTID><!-- Account number -->
                  <ACCTTYPE>CHECKING</ACCTTYPE><!-- Account type -->
        </BANKACCTFROM>             <!-- End of account ID -->
	<BANKTRANLIST>              <!-- Begin list of statement
                                        trans. -->
                  <DTSTART>$mindate</DTSTART>
                  <DTEND>$maxdate</DTEND>
EOT
	for ($tnr=0; $tnr <= $#transaction ; $tnr++)
	{
		#print "$transaction[$tnr]{'account'}, $transaction[$tnr]{'payee'}\n";
		if ($rekening == $transaction[$tnr]{'account'})
		{
			#print "$t_myaccount, $t_name\n";
			print "<STMTTRN>\n";
			print "\t<TRNTYPE>$transaction[$tnr]{'trntype'}</TRNTYPE>\n";
			print "\t<DTPOSTED>$transaction[$tnr]{'dtposted'}</DTPOSTED>\n";
			print "\t<TRNAMT>$transaction[$tnr]{'trnamt'}</TRNAMT>\n";
			print "\t<FITID>$transaction[$tnr]{'fitid'}</FITID>\n";
			print "\t<NAME>$transaction[$tnr]{'payee'}</NAME>\n";
			print "\t<BANKACCTTO>$transaction[$tnr]{'bankacctto'}</BANKACCTTO>\n";
			print "\t<MEMO>$transaction[$tnr]{'memo'}</MEMO>\n";
			print "</STMTTRN>\n";

		}
	}
	print <<EOT;
		    </BANKTRANLIST>                   <!-- End list of statement trans. -->
                    <LEDGERBAL>                       <!-- Ledger balance aggregate -->
                       <BALAMT>0</BALAMT>
                       <DTASOF>199910291120</DTASOF><!-- Bal date: 10/29/99, 11:20 am -->
                    </LEDGERBAL>                      <!-- End ledger balance -->
                 </STMTRS>  
EOT


}
&printfooter();