#!/usr/bin/perl
use strict;

use SL::Controller::Mebil;
use SL::DB;
use SL::LXDebug;

$::lxdebug = new LXDebug;

my $db = new SL::DB;

my $dbi = $db->dbi_connect("dbname=firma;host=localhost;port=5432", "kivitendo", "kivitendo");

my $m = new SL::Controller::Mebil;
$m->action_calcmap;