2 /***************************************************************************
3 * Copyright (C) 2003-2008 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 require_once('user.func.inc.php');
24 class VCardIterator
implements PlIterator
26 private $user_list = array();
28 private $freetext = null
;
29 private $photos = true
;
31 public function __construct($photos, $freetext)
33 $this->freetext
= $freetext;
34 $this->photos
= $photos;
37 public function add_user($user)
39 $this->user_list
[] = get_user_forlife($user);
43 public function first()
45 return count($this->user_list
) == $this->count
- 1;
48 public function last()
50 return count($this->user_list
) == 0;
53 public function total()
58 public function next()
60 if (!$this->user_list
) {
64 $login = array_shift($this->user_list
);
65 $user = get_user_details($login);
67 if (strlen(trim($user['freetext']))) {
68 $user['freetext'] = pl_entity_decode($user['freetext']);
70 if ($this->freetext
) {
71 if (strlen(trim($user['freetext']))) {
72 $user['freetext'] = $this->freetext
. "\n" . $user['freetext'];
74 $user['freetext'] = $this->freetext
;
82 INNER JOIN virtual_redirect USING(vid)
83 INNER JOIN auth_user_quick ON ( user_id = {?} AND emails_alias_pub = 'public' )
84 WHERE ( redirect={?} OR redirect={?} )
85 AND alias LIKE '%@{$globals->mail->alias_dom}'",
87 $user['forlife'].'@'.$globals->mail
->domain
,
88 $user['forlife'].'@'.$globals->mail
->domain2
);
90 $user['virtualalias'] = $res->fetchOneCell();
91 $user['gpxs_vcardjoin'] = join(',', array_map(array('VCard', 'text_encode'), $user['gpxs_name']));
92 $user['binets_vcardjoin'] = join(',', array_map(array('VCard', 'text_encode'), $user['binets']));
96 "SELECT attach, attachmime
98 INNER JOIN aliases AS a ON (a.id = p.uid AND a.type = 'a_vie')
99 WHERE a.alias = {?}", $login);
100 if ($res->numRows()) {
101 $user['photo'] = $res->fetchOneAssoc();
110 static private $windows = false
;
111 private $iterator = null
;
113 public function __construct($users, $photos = true
, $freetext = null
)
115 $this->iterator
= new VCardIterator($photos, $freetext);
116 VCard
::$windows = (strpos($_SERVER['HTTP_USER_AGENT'], 'Windows') !== false
);
117 if (is_array($users)) {
118 foreach ($users as $user) {
119 $this->iterator
->add_user($user);
122 $this->iterator
->add_user($users);
126 public static function escape($text)
128 if (VCard
::$windows) {
129 return str_replace(';', '\\\\;', $text);
131 return str_replace(array(';', ','), array('\\\\;', '\\\\,'), $text);
135 public static function format_adr($params, &$smarty)
137 // $adr1, $adr2, $adr3, $postcode, $city, $region, $country
138 extract($params['adr']);
140 $adr = trim("$adr\n$adr2");
141 $adr = trim("$adr\n$adr3");
142 return VCard
::text_encode(';;'
143 . (VCard
::$windows ? VCard
::escape($adr) : $adr) . ';'
144 . (VCard
::$windows ? VCard
::escape($city) : $city) . ';'
145 . (VCard
::$windows ? VCard
::escape($region) : $region) . ';'
146 . (VCard
::$windows ? VCard
::escape($postcode) : $postcode) . ';'
147 . (VCard
::$windows ? VCard
::escape($country) : $country), false
);
150 public static function text_encode($text, $escape = true
)
152 if (is_array($text)) {
153 return implode(',', array_map(array('VCard', 'text_encode'), $text));
156 $text = VCard
::escape($text);
158 if (VCard
::$windows) {
159 $text = utf8_decode($text);
161 return str_replace(array("\r\n", "\n", "\r"), '\n', $text);
164 public function do_page(&$page)
166 $page->changeTpl('core/vcard.tpl', NO_SKIN
);
167 $page->register_modifier('vcard_enc', array($this, 'text_encode'));
168 $page->register_function('format_adr', array($this, 'format_adr'));
169 $page->assign_by_ref('users', $this->iterator
);
172 header("Cache-Control: ");
173 header("Content-type: text/x-vcard; charset=UTF-8");
174 header("Content-Transfer-Encoding: 8bit");
178 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: