4 use lib "/opt/kivitendo-erp";
6 use SL::mebil::Mapping;
7 use Test::perl::ErrorChannel;
9 $::lxdebug = new LXDebug;
12 domain => 'KIVITENDO',
17 username => 'kivitendo',
18 password => 'kivitendo',
21 my $db = SL::DB->new(domain => 'KIVITENDO',
22 type => 'KIVITENDO',);
25 my $errch = new ErrorChannel;
26 my $mapper = new SL::mebil::Mapping($errch, $dbh);
28 my $command = $ARGV[0];
29 if ($command eq "GetMapping") {
30 my $mapping = $mapper->get_mapping();
32 print $_->{fromacc}."\n";
34 die ("Kein Mapping vorhanden.") unless (scalar(@$mapping) > 0);
35 } elsif ($command eq "CalcMapping") {
38 die "Invalid command: $command";