X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=Test%2Fperl%2Ftest_action.pl;h=abf7379886ffd721368d65d39bacaa70f4707718;hb=47db6ae13df64092d401896ec476b9335e9ec807;hp=5611dace269b2e7cbbb35266a8ab7a5f67366771;hpb=b90ff6b18df92c98b1b875d14835d1fdf9ff339a;p=kivitendo-erp.git

diff --git a/Test/perl/test_action.pl b/Test/perl/test_action.pl
index 5611dace2..abf737988 100755
--- a/Test/perl/test_action.pl
+++ b/Test/perl/test_action.pl
@@ -1,16 +1,13 @@
 #!/usr/bin/perl
 use strict;
 
-#use SL::Controller::Mebil;
-use SL::DB;
-use SL::Form;
+use lib "/opt/kivitendo-erp";
+use lib "perl";
 use SL::LXDebug;
-use SL::DB::Manager::MebilMapping;
+use SL::mebil::Mapping;
+use ErrorChannel;
 
 $::lxdebug = new LXDebug;
-#$::form    = new Form;
-
-#my $dbh = $::form->get_standard_dbh;
 
 SL::DB->register_db(
   domain   => 'KIVITENDO',
@@ -26,13 +23,18 @@ 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");
+my $errch = new ErrorChannel;
+my $mapper = new SL::mebil::Mapping($errch, $dbh);
+
+my $command = $ARGV[0];
+if ($command eq "ShowMapping") {
+	my $mapping = $mapper->get_mapping();
+	foreach (@$mapping) {
+		print $_->{fromacc}."\n";
+	}
+	die ("Kein Mapping vorhanden.") unless (scalar(@$mapping) > 0);
+} elsif ($command eq "CalcMapping") {
+	(my $fromacc, my $toacc) = $mapper->calc_mapping(2022);
+} else {
+	die "Invalid command: $command";
 }