#!/usr/bin/perl
use strict;
-use SL::Controller::Mebil;
+#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 => 'firma',
+ host => 'localhost',
+ username => 'kivitendo',
+ password => 'kivitendo',
+);
+
+my $db = SL::DB->new;
+my $dbh = $db->dbh;
my $m = new SL::Controller::Mebil;
$m->action_calcmap;