OpenInteract2 Documentation: OpenInteract2::Manage::Website::CleanOrphanedUsers

NAME

OpenInteract2::Manage::Website::CleanOrphanedUsers - Remove users who created an account but never logged in

SYNOPSIS

 #!/usr/bin/perl
 
 use strict;
 use OpenInteract2::Manage;
 
 my $website_dir = '/home/httpd/mysite';
 my $task = OpenInteract2::Manage->new( 'clean_users', website_dir => $website_dir );
 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";
 }

DESCRIPTION

When a user registers for a new account the system enters a 'removal_date' in their record. That date is the date of their registration plus an expiration time. This expiration time is specified in the server configuration key 'login.initial_login_expires' or is set to 24 hours.

When you run this task we find any users with non-null 'removal_date' values and compare the date to right now. If it's less than now, we remove the user.

STATUS INFORMATION

No additional information.

COPYRIGHT

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_06 source.