#!/usr/bin/perl
use strict;

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

$::lxdebug = new LXDebug;
#$::form    = new Form;

#my $dbh = $::form->get_standard_dbh;

SL::DB->register_db(
  driver   => 'Pg',
  database => 'dev_db',
  host     => 'localhost',
  username => 'kivitendo',
  password => 'kivitemdo',
);

#my $db = SL::DB::client;

#my $dbh = SL::DB::dbi_connect("dbi:driver=Pg;dbname=firma;host=localhost;port=5432", "kivitendo", "kivitendo");
my $db = SL::DB->new;

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