| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/ |
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/index.cgi |
#!c:/Perl/bin/perl -w
use strict;
use CGI;
use CGI::Session;
#use CGI::Fast;
use CGI::Session::Driver::file;
use Data::Dumper;
$CGI::Session::Driver::file::FileName = ($ENV{USER}||'').$0.'%s.session';
use Qooxdoo::JSONRPC;
$Qooxdoo::JSONRPC::debug = 0;
$Qooxdoo::JSONRPC::service_path = '';
$Qooxdoo::JSONRPC::method_prefix = '';
# my $exposed = [ 'DivBasicF.Multiply' ];
my $cgi = CGI->new;
my $session = new CGI::Session;
Qooxdoo::JSONRPC::handle_request ($cgi, $session);