| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/proc.pl |
#!/usr/bin/perl
use lib qw(/akt /akt/appserv /u /u/appserv /usr/local/bin/utility);
use Workflow::Process;
use DivBasicF::COMText;
use DivBasicF::COMTerminal;
use DivBasicF::COMParam;
use DivBasicF::DBIfT;
use DBI;
eval("use _CalParam"); print $@; _CalParam->new();
my $com = DivBasicF::COMParam->new([@ARGV]);
$com = DivBasicF::COMTerminal->new($com,$PAR::editor);
$com = DivBasicF::COMText->new($com);
my $dbh = DivBasicF::DBIfT->connect("dbi:SQLite:/akt/test.db");
# COMParam --> COMTerminal --> COMText
my $text = $com->connect();
Workflow::Process->new($com,$dbh)->run($text);
$com->disconnect();