1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
#!/usr/bin/php
<?php
/**
* This script imports SquirrelMail file-based preferences into Horde.
* It was developed against SquirrelMail 1.4.0, so use at your own risk
* against different versions.
*
* Input can be either a single squirrelmail .pref file, or a directory
* containing multiple .pref files.
*
* $Horde: horde/scripts/import_squirrelmail_file_prefs.php,v 1.3.2.2 2009/01/06 15:26:19 jan Exp $
*
* Copyright 2007-2009 The Horde Project (http://www.horde.org/)
*
* See the enclosed file COPYING for license information (LGPL). If you
* did not receive this file, see http://www.fsf.org/copyleft/lgpl.html.
*
* @author Ben Chavet <ben@horde.org>
*/
@define('AUTH_HANDLER', true);
@define('HORDE_BASE', dirname(__FILE__) . '/..');
// Do CLI checks and environment setup first.
require_once HORDE_BASE . '/lib/core.php';
require_once 'Horde/CLI.php';
// Makre sure no one runs this from the web.
if (!Horde_CLI::runningFromCli()) {
exit("Must be run from the command line\n");
}
// Load the CLI environment - make sure there's no time limit, init some
// variables, etc.
$cli = &Horde_CLI::singleton();
$cli->init();
// Read command line parameters.
if ($argc != 2) {
$cli->message('Too many or too few parameters.', 'cli.error');
$cli->writeln('Usage: import_squirrelmail_prefs.php path-to-squirrelmail-data');
exit;
}
$data = $argv[1];
// Make sure we load Horde base to get the auth config
require_once HORDE_BASE . '/lib/base.php';
require_once 'Horde/Identity.php';
require_once dirname(__FILE__) . '/import_squirrelmail_prefs.php';
// Get list of SquirrelMail pref files
if (is_dir($data)) {
$files = array();
if (!($handle = opendir($data))) {
exit;
}
while (false !== ($file = readdir($handle))) {
if (preg_match('/.pref$/', $file)) {
$files[] = $data . '/' . $file;
}
}
closedir($handle);
} else {
$files = array($data);
}
// Loop through SquirrelMail pref files
$auth = &Auth::singleton($conf['auth']['driver']);
foreach($files as $file) {
if (!($handle = fopen($file, 'r'))) {
continue;
}
// Set current user
$user = substr(basename($file), 0, -5);
$auth->setAuth($user, array());
$cli->message('Importing ' . $user . '\'s preferences');
// Reset user prefs
unset($prefs);
$prefs = &Prefs::factory($conf['prefs']['driver'], 'horde', $user, null, null, false);
unset($prefs_cache);
$prefs_cache = array();
// Read pref file, one line at a time
while (!feof($handle)) {
$buffer = fgets($handle);
if (empty($buffer)) {
continue;
}
/**
* BEGIN: Code from squirrelmail to parse pref (GPL)
*/
$pref = trim($buffer);
$equalsAt = strpos($pref, '=');
if ($equalsAt > 0) {
$key = substr($pref, 0, $equalsAt);
$value = substr($pref, $equalsAt + 1);
/* this is to 'rescue' old-style highlighting rules. */
if (substr($key, 0, 9) == 'highlight') {
$key = 'highlight' . $highlight_num;
$highlight_num ++;
}
if ($value != '') {
$prefs_cache[$key] = $value;
}
}
/**
* END: Code from squirrelmail to parse pref (GPL)
*/
}
fclose($handle);
savePrefs($user, substr($file, 0, -5), $prefs_cache);
}
function getSignature($basename, $number = 'g')
{
$sigfile = $basename . '.si' . $number;
$signature = '';
if (file_exists($sigfile)) {
if ($handle = @fopen($sigfile, 'r')) {
while (!feof($handle)) {
$signature .= fgets($handle, 1024);
}
fclose($handle);
}
}
return $signature;
}
|
