Index: bot.module
===================================================================
RCS file: /cvs/drupal-contrib/contributions/modules/bot/bot.module,v
retrieving revision 1.9.2.9.2.10
diff -u -r1.9.2.9.2.10 bot.module
--- bot.module	26 Jun 2008 00:47:48 -0000	1.9.2.9.2.10
+++ bot.module	27 Jun 2008 01:25:45 -0000
@@ -22,7 +22,7 @@
  * Implementation of hook_perm().
  */
 function bot_perm() {
-  return array('administer bot');
+  return array('administer bot', 'set own irc credentials');
 }
 
 /**
@@ -46,6 +46,35 @@
   return $items;
 }
 
+/*
+ * Implementation of hook_user().
+ */
+function bot_user($op, $edit, &$account, $category = NULL) {
+  if ($op == 'form' && $category == 'account') {
+   global $user;
+    $form['bot'] = array(
+      '#type' => 'fieldset',
+      '#title' => t('IRC credentials'),
+      '#collapsible' => TRUE,
+      '#weight' => 4,
+      '#access' => ((user_access('set own irc credentials') && ($account->uid == $user->uid)) || user_access('administer bot')),
+    );
+    $form['bot']['bot_hostname'] = array(
+      '#type' => 'textfield',
+      '#title' => t('Hostname'),
+      '#default_value' => empty($edit['bot_hostname']) ? '' : $edit['bot_hostname'],
+      '#description' => t('The hostname associated with your IRC account (Example: <em>drupal.org/user/123456/view</em>).')
+    );
+    $form['bot']['bot_autologout'] = array(
+      '#type' => 'checkbox',
+      '#title' => t('Automatically Logout'),
+      '#default_value' => isset($edit['bot_autologout']) ? $edit['bot_autologout'] : FALSE,
+      '#description' => t('When you quit, or change your nickname on IRC, automatically have the bot log you out of your session. Usage of this is strongly recommended. It is handy to not use it if you are running under a secure hostname.'),
+    );
+    return $form;
+  }
+}
+
 /**
  * Run an IRC-only crontab every five minutes.
  *
@@ -91,6 +120,37 @@
  */
 function bot_irc_msg_query($data) {
   bot_irc_msg_channel($data, TRUE);
+
+  // See if the user wants to login.
+  if (preg_match("/^login ([a-zA-Z0-9\ \[\]\{\}\\\|\^\`\-\_\*]*)/i", $data->message, $matches)) {
+    // Check if the user credentials are correct.
+    $user = user_authenticate(array('name' => $data->nick, 'pass' => $matches[1]));
+    if ($user) {
+      // Update their hostname to log them in.
+      user_save($user, array('bot_hostname' => $data->host));
+      bot_message($data->nick, t('Login successful.'));
+    }
+    else {
+      bot_message($data->nick, t('Login failed.'));
+    }
+  }
+  else if ($data->message == 'logout') {
+    // Log the user out only if they're authenticated.
+    $user = bot_authenticate($data);
+    if ($user) {
+      // Remove their hostname, making their authentication invalid.
+      user_save($user, array('bot_hostname' => ''));
+      bot_message($data->nick, t('You have logged out.'));
+    }
+    else {
+      bot_message($data->nick, t('You are currently not logged in.'));
+    }
+  }
+  else if ($data->message == 'login') {
+    // User wants to authmatically login, or check their status.
+    $user = bot_authenticate($data);
+    bot_message($data->nick, $user ? t('You are logged in.') : t('You are not logged in. Login with "login <password>".'));
+  }
 }
 
 /**
@@ -211,3 +271,50 @@
 
   return system_settings_form($form);
 }
+
+/**
+ * Check a given user's credentials.
+ *
+ * Looks up the IRC hostname, and compares what is provided on the website.
+ *
+ * $user = bot_authenticate($data);
+ * if (user_access('ahem', $user)) {
+ *   // Do something
+ * }
+ *
+ * @param $data
+ *   The regular $data object prepared by the IRC library.
+ * @return
+ *   The user object combined with the data object.
+ */
+function bot_authenticate($data) {
+  // See if we have any user data to load from.
+  if (isset($data->nick)) {
+    // Load the Drupal user.
+    $user = user_load(array('name' => $data->nick));
+    // Check to see if the user is still associated with the correct hostname.
+    if (!empty($user->bot_hostname) && isset($data->host) && ($data->host == $user->bot_hostname)) {
+      // Return the combined data and user object.
+      return (object)array_merge((array)$user, (array)$data);
+    }
+  }
+  return NULL;
+}
+
+/**
+ * When a user quits, check to see if we should log them out.
+ */
+function bot_irc_msg_quit($data) {
+  $user = bot_authenticate($data);
+  if (isset($user->bot_autologout) && ($user->bot_autologout == TRUE)) {
+    // Remove their hostname, making them logout.
+    user_save($user, array('bot_hostname' => ''));
+  }
+}
+
+/**
+ * A nickname change is considered the same as quitting.
+ */
+function bot_irc_msg_nickchange($data) {
+  bot_irc_msg_quit($data);
+}