diff options
Diffstat (limited to 'qooxdoo/source/perl/Qooxdoo/JSONRPC.pm')
| -rw-r--r-- | qooxdoo/source/perl/Qooxdoo/JSONRPC.pm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/qooxdoo/source/perl/Qooxdoo/JSONRPC.pm b/qooxdoo/source/perl/Qooxdoo/JSONRPC.pm index bf4541d..567250f 100644 --- a/qooxdoo/source/perl/Qooxdoo/JSONRPC.pm +++ b/qooxdoo/source/perl/Qooxdoo/JSONRPC.pm @@ -85,6 +85,8 @@ sub handle_request my $error = new Qooxdoo::JSONRPC::error ($json); + $error->set_session($session); + my $script_transport_id = ScriptTransport_NotInUse; #---------------------------------------------------------------------- @@ -251,7 +253,7 @@ sub handle_request $@ = ''; $accessibility = eval $accessibility_method . - '($method, $accessibility)'; + '($method, $accessibility,$session)'; if ($@) { @@ -290,7 +292,7 @@ sub handle_request $requestUriDomain .= ":" . $cgi->server_port if $cgi->server_port != ($is_https ? 443 : 80); - if ($cgi->referer !~ m|^(https?://[^/]*)|) + if ($cgi->referer and $cgi->referer !~ m|^(https?://[^/]*)|) { $error->set_error (JsonRpcError_PermissionDenied, "Permission denied"); @@ -538,6 +540,14 @@ sub set_id $self->{id} = $id; } +sub set_session +{ + my $self = shift; + my $session = shift; + + $self->{session} = $session; +} + sub set_script_transport_id { my $self = shift; |