[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Manage/Website CleanOrphanedUsers.pm,1.1,1.2

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1057

Modified Files:
	CleanOrphanedUsers.pm 
Log Message:
OIN-91: when removing users disable security; add a few docs


Index: CleanOrphanedUsers.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website/CleanOrphanedUsers.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CleanOrphanedUsers.pm	26 Feb 2005 05:52:18 -0000	1.1
--- CleanOrphanedUsers.pm	3 Mar 2005 03:36:20 -0000	1.2
***************
*** 5,12 ****
  use strict;
  use base qw( OpenInteract2::Manage::Website );
- use Log::Log4perl            qw( get_logger );
- use OpenInteract2::Constants qw( :log );
  use OpenInteract2::Context   qw( CTX );
- use OpenInteract2::Exception qw( oi_error );
  
  $OpenInteract2::Manage::Website::CleanOrphanedUsers::VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
--- 5,9 ----
***************
*** 38,42 ****
      my @errors = ();
      foreach my $user ( @to_remove ) {
!         eval { $user->remove };
          if ( $@ ) {
              $failed++;
--- 35,39 ----
      my @errors = ();
      foreach my $user ( @to_remove ) {
!         eval { $user->remove({ skip_security => 1 }) };
          if ( $@ ) {
              $failed++;
***************
*** 88,91 ****
--- 85,100 ----
   }
  
+ =head1 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.
+ 
  =head1 STATUS INFORMATION