NAME

OpenInteract2::Manage::Website::CleanExpiredSessions - Remove expired and empty sessions

SYNOPSIS

#!/usr/bin/perl

use strict;
use OpenInteract2::Manage;

my %PARAMS = ( expire_time => 60 );
my $website_dir = '/home/httpd/mysite';
my $task = OpenInteract2::Manage->new(
                     'clean_sessions', \%PARAMS );
my @status = $task->execute;
foreach my $s ( @status ) {
    my $ok_label      = ( $s->{is_ok} eq 'yes' )
                          ? 'OK' : 'NOT OK';
    my $default_label = ( $s->{is_default} eq 'yes' )
                          ? ' (default) ' : '';
    print "Status OK?  $s->{is_ok}\n",
          "$s->{message}\n";
}

REQUIRED OPTIONS

expire_time=number-of-days

Specify the number of days older than which I should remove sessions.

OPTIONAL OPTIONS

analyze=(yes|no)

If set to 'yes' I won't actually remove anything, just act like I did.

STATUS INFORMATION

Each status hashref includes:

is_ok

Set to 'yes' if the task succeeded, 'no' if not.

message

Success/failure message, contains the number of sessions reviewed, the number removed and the number kept.

TO DO

Different deserializing methods

Be able to use different types of deserializing methods.

COPYRIGHT

Copyright (C) 2003-2004 Chris Winters. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHORS

Chris Winters <chris@cwinters.com>