| 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/reg2 |
#!/usr/bin/perl
use Workflow::Domain;
use DivBasicF::DBIfT;
use DivBasicF::COMText;
use DivBasicF::COMTerminal;
use DivBasicF::COMParam;
use DBI;
# eval("use _RegParam"); print $@; _RegParam->new();
my $com = DivBasicF::COMParam->new([@ARGV]);
$com = DivBasicF::COMTerminal->new($com,"vim"); # <--- Editor
$com = DivBasicF::COMText->new($com);
# COMParam --> COMTerminal --> COMText
my $nr = shift;
my $dbh = DivBasicF::DBIfT->connect("dbi:SQLite:/tmp/domain".$nr.".db"); # <--- DB-File
my $text = $com->connect();
Workflow::Domain->new($com,$dbh)->choose($text);
$com->disconnect();