| 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/xcvclient |
#!/usr/bin/perl
@INC = ("/u","/u/appserv","/akt","/akt/appserv","/usr/local/bin/utility",@main::INC);
eval("use _CalParam"); print ($@);
eval("use DivBasicF::COMTerminal"); print ($@);
my $text = [@ARGV];
my $param = _CalParam->new([@ARGV],1);
my $client = DivBasicF::COMTerminal->new($param);
$param->com()->connect($param->entrypoint());
while (0 == 0) {
$text = $param->com()->query($text);
last if ($text->[0] =~ /^___ENDE___/) {
$text = $client->query($text);
}
$param->com()->disconnect();