--- C:\wamp\www\drupal\sites\pcdecrapifier.com\modules\inactive_user.module	Sun May 06 21:26:33 2007
+++ C:\wamp\www\drupal\sites\pcdecrapifier.com\modules\inactive_user\inactive_user.module	Mon Oct 22 23:12:10 2007
@@ -202,7 +202,23 @@
       '#rows' => 10,
       '#description' => t('Customize the body of the notification e-mail sent to the user when their account is about to be deleted.') . ' ' . t('Available variables are:') . $mail_variables,
       '#required' => TRUE,
-    );
+    );
+    
+    // automatically delete never logged in users
+    $form['delete_never_logged_in_user'] = array(
+      '#type' => 'fieldset',
+      '#title' => t('Automatically delete never logged in users'),
+      '#collapsible' => TRUE,
+      '#collapsed' => TRUE,
+    );
+    $form['delete_never_logged_in_user']['never_logged_in_user_auto_delete'] = array(
+      '#type' => 'select',
+      '#title' => t('Delete users that have never logged in, and the account is older than'),
+      '#default_value' => variable_get('never_logged_in_user_auto_delete', 0),
+      '#options' => $period,
+      '#description' => t('Automatically delete user accounts that have never logged in, and account was created longer than the specified time.  Warning, user accounts are permanently deleted, with no ability to undo the action!  Requires crontab.'),
+    );
+    
   }
   return system_settings_form($form);
 }
@@ -389,6 +405,22 @@
         unset($user_list);
       }
     }
+
+    // automatically delete never logged in users
+    if ($delete_time = variable_get('never_logged_in_user_auto_delete', 0)) {
+      $result = db_query('SELECT * FROM {users} WHERE access = 0 AND ((%d - created ) > %d) AND NOT (uid=1)', time(), $delete_time);
+      while ($user = db_fetch_object($result)) 
+      	{
+            // delete the user
+            $array = (array) $user;
+            db_query("DELETE FROM {users} WHERE uid = %d", $user->uid);
+            db_query("DELETE FROM {authmap} WHERE uid = %d", $user->uid);
+            module_invoke_all('user', 'delete', $array, $user);
+            watchdog('user', t('user %user deleted due to never having logged int', array('%user' => $user->name)));
+        }
+    }
+  
+  
   }
 }