| 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/ppl.pl |
#!/usr/bin/perl
use DivBasicF::DBComSimple;
use Data::Dumper;
DivBasicF::DBComSimple->read_in_environment();
my $com = DivBasicF::DBComSimple->new([$ENV{'process_database'},
$ENV{'process_port'},100,2]);
my $text = join("",<STDIN>);
my $connection = "";
my $pars = [];
my $zeit = shift(@ARGV) || 2;
if ($text =~ s/^([^\n]*)CONNECTION... +(.*?) *\n//s) {
$connection = $2 if (!$1);
}
$text = "---xxx---\n\n" . $text . "\n\n---xxx---\n" if ($text !~ /^([ \n]*)$/);
while ($text =~ s/---xxx---([\n ]*)(.*?)([\n ]*)---xxx---/---xxx---/s) {
push(@$pars,$2);
}
push(@pars,@ARGV[0]);
($connection,$pars) = $com->process($zeit,7,$connection,@$pars);
print "CONNECTION... $connection\n\n" if ($connection);
print join("\n\n---xxx---\n\n",@$pars);