| 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/xcv2a |
#!/usr/bin/perl
use lib qw(/akt /akt/appserv /u /u/appserv /usr/local/bin/utility);
use Utility::cv;
use DivBasicF::FileCom;
use DivBasicF::COMText;
use DivBasicF::COMTerminal;
eval("use _CalParam"); _CalParam->new();
my $com = DivBasicF::FileCom->new("/tmp/com/",650000,$PAR::serializer);
$com = DivBasicF::COMText->new($com);
my $text = $com->connect();
Utility::cv->new( { DBFILE => $PAR::dbfile,
DBCOMMON => $PAR::dbcommon,
PERSON => $PAR::person,
CALENDAR => $PAR::calendar,
INTERVAL => $PAR::interval,
COM => $com})->cmd($text);
$com->disconnect();