| 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/appserv |
#!/usr/bin/perl
# unshift(@INC,"./DBI");
use strict;
$main::XCONSOLE = 1;
use Server::Server;
eval("use Runpage::FormPage"); print ($@);
eval("use ServFiBu::ServFiBuReader"); print ($@);
eval("use ServFiBu::ServFiBuBasic"); print ($@);
eval("use ServKiMu::ServKiMuServer"); print ($@);
eval("use ServLQ::ServLQServer"); print ($@);
eval("use AutoTest::AutoTest"); print ($@);
eval("use ServPraxis::ServPraxisServer"); print ($@);
eval("use ServCalendar::ServCalendarServer"); print ($@);
eval("use ServMusic::ServMusicServer"); print ($@);
use ServMusic::ServMusicServer;
use CGP;
my $server = Server::Server->new("",@ARGV);
print "Application Server started ...\n";
$server->server_run();