X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4058a47f317770d5cc5f5aa6b9f965b793f263bd..8e083c4270414505dcf58f4732be2ea6c65c5120:/Test/perl/test_action.pl

diff --git a/Test/perl/test_action.pl b/Test/perl/test_action.pl
index 660b7f343..0f2e02ab8 100755
--- a/Test/perl/test_action.pl
+++ b/Test/perl/test_action.pl
@@ -1,10 +1,26 @@
 #!/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;