From 90c075a59b7ca72655f9595622c7e903722ac48c Mon Sep 17 00:00:00 2001
From: Andrew McMillan <andrew@morphoss.com>
Date: Tue, 27 Sep 2011 11:28:28 +1300
Subject: [PATCH] New RIMAP driver by Paul van Tilburg.

---
 inc/drivers_rimap.php | 112 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 112 insertions(+)
 create mode 100644 inc/drivers_rimap.php

diff --git a/inc/drivers_rimap.php b/inc/drivers_rimap.php
new file mode 100644
index 00000000..a599df5a
--- /dev/null
+++ b/inc/drivers_rimap.php
@@ -0,0 +1,112 @@
+<?php
+/**
+* Manages PAM repository connection with local imap server help
+*
+* @package   davical
+* @category Technical
+* @subpackage   ldap
+* @author    Oliver Schulze <oliver@samera.com.py>,
+*   		 Andrew McMillan <andrew@mcmillan.net.nz>
+* @copyright Based on Eric Seigne script drivers_squid_pam.php
+* @license   http://gnu.org/copyleft/gpl.html GNU GPL v2 or later
+*/
+
+require_once("auth-functions.php");
+
+class imapPamDrivers
+{
+  /**#@+
+  * @access private
+  */
+
+  /**#@-*/
+
+
+  /**
+  * Constructor.
+  * @param string $imap_url formated for imap_open()
+  */
+  function imapPamDrivers($imap_url){
+      $this->__construct($imap_url);
+  }
+
+
+  /**
+  * The constructor
+  *
+  * @param string $imap_url formated for imap_open()
+  */
+  function __construct($imap_url)
+  {
+      global $c;
+      if (empty($imap_url)){
+          $c->messages[] = sprintf(i18n('drivers_imap_pam : imap_url parameter not configured in /etc/davical/*-conf.php'));
+          $this->valid=false;
+          return ;
+      }
+  }
+}
+
+
+/**
+* Check the username / password against the IMAP server
+*/
+function RIMAP_check($username, $password ){
+  global $c;
+
+  $imap_username = $username;
+  if ( function_exists('mb_convert_encoding') ) {
+    $imap_username = mb_convert_encoding($imap_username, "UTF7-IMAP",mb_detect_encoding($imap_username));
+  }
+  else {
+    $imap_username = imap_utf7_encode($imap_username);
+  }
+
+  //$imap_url = '{localhost:143/imap/notls}';
+  //$imap_url = '{localhost:993/imap/ssl/novalidate-cert}';
+  $imap_url = $c->authenticate_hook['config']['imap_url'];
+  $auth_result = "ERR";
+  
+  $imap_stream = @imap_open($imap_url, $imap_username, $password, OP_HALFOPEN);
+  //print_r(imap_errors());
+  if ( $imap_stream ) {
+    // disconnect
+    imap_close($imap_stream);
+    // login ok
+    $auth_result = "OK";
+  }
+
+  if ( $auth_result == "OK") {
+    $principal = new Principal('username',$username);
+    if ( ! $principal->Exists() ) {
+      dbg_error_log( "PAM", "Principal '%s' doesn't exist in local DB, we need to create it",$username );
+      if ( strstr($username, '@') ) {
+        $name_arr = explode('@', $username);
+        $fullname = ucfirst(strtolower($name_arr[0]));
+        $email = $username;
+      }
+      else {
+        $fullname = ucfirst(strtolower($username));
+        $email = $username . "@" . $c->authenticate_hook['config']['email_base'];
+      }
+
+      $principal->Create( array(
+                      'username' => $username,
+                      'user_active' => true,
+                      'email' => $email,
+                      'fullname' => ucfirst($fullname)
+              ));
+      if ( ! $principal->Exists() ) {
+        dbg_error_log( "PAM", "Unable to create local principal for '%s'", $username );
+        return false;
+      }
+      CreateHomeCollections($username);
+    }
+    return $principal;
+  }
+  else {
+    dbg_error_log( "PAM", "User %s is not a valid username (or password was wrong)", $username );
+    return false;
+  }
+
+}