#!/usr/bin/perl -w

# Example of an EekBoek application.

# Author          : Johan Vromans
# Created On      : Sun Apr 13 17:25:07 2008
# Last Modified By: Johan Vromans
# Last Modified On: Wed Mar  9 22:19:58 2011
# Update Count    : 106
# Status          : Unknown, Use with caution!

################ Common stuff ################

use strict;
use warnings;

# EekBoek modules.

use EekBoek;		# optional (but we'll use PACKAGE)
use EB;			# common
use EB::Globals;	# globals

################ Presets ################

binmode( STDOUT, ':encoding(utf-8)' );

################ The Process ################

# Initialise.
# The app name passed will be used for the config files,
# e.g., Foo -> /etc/foo.conf, ~/.foo/foo.conf, ./.foo.conf
# By using $EekBoek::PACKAGE we'll use the standard EekBoek
# config files.
my $eb = EB->app_init( { app => $EekBoek::PACKAGE,
			 config => "eekboek.conf",	# local
		       } );

# Connect to the data base.
$eb->connect_db;

# Perform a booking.
require EB::Booking::IV;

my $opts = { dagboek      => "I",
	     dagboek_type => DBKTYPE_INKOOP,
	     journal      => 1,
	   };

my $args = [
	    "09-02",		# date
	    "Internet",		# booking description
	    "XS4ALL",		# relation
	    "ADLS",		# booking details
	    "22,80",		# amount
	   ];

my $bsk = EB::Booking::IV->new->perform($args, $opts);
print("Geboekt: $bsk\n");