From 64ad4077fc99a8476a27ad61c243db1077300286 Mon Sep 17 00:00:00 2001
From: Tobi Oetiker <tobi@oetiker.ch>
Date: Mon, 5 Jan 2009 07:52:50 +0000
Subject: minor qooxdoo updates

---
 qooxdoo/source/perl/Qooxdoo/JSONRPC.pm | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 'qooxdoo/source/perl/Qooxdoo/JSONRPC.pm')

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;
-- 
cgit v1.2.3-24-g4f1b