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 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>

Generated from the OpenInteract 1.99_03 source.