| 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/gq |
#!/usr/bin/perl
use DivBasicF::DBComSimple;
use DivBasicF::AutoTest;
DivBasicF::DBComSimple->read_in_environment();
$SIG{INT} = sub { $ENV{'SIG_INT'} = $ENV{'SIG_INT'} + 1; };
my $obj = DivBasicF::DBComSimple->new($ENV{'process_database'},
$ENV{'process_port'},2,$ENV{'indices'});
$obj->run($modul->new(),3,3);