| Current Path : /var/www/web-klick.de/dsh/91_archiv/fuer_backup/bin/ |
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/91_archiv/fuer_backup/bin/fibu |
#!/usr/bin/perl
my $buchhaltung = shift;
my $kto = shift;
@INC = ("/usr/bin/local/utility","/akt/appserv",@INC);
use strict;
eval("use Server::Direct");
eval("use ServFiBu::ServFiBuReader");
eval("use ServFiBu::ServFiBuMonitor");
my $obj = Server::Direct->new("","-ktodir .");
$obj->client_connect("PERL");
my $fibuhandle = $obj->oo("ServFiBu::ServFiBuReader","new");
my $fibumonitor = ServFiBu::ServFiBuMonitor->new($fibuhandle,"");
my $erg = $fibumonitor->run("open $buchhaltung");
my $erg = $fibumonitor->run("use $buchhaltung");
$erg = $fibumonitor->run("$kto");
print $erg;
1;