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 => 'dev_db',
  17   host     => 'localhost',
  18   username => 'kivitendo',
  19   password => 'kivitemdo',
  20 );
  21
  22 #my $db = SL::DB::client;
  23
  24 #my $dbh = SL::DB::dbi_connect("dbi:driver=Pg;dbname=firma;host=localhost;port=5432", "kivitendo", "kivitendo");
  25 my $db = SL::DB->new;
  26
  27 my $m = new SL::Controller::Mebil;
  28 $m->action_calcmap;