From 2a4abc1286ee57b804996a1c9fe410b5b9837ef3 Mon Sep 17 00:00:00 2001
From: thomascube <thomas@roundcube.net>
Date: Thu, 02 Jul 2009 04:40:56 -0400
Subject: [PATCH] Plugin to copy user prefs from a Qquirrelmail installation (when a new user is registered)
---
plugins/password/config.inc.php | 4 +-
plugins/squirrelmail_usercopy/config.inc.php.dist | 5 ++
plugins/squirrelmail_usercopy/squirrelmail_usercopy.php | 91 +++++++++++++++++++++++++++++++++++++++++++++
3 files changed, 98 insertions(+), 2 deletions(-)
diff --git a/plugins/password/config.inc.php b/plugins/password/config.inc.php
index 1b964e3..3945ea0 100644
--- a/plugins/password/config.inc.php
+++ b/plugins/password/config.inc.php
@@ -3,7 +3,7 @@
// Password Plugin options
// -----------------------
// A driver to use for password change. Default: "sql".
-$rcmail_config['password_driver'] = 'poppassd';
+$rcmail_config['password_driver'] = 'sasl';
// Determine whether current password is required to change password.
// Default: false.
@@ -41,7 +41,7 @@
// SASL Driver options
// -------------------
// Additional arguments for the saslpasswd2 call
-$rcmail_config['password_saslpasswd_args'] = '';
+$rcmail_config['password_saslpasswd_args'] = '-u rolig';
// LDAP Driver options
diff --git a/plugins/squirrelmail_usercopy/config.inc.php.dist b/plugins/squirrelmail_usercopy/config.inc.php.dist
new file mode 100644
index 0000000..5c2560f
--- /dev/null
+++ b/plugins/squirrelmail_usercopy/config.inc.php.dist
@@ -0,0 +1,5 @@
+<?php
+
+// full path to the squirrelmail data directory
+$rcmail_config['squirrelmail_data_dir'] = '';
+
diff --git a/plugins/squirrelmail_usercopy/squirrelmail_usercopy.php b/plugins/squirrelmail_usercopy/squirrelmail_usercopy.php
new file mode 100644
index 0000000..cc44f35
--- /dev/null
+++ b/plugins/squirrelmail_usercopy/squirrelmail_usercopy.php
@@ -0,0 +1,91 @@
+<?php
+
+/**
+ * Copy a new users identity and settings from a nearby Squirrelmail installation
+ *
+ * Currently only file-based data storage of Squirrelmail is supported.
+ *
+ * @version 1.0
+ * @author Thomas Bruederli
+ */
+class squirrelmail_usercopy extends rcube_plugin
+{
+ private $prefs = null;
+ private $abook = array();
+
+ public function init()
+ {
+ $this->add_hook('create_user', array($this, 'create_user'));
+ $this->add_hook('create_identity', array($this, 'create_identity'));
+ }
+
+ public function create_user($p)
+ {
+ // read prefs and add email address
+ $this->read_squirrel_prefs($p['user']);
+ if ($this->prefs['email_address'])
+ $p['user_email'] = $this->prefs['email_address'];
+
+ return $p;
+ }
+
+ public function create_identity($p)
+ {
+ // only execute on login
+ if ($p['login'] && $this->prefs) {
+ if ($this->prefs['full_name'])
+ $p['record']['name'] = $this->prefs['full_name'];
+ if ($this->prefs['email_address'])
+ $p['record']['email'] = $this->prefs['email_address'];
+ if ($this->prefs['signature'])
+ $p['record']['signature'] = $this->prefs['signature'];
+
+ // copy address book
+ $rcmail = rcmail::get_instance();
+ $contacts = $rcmail->get_address_book(null, true);
+ if ($contacts && count($this->abook)) {
+ foreach ($this->abook as $rec)
+ $contacts->insert($rec, true);
+ }
+ }
+
+ return $p;
+ }
+
+ private function read_squirrel_prefs($uname)
+ {
+ $this->load_config();
+ $rcmail = rcmail::get_instance();
+
+ if ($srcdir = $rcmail->config->get('squirrelmail_data_dir')) {
+ $prefsfile = slashify($srcdir) . $uname . '.pref';
+ $abookfile = slashify($srcdir) . $uname . '.abook';
+ $sigfile = slashify($srcdir) . $uname . '.sig';
+
+ if (is_readable($prefsfile)) {
+ $this->prefs = array();
+ foreach (file($prefsfile) as $line) {
+ list($key, $value) = explode('=', $line);
+ $this->prefs[$key] = utf8_encode(rtrim($value));
+ }
+
+ // also read signature file if exists
+ if (is_readable($sigfile)) {
+ $this->prefs['signature'] = utf8_encode(file_get_contents($sigfile));
+ }
+
+ // parse addres book file
+ if (filesize($abookfile)) {
+ foreach(file($abookfile) as $line) {
+ list($rec['name'], $rec['firstname'], $rec['surname'], $rec['email']) = explode('|', utf8_encode(rtrim($line)));
+ if ($rec['name'] && $rec['email'])
+ $this->abook[] = $rec;
+ }
+ }
+ }
+ }
+ }
+
+}
+
+?>
\ No newline at end of file
--
Gitblit v1.9.1