| Current Path : /var/www/web-klick.de/dsh/90_akt/DivBasicF/ |
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/DivBasicF/AutoTestServer.pm |
package DivBasicF::AutoTestServer;
use DivBasicF::DBComSimple;
sub new {
my $class = shift;
my $self = { @_ };
bless($self,$class);
return($self);
}
#***************************************************************************
sub start {
my $self = shift;
my @pars = @_;
eval("use " . $self->{'modul'}); print $@;
$SIG{INT} = sub { $ENV{'SIG_INT'} = $ENV{'SIG_INT'} + 1; };
my $obj = DivBasicF::DBComSimple->new($self->{'process_database'},
$self->{'process_port'},2,$self->{'indices'});
my $o = "";
if ($self->{'modul'}) {
$o = $self->{'modul'}->new(@pars);
}
$obj->run($o,3,3);
}
1;