• Keeper.pm

    252 253  
    7 7 use Apache::Cookie;
    8 8 use Apache::Session::File;
    9 9 use Apache::Session::Postgres;
    10 use Apache::Session::Memcached;
    10 11 use Contenido::Globals;
    11 12 use Data::Dumper;
    12 13
    … …  
    205 206 Handle => $keeper->SQL,
    206 207 };
    207 208 };
    209 } elsif ( $state->{session}->storage eq 'MEMCACHED' ) {
    210 eval {
    211 tie %session, 'Apache::Session::Memcached', $sid, {
    212 Handler => $keeper->{session}->MEMD,
    213 Expiration => $state->{session}->{lifetime},
    214 # Servers => $state->{session}->memcached_servers,
    215 # NoRehash => 1,
    216 # Readonly => 0,
    217 # Debug => $DEBUG,
    218 # CompressThreshold => 10_000
    219 };
    220 };
    208 221 } else {
    209 222 eval {
    210 223 tie %session, 'Apache::Session::File', $sid, {
    211 Directory => $state->session->session_dir,
    224 Directory => $state->{session}->session_dir,
    212 225 };
    213 226 };
    214 227 }
    … …  
    231 244 Handle => $keeper->SQL,
    232 245 };
    233 246 };
    247 } elsif ( $state->{session}->storage eq 'MEMCACHED' ) {
    248 eval {
    249 tie %session, 'Apache::Session::Memcached', undef, {
    250 Handler => $keeper->{session}->MEMD,
    251 Expiration => $state->{session}->{lifetime},
    252 # Servers => $state->{session}->memcached_servers,
    253 # NoRehash => 1,
    254 # Readonly => 0,
    255 # Debug => $DEBUG,
    256 # CompressThreshold => 10_000
    257 };
    258 };
    234 259 } else {
    235 260 eval {
    236 261 tie %session, 'Apache::Session::File', undef, {