X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/53593baa211863fbf66540cf1bcc36c8fb37257f..b90ff6b18df92c98b1b875d14835d1fdf9ff339a:/Test/perl/test_action.pl?ds=inline

diff --git a/Test/perl/test_action.pl b/Test/perl/test_action.pl
new file mode 100755
index 000000000..5611dace2
--- /dev/null
+++ b/Test/perl/test_action.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+use strict;
+
+#use SL::Controller::Mebil;
+use SL::DB;
+use SL::Form;
+use SL::LXDebug;
+use SL::DB::Manager::MebilMapping;
+
+$::lxdebug = new LXDebug;
+#$::form    = new Form;
+
+#my $dbh = $::form->get_standard_dbh;
+
+SL::DB->register_db(
+  domain   => 'KIVITENDO',
+  type     => 'KIVITENDO',
+  driver   => 'Pg',
+  database => 'firma',
+  host     => 'localhost',
+  username => 'kivitendo',
+  password => 'kivitendo',
+);
+
+my $db = SL::DB->new(domain   => 'KIVITENDO',
+  type     => 'KIVITENDO',);
+my $dbh = $db->dbh;
+
+#$dbh->do("SELECT * FROM mebil_mapping");
+
+#$db->begin_work or die $db->error;
+#my $m = new SL::Controller::Mebil;
+#$m->action_calcmap;
+my $mappings = SL::DB::Manager::MebilMapping->get_objects(dbh => $dbh);
+
+foreach my $map (@$mappings) {
+	 print ("$map\n");
+}