1 | <?php |
---|
2 | /**************************************************************************\ |
---|
3 | * eGroupWare API - VCard import/export class * |
---|
4 | * This file written by Miles Lott <milos@groupwhere.org> * |
---|
5 | * Parse vcards->contacts class fields, and vice-versa * |
---|
6 | * Copyright (C) 2001-2004 Miles Lott * |
---|
7 | * ------------------------------------------------------------------------ * |
---|
8 | * This library is free software; you can redistribute it and/or modify it * |
---|
9 | * under the terms of the GNU Lesser General Public License as published by * |
---|
10 | * the Free Software Foundation; either version 2.1 of the License, * |
---|
11 | * or any later version. * |
---|
12 | * This library is distributed in the hope that it will be useful, but * |
---|
13 | * WITHOUT ANY WARRANTY; without even the implied warranty of * |
---|
14 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. * |
---|
15 | * See the GNU Lesser General Public License for more details. * |
---|
16 | * You should have received a copy of the GNU Lesser General Public License * |
---|
17 | * along with this library; if not, write to the Free Software Foundation, * |
---|
18 | * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * |
---|
19 | \**************************************************************************/ |
---|
20 | |
---|
21 | |
---|
22 | class vcard |
---|
23 | { |
---|
24 | var $import = array( |
---|
25 | 'n' => 'n', |
---|
26 | 'sound' => 'sound', |
---|
27 | 'bday' => 'bday', |
---|
28 | 'note' => 'note', |
---|
29 | 'tz' => 'tz', |
---|
30 | 'geo' => 'geo', |
---|
31 | 'url' => 'url', |
---|
32 | 'pubkey' => 'pubkey', |
---|
33 | 'org' => 'org', |
---|
34 | 'title' => 'title', |
---|
35 | 'adr' => 'adr', |
---|
36 | 'label' => 'label', |
---|
37 | 'tel' => 'tel', |
---|
38 | 'email' => 'email' |
---|
39 | ); |
---|
40 | |
---|
41 | var $export = array( |
---|
42 | 'fn' => 'FN', |
---|
43 | 'n_given' => 'N;GIVEN', |
---|
44 | 'n_family' => 'N;FAMILY', |
---|
45 | 'n_middle' => 'N;MIDDLE', |
---|
46 | 'n_prefix' => 'N;PREFIX', |
---|
47 | 'n_suffix' => 'N;SUFFIX', |
---|
48 | 'sound' => 'SOUND', |
---|
49 | 'bday' => 'BDAY', |
---|
50 | 'note' => 'NOTE', |
---|
51 | 'tz' => 'TZ', |
---|
52 | 'geo' => 'GEO', |
---|
53 | 'url' => 'URL', |
---|
54 | 'pubkey' => 'PUBKEY', |
---|
55 | 'org_name' => 'ORG;NAME', |
---|
56 | 'org_unit' => 'ORG;UNIT', |
---|
57 | 'title' => 'TITLE', |
---|
58 | |
---|
59 | 'adr_one_type' => 'ADR;TYPE;WORK', |
---|
60 | 'adr_two_type' => 'ADR;TYPE;HOME', |
---|
61 | 'tel_prefer' => 'TEL;PREFER', |
---|
62 | 'email_type' => 'EMAIL;TYPE;WORK', |
---|
63 | 'email_home_type' => 'EMAIL;TYPE;HOME', |
---|
64 | |
---|
65 | 'adr_one_street' => 'ADR;WORK;STREET', |
---|
66 | 'adr_one_locality' => 'ADR;WORK;LOCALITY', |
---|
67 | 'adr_one_region' => 'ADR;WORK;REGION', |
---|
68 | 'adr_one_postalcode' => 'ADR;WORK;POSTALCODE', |
---|
69 | 'adr_one_countryname' => 'ADR;WORK;COUNTRYNAME', |
---|
70 | 'address2' => 'EXT', |
---|
71 | 'label' => 'LABEL', |
---|
72 | |
---|
73 | 'adr_two_street' => 'ADR;HOME;STREET', |
---|
74 | 'adr_two_locality' => 'ADR;HOME;LOCALITY', |
---|
75 | 'adr_two_region' => 'ADR;HOME;REGION', |
---|
76 | 'adr_two_postalcode' => 'ADR;HOME;POSTALCODE', |
---|
77 | 'adr_two_countryname' => 'ADR;HOME;COUNTRYNAME', |
---|
78 | |
---|
79 | 'tel_work' => 'TEL;WORK', |
---|
80 | 'tel_home' => 'TEL;HOME', |
---|
81 | 'tel_voice' => 'TEL;VOICE', |
---|
82 | 'tel_fax' => 'TEL;FAX', |
---|
83 | 'tel_msg' => 'TEL;MSG', |
---|
84 | 'tel_cell' => 'TEL;CELL', |
---|
85 | 'tel_pager' => 'TEL;PAGER', |
---|
86 | 'tel_bbs' => 'TEL;BBS', |
---|
87 | 'tel_modem' => 'TEL;MODEM', |
---|
88 | 'tel_car' => 'TEL;CAR', |
---|
89 | 'tel_isdn' => 'TEL;ISDN', |
---|
90 | 'tel_video' => 'TEL;VIDEO', |
---|
91 | 'email' => 'EMAIL;WORK', |
---|
92 | 'email_home' => 'EMAIL;HOME' |
---|
93 | ); |
---|
94 | |
---|
95 | var $names = array( |
---|
96 | 'family' => 'family', |
---|
97 | 'given' => 'given', |
---|
98 | 'middle' => 'middle', |
---|
99 | 'prefix' => 'prefix', |
---|
100 | 'suffix' => 'suffix' |
---|
101 | ); |
---|
102 | |
---|
103 | function vcard() |
---|
104 | { |
---|
105 | /* _debug_array($this); */ |
---|
106 | } |
---|
107 | |
---|
108 | /* |
---|
109 | This now takes the upload filename |
---|
110 | and parses using the class string and array processors. |
---|
111 | The return is a contacts class entry, ready for add. |
---|
112 | */ |
---|
113 | function in_file($filename='') |
---|
114 | { |
---|
115 | if(!$filename) |
---|
116 | { |
---|
117 | return array(); |
---|
118 | } |
---|
119 | |
---|
120 | $buffer = array(); |
---|
121 | |
---|
122 | $fp = fopen($filename,'r'); |
---|
123 | while($data = fgets($fp,8000)) |
---|
124 | { |
---|
125 | list($name,$value,$extra) = preg_split('/:/', $data); |
---|
126 | if(substr($value,0,5) == 'http') |
---|
127 | { |
---|
128 | $value = $value . ':'.$extra; |
---|
129 | } |
---|
130 | if($name && $value) |
---|
131 | { |
---|
132 | foreach($this->import as $fname => $fvalue) |
---|
133 | { |
---|
134 | if(strstr(strtolower($name), $this->import[$fname])) |
---|
135 | { |
---|
136 | $value = trim($value); |
---|
137 | $value = str_replace('=0D=0A',"\n",$value); |
---|
138 | $buffer += array($name => $value); |
---|
139 | } |
---|
140 | } |
---|
141 | } |
---|
142 | } |
---|
143 | fclose($fp); |
---|
144 | |
---|
145 | $entry = $this->in($buffer); |
---|
146 | /* _debug_array($entry);exit; */ |
---|
147 | |
---|
148 | return $entry; |
---|
149 | } |
---|
150 | |
---|
151 | /* Try to decode strings that may be base64 encoding, otherwise assume they are QUOTED-PRINTABLE */ |
---|
152 | function decode($string) |
---|
153 | { |
---|
154 | $tmp = base64_decode($string); |
---|
155 | if(base64_encode($tmp) == $string) |
---|
156 | { |
---|
157 | return $tmp; |
---|
158 | } |
---|
159 | else |
---|
160 | { |
---|
161 | return(str_replace('=0D=0A',"\n",$string)); |
---|
162 | } |
---|
163 | } |
---|
164 | |
---|
165 | function encode($string, $type='qp') |
---|
166 | { |
---|
167 | $out = ''; |
---|
168 | switch($type) |
---|
169 | { |
---|
170 | case 'qp': |
---|
171 | $out = str_replace("\r\n",'=0D=0A',$string); |
---|
172 | $out = str_replace("\n",'=0D=0A',$out); |
---|
173 | break; |
---|
174 | case 'base64': |
---|
175 | $out = base64_encode($string); |
---|
176 | } |
---|
177 | return $out; |
---|
178 | } |
---|
179 | |
---|
180 | /* |
---|
181 | This is here to match the old in() function, now called _parse_in(). |
---|
182 | It is called now also by in_file() above. |
---|
183 | It takes a pre-parsed file using the methods in in_file(), returns a clean contacts class array. |
---|
184 | */ |
---|
185 | function in($buffer) |
---|
186 | { |
---|
187 | $buffer = $this->_parse_in($buffer); |
---|
188 | |
---|
189 | $contacts = CreateObject('phpgwapi.contacts'); /* RB 2001/05/08 Lotus Organizer uses/needs extrafields from edit.php */ |
---|
190 | $all_fields = $contacts->stock_contact_fields + array( |
---|
191 | 'ophone' => 'ophone', |
---|
192 | 'address2' => 'address2', |
---|
193 | 'address3' => 'address3' |
---|
194 | ); |
---|
195 | |
---|
196 | foreach($all_fields as $fname => $fvalue) |
---|
197 | { |
---|
198 | if($buffer[$fname]) |
---|
199 | { |
---|
200 | $entry[$fname] = $buffer[$fname]; |
---|
201 | /* echo '<br>'.$fname.' = "'.$entry[$fname].'"'."\n"; */ |
---|
202 | } |
---|
203 | } |
---|
204 | return $entry; |
---|
205 | } |
---|
206 | |
---|
207 | /* |
---|
208 | Pass this an associative array of fieldnames and values |
---|
209 | returns a clean array based on contacts class std fields |
---|
210 | This array can then be passed via $phpgw->contacts->add($ownerid,$buffer) |
---|
211 | */ |
---|
212 | function _parse_in($buffer) |
---|
213 | { |
---|
214 | /* Following is a lot of pain and little magic */ |
---|
215 | settype($buffer,'array'); |
---|
216 | foreach($buffer as $name => $value) |
---|
217 | { |
---|
218 | $field = preg_split('/;/',$name); |
---|
219 | $field[0] = preg_replace('/A\./','',$field[0]); |
---|
220 | $field[0] = preg_replace('/B\./','',$field[0]); |
---|
221 | $field[0] = preg_replace('/C\./','',$field[0]); |
---|
222 | $field[0] = preg_replace('/D\./','',$field[0]); |
---|
223 | $values = preg_split('/;/',$value); |
---|
224 | if($field[1]) |
---|
225 | { |
---|
226 | //echo $field[0]; |
---|
227 | switch($field[0]) |
---|
228 | { |
---|
229 | case 'LABEL': |
---|
230 | $entry['label'] = $this->decode($values[0]); |
---|
231 | break; |
---|
232 | case 'NOTE': |
---|
233 | $entry['note'] = $this->decode($values[0]); |
---|
234 | break; |
---|
235 | case 'ADR': |
---|
236 | switch($field[1]) |
---|
237 | { |
---|
238 | case 'INTL': |
---|
239 | switch($field[2]) |
---|
240 | { |
---|
241 | case 'WORK': |
---|
242 | if(!stristr($buffer['adr_one_type'],$field[1])) |
---|
243 | { |
---|
244 | $entry['adr_one_type'] .= 'intl;'; |
---|
245 | } |
---|
246 | if(!$buffer['adr_one_street']) |
---|
247 | { |
---|
248 | $entry['address2'] = $values[1]; |
---|
249 | $entry['adr_one_street'] = $values[2]; |
---|
250 | $entry['adr_one_locality'] = $values[3]; |
---|
251 | $entry['adr_one_region'] = $values[4]; |
---|
252 | $entry['adr_one_postalcode'] = $values[5]; |
---|
253 | $entry['adr_one_countryname'] = $values[6]; |
---|
254 | } |
---|
255 | break; |
---|
256 | case 'HOME': |
---|
257 | if(!stristr($buffer['adr_two_type'],$field[1])) |
---|
258 | { |
---|
259 | $entry['adr_two_type'] .= 'intl;'; |
---|
260 | } |
---|
261 | if(!$buffer['adr_two_street']) |
---|
262 | { |
---|
263 | $entry['adr_two_street'] = $values[2]; |
---|
264 | $entry['adr_two_locality'] = $values[3]; |
---|
265 | $entry['adr_two_region'] = $values[4]; |
---|
266 | $entry['adr_two_postalcode'] = $values[5]; |
---|
267 | $entry['adr_two_countryname'] = $values[6]; |
---|
268 | } |
---|
269 | break; |
---|
270 | default: |
---|
271 | break; |
---|
272 | } |
---|
273 | break; |
---|
274 | case 'DOM': |
---|
275 | switch($field[2]) |
---|
276 | { |
---|
277 | case 'WORK': |
---|
278 | if(!stristr($buffer['adr_one_type'],$field[1])) |
---|
279 | { |
---|
280 | $entry['adr_one_type'] .= 'dom;'; |
---|
281 | } |
---|
282 | if(!$buffer['adr_one_street']) |
---|
283 | { |
---|
284 | $entry['address2'] = $values[1]; |
---|
285 | $entry['adr_one_street'] = $values[2]; |
---|
286 | $entry['adr_one_locality'] = $values[3]; |
---|
287 | $entry['adr_one_region'] = $values[4]; |
---|
288 | $entry['adr_one_postalcode'] = $values[5]; |
---|
289 | $entry['adr_one_countryname'] = $values[6]; |
---|
290 | } |
---|
291 | break; |
---|
292 | case 'HOME': |
---|
293 | if(!stristr($buffer['adr_two_type'],$field[1])) |
---|
294 | { |
---|
295 | $entry['adr_two_type'] .= 'dom;'; |
---|
296 | } |
---|
297 | if(!$buffer['adr_two_street']) |
---|
298 | { |
---|
299 | $entry['adr_two_street'] = $values[2]; |
---|
300 | $entry['adr_two_locality'] = $values[3]; |
---|
301 | $entry['adr_two_region'] = $values[4]; |
---|
302 | $entry['adr_two_postalcode'] = $values[5]; |
---|
303 | $entry['adr_two_countryname'] = $values[6]; |
---|
304 | } |
---|
305 | break; |
---|
306 | default: |
---|
307 | break; |
---|
308 | } |
---|
309 | break; |
---|
310 | case 'PARCEL': |
---|
311 | switch($field[2]) |
---|
312 | { |
---|
313 | case 'WORK': |
---|
314 | if(!stristr($buffer['adr_one_type'],$field[1])) |
---|
315 | { |
---|
316 | $entry['adr_one_type'] .= 'parcel;'; |
---|
317 | } |
---|
318 | if(!$buffer['adr_one_street']) |
---|
319 | { |
---|
320 | $entry['address2'] = $values[1]; |
---|
321 | $entry['adr_one_street'] = $values[2]; |
---|
322 | $entry['adr_one_locality'] = $values[3]; |
---|
323 | $entry['adr_one_region'] = $values[4]; |
---|
324 | $entry['adr_one_postalcode'] = $values[5]; |
---|
325 | $entry['adr_one_countryname'] = $values[6]; |
---|
326 | } |
---|
327 | break; |
---|
328 | case 'HOME': |
---|
329 | if(!stristr($buffer['adr_two_type'],$field[1])) |
---|
330 | { |
---|
331 | $entry['adr_two_type'] .= 'parcel;'; |
---|
332 | } |
---|
333 | if(!$buffer['adr_two_street']) |
---|
334 | { |
---|
335 | $entry['adr_two_street'] = $values[2]; |
---|
336 | $entry['adr_two_locality'] = $values[3]; |
---|
337 | $entry['adr_two_region'] = $values[4]; |
---|
338 | $entry['adr_two_postalcode'] = $values[5]; |
---|
339 | $entry['adr_two_countryname'] = $values[6]; |
---|
340 | } |
---|
341 | break; |
---|
342 | default: |
---|
343 | break; |
---|
344 | } |
---|
345 | break; |
---|
346 | case 'POSTAL': |
---|
347 | switch($field[2]) |
---|
348 | { |
---|
349 | case 'WORK': |
---|
350 | if(!stristr($buffer['adr_one_type'],$field[1])) |
---|
351 | { |
---|
352 | $entry['adr_one_type'] .= 'postal;'; |
---|
353 | } |
---|
354 | if(!$buffer['adr_one_street']) |
---|
355 | { |
---|
356 | $entry['address2'] = $values[1]; |
---|
357 | $entry['adr_one_street'] = $values[2]; |
---|
358 | $entry['adr_one_locality'] = $values[3]; |
---|
359 | $entry['adr_one_region'] = $values[4]; |
---|
360 | $entry['adr_one_postalcode'] = $values[5]; |
---|
361 | $entry['adr_one_countryname'] = $values[6]; |
---|
362 | } |
---|
363 | break; |
---|
364 | case 'HOME': |
---|
365 | if(!stristr($buffer['adr_two_type'],$field[1])) |
---|
366 | { |
---|
367 | $entry['adr_two_type'] .= 'postal;'; |
---|
368 | } |
---|
369 | if(!$buffer['adr_two_street']) |
---|
370 | { |
---|
371 | $entry['adr_two_street'] = $values[2]; |
---|
372 | $entry['adr_two_locality'] = $values[3]; |
---|
373 | $entry['adr_two_region'] = $values[4]; |
---|
374 | $entry['adr_two_postalcode'] = $values[5]; |
---|
375 | $entry['adr_two_countryname'] = $values[6]; |
---|
376 | } |
---|
377 | break; |
---|
378 | default: |
---|
379 | break; |
---|
380 | } |
---|
381 | break; |
---|
382 | case 'WORK': |
---|
383 | if(!$buffer['adr_one_street']) |
---|
384 | { |
---|
385 | $entry['address2'] = $values[1]; |
---|
386 | $entry['adr_one_street'] = $values[2]; |
---|
387 | $entry['adr_one_locality'] = $values[3]; |
---|
388 | $entry['adr_one_region'] = $values[4]; |
---|
389 | $entry['adr_one_postalcode'] = $values[5]; |
---|
390 | $entry['adr_one_countryname'] = $values[6]; |
---|
391 | } |
---|
392 | break; |
---|
393 | case 'HOME': |
---|
394 | $entry['adr_two_street'] = $values[2]; |
---|
395 | $entry['adr_two_locality'] = $values[3]; |
---|
396 | $entry['adr_two_region'] = $values[4]; |
---|
397 | $entry['adr_two_postalcode'] = $values[5]; |
---|
398 | $entry['adr_two_countryname'] = $values[6]; |
---|
399 | break; |
---|
400 | default: |
---|
401 | if(!$buffer['adr_one_street']) |
---|
402 | { |
---|
403 | $entry['address2'] = $values[1]; |
---|
404 | $entry['adr_one_street'] = $values[2]; |
---|
405 | $entry['adr_one_locality'] = $values[3]; |
---|
406 | $entry['adr_one_region'] = $values[4]; |
---|
407 | $entry['adr_one_postalcode'] = $values[5]; |
---|
408 | $entry['adr_one_countryname'] = $values[6]; |
---|
409 | } |
---|
410 | break; |
---|
411 | } |
---|
412 | break; |
---|
413 | case 'TEL': // RB 2001/05/07 added for Lotus Organizer ueses TEL;{WORK|HOME};{VOICE|FAX}[;PREF] |
---|
414 | if($field[2] == 'FAX' && ($field[1] == 'WORK' || $field[i] == 'HOME')) |
---|
415 | { |
---|
416 | array_shift($field); // --> ignore the WORK or HOME if FAX follows, HOME;FAX and HOME;TEL are maped later |
---|
417 | } |
---|
418 | switch($field[1]) |
---|
419 | { |
---|
420 | case 'PREF': |
---|
421 | //echo $field[2].' is preferred'; |
---|
422 | if($field[2]) |
---|
423 | { |
---|
424 | $buffer['tel_prefer'] .= strtolower($field[2]) . ';'; |
---|
425 | } |
---|
426 | break; |
---|
427 | case 'WORK': // RB don't overwrite TEL;WORK;VOICE (main nr.) with TEL;WORK, TEL;WORK --> tel_isdn |
---|
428 | $entry[$buffer['tel_work'] ? 'tel_isdn' : 'tel_work'] = $values[0]; |
---|
429 | if($field[2] == 'PREF') |
---|
430 | { |
---|
431 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
432 | } |
---|
433 | break; |
---|
434 | case 'HOME': // RB don't overwrite TEL;HOME;VOICE (main nr.) with TEL;HOME, TEL;HOME --> ophone |
---|
435 | $entry[$buffer['tel_home'] ? 'ophone' : 'tel_home' ] = $values[0]; |
---|
436 | if($field[2] == 'PREF') |
---|
437 | { |
---|
438 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
439 | } |
---|
440 | break; |
---|
441 | case 'VOICE': |
---|
442 | $entry['tel_voice'] = $values[0]; |
---|
443 | if($field[2] == 'PREF') |
---|
444 | { |
---|
445 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
446 | } |
---|
447 | break; |
---|
448 | case 'FAX': |
---|
449 | if($entry['tel_fax']) |
---|
450 | { |
---|
451 | // RB don't overwrite TEL;WORK;FAX with TEL;HOME;FAX, TEL;HOME;FAX --> ophone |
---|
452 | $entry['ophone'] = $values[0] . ' Fax'; |
---|
453 | break; |
---|
454 | } |
---|
455 | $entry['tel_fax'] = $values[0]; |
---|
456 | if($field[2] == 'PREF') |
---|
457 | { |
---|
458 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
459 | } |
---|
460 | break; |
---|
461 | case 'MSG': |
---|
462 | $entry['tel_msg'] = $values[0]; |
---|
463 | if($field[2] == 'PREF') |
---|
464 | { |
---|
465 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
466 | } |
---|
467 | break; |
---|
468 | case 'CELL': |
---|
469 | $entry['tel_cell'] = $values[0]; |
---|
470 | if($field[2] == 'PREF') |
---|
471 | { |
---|
472 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
473 | } |
---|
474 | break; |
---|
475 | case 'PAGER': |
---|
476 | $entry['tel_pager'] = $values[0]; |
---|
477 | if($field[2] == 'PREF') |
---|
478 | { |
---|
479 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
480 | } |
---|
481 | break; |
---|
482 | case 'BBS': |
---|
483 | $entry['tel_bbs'] = $values[0]; |
---|
484 | if($field[2] == 'PREF') |
---|
485 | { |
---|
486 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
487 | } |
---|
488 | break; |
---|
489 | case 'MODEM': |
---|
490 | $entry['tel_modem'] = $values[0]; |
---|
491 | if($field[2] == 'PREF') |
---|
492 | { |
---|
493 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
494 | } |
---|
495 | break; |
---|
496 | case 'CAR': |
---|
497 | $entry['tel_car'] = $values[0]; |
---|
498 | if($field[2] == 'PREF') |
---|
499 | { |
---|
500 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
501 | } |
---|
502 | break; |
---|
503 | case 'ISDN': |
---|
504 | $entry['tel_isdn'] = $values[0]; |
---|
505 | if($field[2] == 'PREF') |
---|
506 | { |
---|
507 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
508 | } |
---|
509 | break; |
---|
510 | case 'VIDEO': |
---|
511 | $entry['tel_video'] = $values[0]; |
---|
512 | if($field[2] == 'PREF') |
---|
513 | { |
---|
514 | $entry['tel_prefer'] .= strtolower($field[1]) . ';'; |
---|
515 | } |
---|
516 | break; |
---|
517 | default: |
---|
518 | break; |
---|
519 | } |
---|
520 | break; |
---|
521 | case 'EMAIL': |
---|
522 | switch($field[1]) |
---|
523 | { |
---|
524 | case 'WORK': |
---|
525 | $entry['email'] = $values[0]; |
---|
526 | $entry['email_type'] = $field[2]; |
---|
527 | break; |
---|
528 | case 'HOME': |
---|
529 | $entry['email_home'] = $values[0]; |
---|
530 | $entry['email_home_type'] = $field[2]; |
---|
531 | break; |
---|
532 | default: |
---|
533 | if($buffer['email']) |
---|
534 | { |
---|
535 | $entry['email_type'] = $field[2]; |
---|
536 | } |
---|
537 | elseif(!$buffer['email']) |
---|
538 | { |
---|
539 | $entry['email'] = $values[0]; |
---|
540 | $entry['email_type'] = $field[1]; |
---|
541 | } |
---|
542 | break; |
---|
543 | } |
---|
544 | break; |
---|
545 | case 'URL': // RB 2001/05/08 Lotus Organizer uses URL;WORK and URL;HOME (URL;HOME droped if both) |
---|
546 | $entry['url'] = $values[0]; |
---|
547 | break; |
---|
548 | default: |
---|
549 | break; |
---|
550 | } |
---|
551 | } |
---|
552 | else |
---|
553 | { |
---|
554 | switch($field[0]) |
---|
555 | { |
---|
556 | case 'N': |
---|
557 | $j=0; |
---|
558 | foreach($this->names as $myname => $myval) |
---|
559 | { |
---|
560 | $namel = 'n_' . $myname; |
---|
561 | $entry[$namel] = $values[$j]; |
---|
562 | $j++; |
---|
563 | } |
---|
564 | break; |
---|
565 | case 'FN': |
---|
566 | $entry['fn'] = $values[0]; |
---|
567 | break; |
---|
568 | case 'TITLE': |
---|
569 | $entry['title'] = $values[0]; |
---|
570 | break; |
---|
571 | case 'TZ': |
---|
572 | $entry['tz'] = $values[0]; |
---|
573 | break; |
---|
574 | case 'GEO': |
---|
575 | $entry['geo'] = $values[0]; |
---|
576 | break; |
---|
577 | case 'URL': |
---|
578 | $entry['url'] = $values[0]; |
---|
579 | break; |
---|
580 | case 'NOTE': |
---|
581 | $entry['note'] = $this->decode($values[0]); |
---|
582 | break; |
---|
583 | case 'KEY': |
---|
584 | $entry['key'] = $this->decode($values[0]); |
---|
585 | break; |
---|
586 | case 'LABEL': |
---|
587 | $entry['label'] = $this->decode($values[0]); |
---|
588 | break; |
---|
589 | case 'BDAY': #1969-12-31 |
---|
590 | if(strlen($values[0]) == 8) |
---|
591 | { |
---|
592 | $entry['bday'] = substr($values[0],4,2) . '/' . substr($values[0],6,2) . '/' . substr($values[0],0,4); |
---|
593 | } |
---|
594 | else |
---|
595 | { |
---|
596 | $tmp = preg_split('/-/',$values[0]); |
---|
597 | if($tmp[0]) |
---|
598 | { |
---|
599 | $entry['bday'] = $tmp[1] . '/' . $tmp[2] . '/' . $tmp[0]; |
---|
600 | } |
---|
601 | } |
---|
602 | break; |
---|
603 | case 'ORG': // RB 2001/05/07 added for Lotus Organizer: ORG:Company;Department |
---|
604 | $entry['org_name'] = $values[0]; |
---|
605 | $entry['org_unit'] = $values[1]; |
---|
606 | break; |
---|
607 | } |
---|
608 | } |
---|
609 | } |
---|
610 | $entry['tel_prefer'] = substr($buffer['tel_prefer'],0,-1); |
---|
611 | $entry['adr_one_type'] = substr($buffer['adr_one_type'],0,-1); |
---|
612 | $entry['adr_two_type'] = substr($buffer['adr_two_type'],0,-1); |
---|
613 | |
---|
614 | if(count($street = preg_split('/\r*\n/',$buffer['adr_one_street'],3)) > 1) |
---|
615 | { |
---|
616 | $entry['adr_one_street'] = $street[0]; // RB 2001/05/08 added for Lotus Organizer to split multiline adresses |
---|
617 | $entry['address2'] = $street[1]; |
---|
618 | $entry['address3'] = $street[2]; |
---|
619 | } |
---|
620 | |
---|
621 | return $entry; |
---|
622 | } |
---|
623 | |
---|
624 | // Takes an array of contacts class fields/values, turns it into a vcard string: |
---|
625 | // |
---|
626 | // for($i=0;$i<count($buffer);$i++) |
---|
627 | // { |
---|
628 | // $vcards .= $this->vcard->out($buffer[$i]); |
---|
629 | // } |
---|
630 | // |
---|
631 | function out($buffer) |
---|
632 | { |
---|
633 | $entry = ''; |
---|
634 | $header = 'BEGIN:VCARD' . "\n"; |
---|
635 | $header .= 'VERSION:2.1' . "\n"; |
---|
636 | $header .= 'X-EGROUPWARE-FILE-AS:eGroupWare.org' . "\n"; |
---|
637 | |
---|
638 | foreach($this->export as $name => $value) |
---|
639 | { |
---|
640 | if(!empty($buffer[$value])) |
---|
641 | { |
---|
642 | $mult = explode(';',$value); |
---|
643 | if(!$mult[1]) |
---|
644 | { // Normal |
---|
645 | if(strstr($buffer[$value],"\r\n") || strstr($buffer[$value],"\n")) |
---|
646 | { |
---|
647 | $buffer[$value] = $this->encode($buffer[$value]); |
---|
648 | $entry .= $value . ';QUOTED-PRINTABLE:' . $buffer[$value]."\n"; |
---|
649 | } |
---|
650 | elseif($value == 'BDAY') |
---|
651 | { |
---|
652 | $tmp = preg_split('/\//',$buffer[$value]); # 12/31/1969 -> 1969-12-31 |
---|
653 | if($tmp[0]) |
---|
654 | { |
---|
655 | if(strlen($tmp[0]) == 1) { $tmp[0] = '0'.$tmp[0]; } |
---|
656 | if(strlen($tmp[1]) == 1) { $tmp[1] = '0'.$tmp[1]; } |
---|
657 | $entry .= 'BDAY:' . $tmp[2] . '-' . $tmp[0] . '-' . $tmp[1] . "\n"; |
---|
658 | } |
---|
659 | } |
---|
660 | else |
---|
661 | { |
---|
662 | $entry .= $value . ':' . $buffer[$value] . "\n"; |
---|
663 | } |
---|
664 | } |
---|
665 | else |
---|
666 | { |
---|
667 | switch($mult[0]) |
---|
668 | { |
---|
669 | case 'N': |
---|
670 | switch($mult[1]) |
---|
671 | { |
---|
672 | case 'PREFIX': |
---|
673 | $prefix = ';' . $buffer[$value]; |
---|
674 | break; |
---|
675 | case 'GIVEN': |
---|
676 | $firstname = ';' . $buffer[$value]; |
---|
677 | break; |
---|
678 | case 'MIDDLE': |
---|
679 | $middle = ';' . $buffer[$value]; |
---|
680 | break; |
---|
681 | case 'FAMILY': |
---|
682 | $lastname = $buffer[$value]; |
---|
683 | break; |
---|
684 | case 'SUFFIX': |
---|
685 | $suffix = ';' . $buffer[$value]; |
---|
686 | break; |
---|
687 | } |
---|
688 | break; |
---|
689 | case 'ORG': |
---|
690 | switch($mult[1]) |
---|
691 | { |
---|
692 | case 'NAME': |
---|
693 | $org_name = $buffer[$value]; |
---|
694 | break; |
---|
695 | case 'UNIT': |
---|
696 | $org_unit = ';' . $buffer[$value]; |
---|
697 | break; |
---|
698 | } |
---|
699 | break; |
---|
700 | case 'ADR': |
---|
701 | switch($mult[1]) |
---|
702 | { |
---|
703 | case 'TYPE': |
---|
704 | $types = explode(';',$buffer[$value]); |
---|
705 | if($types[1]) |
---|
706 | { |
---|
707 | while($type = each($types)) |
---|
708 | { |
---|
709 | $typei[$i][$mult[2]] .= ';' . strtoupper($type[1]); |
---|
710 | } |
---|
711 | } |
---|
712 | elseif($types[0]) |
---|
713 | { |
---|
714 | $typei[$i][$mult[2]] .= ';' . strtoupper($types[0]); |
---|
715 | } |
---|
716 | else |
---|
717 | { |
---|
718 | $typei[$i][$mult[2]] .= ';' . strtoupper($buffer[$value]); |
---|
719 | } |
---|
720 | //echo "TYPE=".$typei[$i][$mult[2]]; |
---|
721 | break; |
---|
722 | case 'WORK': |
---|
723 | $workaddr .= $buffer[$value] . ';'; |
---|
724 | $workattr = $mult[0] . ';' . $mult[1] . $typei[$i][$mult[1]]; |
---|
725 | break; |
---|
726 | case 'HOME': |
---|
727 | $homeaddr .= $buffer[$value] . ';'; |
---|
728 | $homeattr = $mult[0] . ';' . $mult[1] . $typei[$i][$mult[1]]; |
---|
729 | break; |
---|
730 | default: |
---|
731 | break; |
---|
732 | } |
---|
733 | break; |
---|
734 | case 'TEL': |
---|
735 | switch($mult[1]) |
---|
736 | { |
---|
737 | case 'PREFER': |
---|
738 | $prefer = explode(';',$buffer[$value]); |
---|
739 | if($prefer[1]) |
---|
740 | { |
---|
741 | while($pref = strtoupper(each($prefer))) |
---|
742 | { |
---|
743 | $prefi[$i][$pref] = ';PREF'; |
---|
744 | } |
---|
745 | //echo 'PREF1'; |
---|
746 | } |
---|
747 | elseif($prefer[0]) |
---|
748 | { |
---|
749 | $prefi[$i][strtoupper($prefer[0])] = ';PREF'; |
---|
750 | //echo 'PREF='.strtoupper($prefer[0]); |
---|
751 | } |
---|
752 | elseif($buffer[$value]) |
---|
753 | { |
---|
754 | $prefi[$i][$buffer[$value]] = ';PREF'; |
---|
755 | //echo 'PREF3'; |
---|
756 | } |
---|
757 | break; |
---|
758 | case 'WORK': |
---|
759 | // Wow, this is fun! |
---|
760 | $entry .= 'A.' . $mult[0] . ';' . $mult[1] . $prefi[$i][$mult[1]] . ':' . $buffer[$value] . "\n"; |
---|
761 | break; |
---|
762 | case 'HOME': |
---|
763 | $entry .= 'B.' . $mult[0] . ';' . $mult[1] . $prefi[$i][$mult[1]] . ':' . $buffer[$value] . "\n"; |
---|
764 | break; |
---|
765 | default: |
---|
766 | $entry .= $mult[0] . ';' . $mult[1] . $prefi[$i][$mult[1]] . ':' . $buffer[$value] . "\n"; |
---|
767 | break; |
---|
768 | } |
---|
769 | break; |
---|
770 | case 'EMAIL': |
---|
771 | switch($mult[1]) |
---|
772 | { |
---|
773 | case 'TYPE': |
---|
774 | if($mult[2] == 'WORK') { $emailtype = ';' . $buffer[$value]; } |
---|
775 | if($mult[2] == 'HOME') { $hemailtype = ';' . $buffer[$value]; } |
---|
776 | break; |
---|
777 | case 'WORK': |
---|
778 | $newval = 'A.'.$value; |
---|
779 | $entry .= $newval . $emailtype . ':' . $buffer[$value] . "\n"; |
---|
780 | break; |
---|
781 | case 'HOME': |
---|
782 | $newval = 'B.' . $value; |
---|
783 | $entry .= $newval . $hemailtype . ':' . $buffer[$value] . "\n"; |
---|
784 | break; |
---|
785 | default: |
---|
786 | break; |
---|
787 | } |
---|
788 | break; |
---|
789 | default: |
---|
790 | break; |
---|
791 | } //end switch($mult[0]) |
---|
792 | } //end else |
---|
793 | } //end if(!empty) |
---|
794 | } //end while |
---|
795 | |
---|
796 | if($lastname && $firstname) |
---|
797 | { |
---|
798 | $entries .= $header; |
---|
799 | $entries .= 'N:' . $lastname . $firstname . $middle . $prefix . $suffix . "\n"; |
---|
800 | $entries .= $entry; |
---|
801 | |
---|
802 | if(!$buffer['FN']) |
---|
803 | { |
---|
804 | if($lastname || $firstname) |
---|
805 | { |
---|
806 | $entries .= 'FN:' . substr($firstname,1) . ' ' . $lastname . "\n"; |
---|
807 | } |
---|
808 | } |
---|
809 | if($org_name || $org_unit) |
---|
810 | { |
---|
811 | $entries .= 'ORG:' . $org_name . $org_unit . "\n"; |
---|
812 | } |
---|
813 | |
---|
814 | $workattr = str_replace('ADR;','',$workattr); |
---|
815 | $homeattr = str_replace('ADR;','',$homeattr); |
---|
816 | if(!$buffer['EXT']) { $buffer['EXT'] = ';'; } |
---|
817 | if($workaddr) |
---|
818 | { |
---|
819 | $work = 'A.ADR;' . $workattr . ':;' . $buffer['EXT'] . substr($workaddr,0,-1) . "\n"; |
---|
820 | if(!$buffer['LABEL']) |
---|
821 | { |
---|
822 | $wlabel = substr($workaddr,0,-1); |
---|
823 | $wlabel = str_replace(';','=0D=0A',$wlabel); |
---|
824 | //$wlabel = str_replace('(',',',$wlabel); |
---|
825 | //$wlabel = str_replace(')',',',$wlabel); |
---|
826 | $wlabel = 'LABEL;WORK;QUOTED-PRINTABLE:' . $wlabel . "\n"; |
---|
827 | } |
---|
828 | } |
---|
829 | if($homeaddr) |
---|
830 | { |
---|
831 | $home = 'B.ADR;'.$homeattr.':;;'.substr($homeaddr,0,-1)."\n"; |
---|
832 | $hlabel = substr($homeaddr,0,-1); |
---|
833 | $hlabel = str_replace(';','=0D=0A',$hlabel); |
---|
834 | //$hlabel = str_replace('(',',',$hlabel); |
---|
835 | //$hlabel = str_replace(')',',',$hlabel); |
---|
836 | $hlabel = 'LABEL;HOME;QUOTED-PRINTABLE:' . $hlabel . "\n"; |
---|
837 | } |
---|
838 | $entries = str_replace('PUBKEY','KEY',$entries); |
---|
839 | $entries .= $work . $home . $wlabel . $hlabel . 'END:VCARD' . "\n"; |
---|
840 | $entries .= "\n"; |
---|
841 | |
---|
842 | $buffer = $entries; |
---|
843 | return $buffer; |
---|
844 | } |
---|
845 | else |
---|
846 | { |
---|
847 | return; |
---|
848 | } |
---|
849 | } //end function |
---|
850 | } //end class |
---|
851 | ?> |
---|