projects
/
kivitendo-erp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
4e78f919fa0b315e6b06457a0ac04d942c20ae55
[kivitendo-erp.git]
/
Test
/
perl
/
test_action.pl
1
#!/usr/bin/perl
2
use strict;
3
4
use SL::Controller::Mebil;
5
use SL::DB;
6
use SL::LXDebug;
7
8
$::lxdebug = new LXDebug;
9
10
my $db = new SL::DB;
11
12
my $dbi = $db->dbi_connect("dbname=firma;host=localhost;port=5432", "kivitendo", "kivitendo");
13
14
my $m = new SL::Controller::Mebil;
15
$m->action_calcmap;