1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#!/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");
|
