root / drupal7 / sites / all / libraries / iCalcreator-2.22.1 / lib / iCal.vCard.inc.php @ 0f8e34f8
1 |
<?php
|
---|---|
2 |
/*********************************************************************************/
|
3 |
/**
|
4 |
*
|
5 |
* iCalcreator, a PHP rfc2445/rfc5545 solution.
|
6 |
*
|
7 |
* @copyright Copyright (c) 2007-2015 Kjell-Inge Gustafsson, kigkonsult, All rights reserved
|
8 |
* @link http://kigkonsult.se/iCalcreator/index.php
|
9 |
* @license http://kigkonsult.se/downloads/dl.php?f=LGPL
|
10 |
* @package iCalcreator
|
11 |
* @version 2.22
|
12 |
*/
|
13 |
/**
|
14 |
* This library is free software; you can redistribute it and/or
|
15 |
* modify it under the terms of the GNU Lesser General Public
|
16 |
* License as published by the Free Software Foundation; either
|
17 |
* version 2.1 of the License, or (at your option) any later version.
|
18 |
*
|
19 |
* This library is distributed in the hope that it will be useful,
|
20 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
21 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
22 |
* Lesser General Public License for more details.
|
23 |
*
|
24 |
* You should have received a copy of the GNU Lesser General Public
|
25 |
* License along with this library; if not, write to the Free Software
|
26 |
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
27 |
*/
|
28 |
/*********************************************************************************/
|
29 |
/* iCalcreator vCard helper functions */
|
30 |
/*********************************************************************************/
|
31 |
/**
|
32 |
* convert single ATTENDEE, CONTACT or ORGANIZER (in email format) to vCard
|
33 |
* returns vCard/TRUE or if directory (if set) or file write is unvalid, FALSE
|
34 |
*
|
35 |
* @author Kjell-Inge Gustafsson, kigkonsult <ical@kigkonsult.se>
|
36 |
* @since 2.12.2 - 2012-07-11
|
37 |
* @param string $email
|
38 |
* @param string $version vCard version (default 2.1)
|
39 |
* @param string $directory where to save vCards (default FALSE)
|
40 |
* @param string $ext vCard file extension (default 'vcf')
|
41 |
* @uses ICALCREATOR_VERSION
|
42 |
* @return mixed
|
43 |
*/
|
44 |
function iCal2vCard( $email, $version='2.1', $directory=FALSE, $ext='vcf' ) { |
45 |
if( FALSE === ( $pos = strpos( $email, '@' ))) |
46 |
return FALSE; |
47 |
if( $directory ) { |
48 |
if( DIRECTORY_SEPARATOR != substr( $directory, ( 0 - strlen( DIRECTORY_SEPARATOR )))) |
49 |
$directory .= DIRECTORY_SEPARATOR; |
50 |
if( !is_dir( $directory ) || !is_writable( $directory )) |
51 |
return FALSE; |
52 |
} |
53 |
/* prepare vCard */
|
54 |
$email = str_replace( 'MAILTO:', '', $email ); |
55 |
$name = $person = substr( $email, 0, $pos ); |
56 |
if( ctype_upper( $name ) || ctype_lower( $name )) |
57 |
$name = array( $name ); |
58 |
else {
|
59 |
if( FALSE !== ( $pos = strpos( $name, '.' ))) { |
60 |
$name = explode( '.', $name ); |
61 |
foreach( $name as $k => $part ) |
62 |
$name[$k] = ucfirst( $part ); |
63 |
} |
64 |
else { // split camelCase |
65 |
$chars = $name; |
66 |
$name = array( $chars[0] ); |
67 |
$k = 0; |
68 |
$x = 1; |
69 |
while( FALSE !== ( $char = substr( $chars, $x, 1 ))) { |
70 |
if( ctype_upper( $char )) { |
71 |
$k += 1; |
72 |
$name[$k] = ''; |
73 |
} |
74 |
$name[$k] .= $char; |
75 |
$x++;
|
76 |
} |
77 |
} |
78 |
} |
79 |
$nl = "\r\n"; |
80 |
$FN = 'FN:'.implode( ' ', $name ).$nl; |
81 |
$name = array_reverse( $name ); |
82 |
$N = 'N:'.array_shift( $name ); |
83 |
$scCnt = 0; |
84 |
while( NULL != ( $part = array_shift( $name ))) { |
85 |
if(( '4.0' != $version ) || ( 4 > $scCnt )) |
86 |
$scCnt += 1; |
87 |
$N .= ';'.$part; |
88 |
} |
89 |
while(( '4.0' == $version ) && ( 4 > $scCnt )) { |
90 |
$N .= ';'; |
91 |
$scCnt += 1; |
92 |
} |
93 |
$N .= $nl; |
94 |
$EMAIL = 'EMAIL:'.$email.$nl; |
95 |
/* create vCard */
|
96 |
$vCard = 'BEGIN:VCARD'.$nl; |
97 |
$vCard .= "VERSION:$version$nl"; |
98 |
$vCard .= 'PRODID:-//kigkonsult.se '.ICALCREATOR_VERSION."//$nl"; |
99 |
$vCard .= $N; |
100 |
$vCard .= $FN; |
101 |
$vCard .= $EMAIL; |
102 |
$vCard .= 'REV:'.gmdate( 'Ymd\THis\Z' ).$nl; |
103 |
$vCard .= 'END:VCARD'.$nl; |
104 |
/* save each vCard as (unique) single file */
|
105 |
if( $directory ) { |
106 |
$fname = $directory.preg_replace( '/[^a-z0-9.]/i', '', $email ); |
107 |
$cnt = 1; |
108 |
$dbl = ''; |
109 |
while( is_file ( $fname.$dbl.'.'.$ext )) { |
110 |
$cnt += 1; |
111 |
$dbl = "_$cnt"; |
112 |
} |
113 |
if( FALSE === file_put_contents( $fname, $fname.$dbl.'.'.$ext )) |
114 |
return FALSE; |
115 |
return TRUE; |
116 |
} |
117 |
/* return vCard */
|
118 |
else
|
119 |
return $vCard; |
120 |
} |
121 |
/**
|
122 |
* convert ATTENDEEs, CONTACTs and ORGANIZERs (in email format) to vCards
|
123 |
*
|
124 |
* @author Kjell-Inge Gustafsson, kigkonsult <ical@kigkonsult.se>
|
125 |
* @since 2.12.2 - 2012-05-07
|
126 |
* @param object $calendar iCalcreator vcalendar instance reference
|
127 |
* @param string $version vCard version (default 2.1)
|
128 |
* @param string $directory where to save vCards (default FALSE)
|
129 |
* @param string $ext vCard file extension (default 'vcf')
|
130 |
* @uses vcalendar::getProperty()
|
131 |
* @return mixed
|
132 |
*/
|
133 |
function iCal2vCards( & $calendar, $version='2.1', $directory=FALSE, $ext='vcf' ) { |
134 |
$hits = array(); |
135 |
$vCardP = array( 'ATTENDEE', 'CONTACT', 'ORGANIZER' ); |
136 |
foreach( $vCardP as $prop ) { |
137 |
$hits2 = $calendar->getProperty( $prop ); |
138 |
foreach( $hits2 as $propValue => $occCnt ) { |
139 |
if( FALSE === ( $pos = strpos( $propValue, '@' ))) |
140 |
continue;
|
141 |
$propValue = str_replace( 'MAILTO:', '', $propValue ); |
142 |
if( isset( $hits[$propValue] )) |
143 |
$hits[$propValue] += $occCnt; |
144 |
else
|
145 |
$hits[$propValue] = $occCnt; |
146 |
} |
147 |
} |
148 |
if( empty( $hits )) |
149 |
return FALSE; |
150 |
ksort( $hits ); |
151 |
$output = ''; |
152 |
foreach( $hits as $email => $skip ) { |
153 |
$res = iCal2vCard( $email, $version, $directory, $ext ); |
154 |
if( $directory && !$res ) |
155 |
return FALSE; |
156 |
elseif( !$res ) |
157 |
return $res; |
158 |
else
|
159 |
$output .= $res; |
160 |
} |
161 |
if( $directory ) |
162 |
return TRUE; |
163 |
if( !empty( $output )) |
164 |
return $output; |
165 |
return FALSE; |
166 |
} |