projects
/
kivitendo-erp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0f2e02ab89de1170820a4b83518005a354824850
[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::Form;
7
use SL::LXDebug;
8
9
$::lxdebug = new LXDebug;
10
#$::form = new Form;
11
12
#my $dbh = $::form->get_standard_dbh;
13
14
SL::DB->register_db(
15
driver => 'Pg',
16
database => 'firma',
17
host => 'localhost',
18
username => 'kivitendo',
19
password => 'kivitendo',
20
);
21
22
my $db = SL::DB->new;
23
my $dbh = $db->dbh;
24
25
my $m = new SL::Controller::Mebil;
26
$m->action_calcmap;