projects
/
kivitendo-erp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Merge branch 'test' into master_3.5.8
[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;