| Current Path : /var/www/web-klick.de/dsh/90_akt/PPLTest.old/ |
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/90_akt/PPLTest.old/server_test6001.pl |
#use lib qw(. /akt akt/appserv /u /u/appserv /usr/local/bin/utility);
#
# Testframework-Server.
#
# Environment:
#
# database: Zentrale Test-Item-Datenbank
# in_db: Blackboard zum Target
# out_db: Blackboard vom Target
use strict;
use DivBasicF::DBComSimple;
use PPLTest::Gen6001;
DivBasicF::DBComSimple->read_in_environment();
$main::XCONSOLE = 0;
$SIG{INT} = sub { $ENV{'SIG_INT'} = $ENV{'SIG_INT'} + 1; };
my $obj = DivBasicF::DBComSimple->new([$ENV{'database'},67002000,2,
"idx__name,idx__result,idx__remark,idx__user,idx__weight," .
"idx__requ,idx__status"],
PPLTest::Gen6001->new([]
));
$obj->run(3,3,-1,-1);
# 3 Startprozesse
# 3 laufende Prozesse
# -1 sek. Standard-Waittime
# -1: alle Semaphoren am Anfang loeschen, fork-Modus