An ordinary print statement is not enough to set the cookie - at leas…

…t under mod_perl. So we override the 'save' method of the Cookie module and use the 'add_header' method of CGI::Application instead. This works also under mod_perl

lib/OTRS/OPR/Web/App.pm

@@ -72,6 +72,7 @@ sub session {
         $self->{___session} = OTRS::OPR::Web::App::Session->new(
             config => $self->config,
             expire => $expire,
+            app    => $self,
         );
     }
 

lib/OTRS/OPR/Web/App/Session.pm

@@ -16,9 +16,33 @@ sub new{
     $self->_config( $args{config} );
     $self->expire( $args{expire} );
 
+    $self->app( $args{app} );
+
+    {
+        no warnings 'redefine';
+        *ReneeB::Session::State::Cookie::save = sub {
+            my ($session,$id) = @_;
+
+            my $cookie = CGI::Cookie->new(
+                -name   => $session->cookiename,
+                -value  => $id,
+                -expire => $session->expire,
+            );
+
+            $self->app->header_add( -cookie => $cookie );
+        };
+    }
+
     return $self;
 }# new
 
+sub app {
+    my ($self,$value) = @_;
+
+    $self->{__app__} = $value if @_ == 2;
+    return $self->{__app__};
+}
+
 sub session{
     my ($self) = @_;
 

lib/ReneeB/Session/State/Cookie.pm

@@ -75,4 +75,4 @@ sub delete{
     print "Set-Cookie: $cookie\n";
 }
 
-1;
+1;