git.datanom.net - webcal.git/blob - caldav/caldavresource.class.php

1 <?php

3 /* $Id$ */

4 final class VTYPE {

5 const VEVENT = 1;

6 const VTODO = 2;

7 const VJOURNAL = 3;

8 const VFREEBUSY = 4;

9 const VTIMEZONE = 5;

10 const VALARM = 6;

11 private $value;

         public function __construct($value) {

14 switch ($value) {

                 case 'VEVENT': $this->value = self::VEVENT; break;

                 case 'VTODO': $this->value = self::VTODO; break;

                 case 'VJOURNAL': $this->value = self::VJOURNAL; break;

                 case 'VFREEBUSY': $this->value = self::VFREEBUSY; break;

                 case 'VTIMEZONE': $this->value = self::VTIMEZONE; break;

                 case 'VALARM': $this->value = self::VALARM; break;

21 case self::VEVENT:

22 case self::VTODO:

23 case self::VJOURNAL:

24 case self::VFREEBUSY:

25 case self::VTIMEZONE:

                 case self::VALARM: $this->value = $value; break;

                 default: throw new Exception ("$value: Invalid VTYPE");

28 }

29 }

31 private function __clone() {}

33 public function ordinal() {

34 return $this->value;

35 }

37 public function __toString() {

             switch ($this->value) {

                 case self::VEVENT: return 'VEVENT'; break;

                 case self::VTODO: return 'VTODO'; break;

                 case self::VJOURNAL: return 'VJOURNAL'; break;

                 case self::VFREEBUSY: return 'VFREEBUSY'; break;

                 case self::VTIMEZONE: return 'VTIMEZONE'; break;

                 case self::VALARM: return 'VALARM'; break;

45 }

46 }

48 }

50 abstract class CaldavRessource

51 implements ArrayAccess, IteratorAggregate {

53 private $client;

         function __construct($url, $uid = '', $pwd = '', $cal = '') {

             if (empty($url))

                 throw new Exception("Missing URL");

             $this->client = new CalDAVClient($url, $uid, $pwd, $cal);

59 }

61 /**

62 * abstract functions to be implemented by sub classes

63 */

         abstract function update($url, $etag = NULL);

         abstract function newComponent($c_type);

         abstract function getComponents($start, $end);

         abstract function delete($url, $etag = NULL);

         protected function callServer($method, $param = array()) {

70 $error = TRUE;

71 $msg = "Unknown error";

             if (! is_array($param))

                 throw new Exception("Parameters must be inclosed in an array");

             switch (strtolower($method)) {

76 case 'getevents':

                     if (count($param) != 2) {

78 $error = TRUE;

79 $msg = "Expected 2 parameters";

80 break;

81 }

                     if ($this->isDateTime($param[0]) &&

                         $this->isDateTime($param[1])) {

                         $res = $this->client->GetEvents($param[0], $param[1]);

85 $error = FALSE;

86 }

87 else {

88 $msg = "[${param[0]},${param[1]}]: Invalid DateTime";

89 $error = TRUE;

90 }

91 break;

92 case 'getbyuid':

                     if (count($param) != 1) {

94 $error = TRUE;

95 $msg = "Expected 1 parameter";

96 break;

97 }

                     $res = $this->client->GetEntryByUid($param[0]);

99 $error = FALSE;

100 break;

101 case 'put':

                         if (count($param) < 2 || count($param) > 3) {

103 $error = TRUE;

104 $msg = "Syntax: URL, CalDAV_resource[, ETag]";

105 break;

106 }

                                         if (count($param) == 2)

                                                 $res = $this->client->DoPUTRequest($param[0], $param[1]);

109 else

                                                 $res = $this->client->DoPUTRequest($param[0], $param[1], $param[2]);

111 $error = FALSE;

112 break;

113 case 'delete':

                         if (count($param) < 1 || count($param) > 2) {

115 $error = TRUE;

116 $msg = "Syntax: URL[, ETag]";

117 break;

118 }

                                         if (count($param) == 1)

                                                 $res = $this->client->DoDELETERequest($param[0]);

121 else

                                                 $res = $this->client->DoDELETERequest($param[0], $param[1]);

123 $error = FALSE;

124 break;

125 default:

                     throw new Exception("$method: Unknown method");

127 }

128 if ($error)

                 throw new Exception($msg);

130 else

131 return $res;

132 }

133

         static function isDateTime($var) {

             return (preg_match("/^([0-9]{8})T([0-9]{6})Z?$/", $var) > 0);

136 }

137

138 /**

139 * Returned date-time will always be in UTC

140 */

         static function timestamp2ICal($ts, $localtime = TRUE) {

             $ts = (int) $ts;

             if ($ts < 0)

                 throw new Exception("$ts: invalid timestamp");

145 if ($localtime) {

                 $date = date('Ymd', $ts);

                 $time = date('His', $ts);

                 $res = sprintf("%sT%s", $date, $time);

149 }

150 else {

                 $date = gmdate('Ymd', $ts);

                 $time = gmdate('His', $ts);

                 $res = sprintf("%sT%sZ", $date, $time);

154 }

155 return $res;

156 }

157

         static function iCal2Timestamp($ical) {

             if (! self::isDateTime($ical)) {

160 // test for badly formed all-day event

161 //print "$ical";

                 $res = preg_match("/^([0-9]{4})([0-9]{2})([0-9]{2})$/",

163 $ical, $parts);

                 if ($res == 0)

                     throw new Exception("$ical: invalid CalDAV Date-Time");

166 else {

                     $timepart = array('00', '00', '00');

                     $parts = array_merge($parts, $timepart);

169 }

170 }

171 else {

172 $date = "([0-9]{4})([0-9]{2})([0-9]{2})";

173 $time = "([0-9]{2})([0-9]{2})([0-9]{2})";

                 preg_match("/^${date}T${time}(Z?)$/", $ical, $parts);

175 }

             if (count($parts) == 8 && ! empty($parts[7]))

                 return gmmktime($parts[4], $parts[5], $parts[6],

                     $parts[2], $parts[3], $parts[1]);

179 else

                 return mktime($parts[4], $parts[5], $parts[6],

                     $parts[2], $parts[3], $parts[1]);

182 }

183

         private static function down_hour($date) {

185 //print "$date ";

             if (! self::isDateTime($date)) {

187 // test for badly formed all-day event

                 $res = preg_match("/^([0-9]{4})([0-9]{2})([0-9]{2})$/",

189 $date, $parts);

                 if ($res == 0)

                     throw new Exception("$date: invalid CalDAV Date-Time");

192 else {

193 array_shift($parts);

                     $timepart = array('T', '00', '00', '00');

                     $parts = array_merge($parts, $timepart);

                     return implode('', $parts);

197 }

198 }

199 else {

                 $a = explode('T', $date);

                 $a[1] = substr_replace($a[1], '0000', 2);

                 return $a[0].'T'.$a[1];

203 }

204 }

205

         static function fix_allday_event(&$date_a, &$date_b) {

207 //print "$date_a : $date_b ";

             if ($date_a == $date_b) {

                 if (! self::isDateTime($date_a) && ! self::isDateTime($date_b)) {

                     $res1 = preg_match("/^([0-9]{4})([0-9]{2})([0-9]{2})$/",

211 $date_a);

                     $res2 = preg_match("/^([0-9]{4})([0-9]{2})([0-9]{2})$/",

213 $date_b);

                     if ($res1 == 0 || $res2 == 0)

                         throw new Exception("$date_a, $date_b: invalid CalDAV Date-Time");

216 else {

217 $date_a .= "T000000";

218 $date_b .= "T235959";

219 }

220 }

221 else {

222 preg_match("/^([0-9]{4}[0-9]{2}[0-9]{2})T([0-9]{6})$/",

223 $date_a, $part_a);

224 preg_match("/^([0-9]{4}[0-9]{2}[0-9]{2})T([0-9]{6})$/",

225 $date_b, $part_b);

                     $date_a = $part_a[1]."T000000";

                     $date_b = $part_b[1]."T235959";

228 //print "$date_a : $date_b ";

229 }

230 //print "$date_a : $date_b ";

231 }

232 }

233

         static function datecmp($date_a, $date_b) {

             $date_a = self::iCal2Timestamp($date_a);

             $date_b = self::iCal2Timestamp(self::down_hour($date_b));

             if ($date_a < $date_b)

238 $res = -1;

             else if ($date_a > $date_b)

240 $res = 1;

241 else

242 $res = 0;

243 return $res;

244 }

245

         private static function intcmpstr($a_str, $b_str) {

             $a = (int) $a_str;

             $b = (int) $b_str;

249 //print "$a:$b ";

             if ($a > $b)

251 return 1;

             else if ($a < $b)

253 return -1;

254 else

255 return 0;

256 }

257

         static function cmpdate($date_a, $date_b) {

             $datepart = explode('T', $date_a);

             $d_a = $datepart[0];

             $datepart = explode('T', $date_b);

             $d_b = $datepart[0];

             $y_cmp = self::intcmpstr(substr($d_a, 0, 4), substr($d_b, 0, 4));

             if ($y_cmp == 0) {

                 $m_cmp = self::intcmpstr(substr($d_a, 4, 2), substr($d_b, 4, 2));

                 if ($m_cmp == 0) {

                     return self::intcmpstr(substr($d_a, 6, 2), substr($d_b, 6, 2));

268 }

269 return $m_cmp;

270 }

271 return $y_cmp;

272 }

273

         static function cmptime($time_a, $time_b) {

             $timepart = explode('T', $time_a);

             $t_a = $timepart[1];

             $timepart = explode('T', $time_b);

             $t_b = $timepart[1];

279 //print "$t_a:$t_b ";

             $h_cmp = self::intcmpstr(substr($t_a, 0, 2), substr($t_b, 0, 2));

             if ($h_cmp == 0) {

                 $m_cmp = self::intcmpstr(substr($t_a, 2, 2), substr($t_b, 2, 2));

                 if ($m_cmp == 0) {

                     return self::intcmpstr(substr($t_a, 4, 2), substr($t_b, 4, 2));

285 }

286 return $m_cmp;

287 }

288 return $h_cmp;

289 }

290

         static function allDayEvent($time_a, $time_b) {

292 //echo $time_a.':'.$time_b.' ';

             $a = explode('T', $time_a);

             if (count($a) < 2)

                 array_push($a, '0000');

             $b = explode('T', $time_b);

             if (count($b) < 2)

                 array_push($b, '0000');

             $t = strtotime($time_b) - 3600;

             $t = date("Ymd\THm", $t);

             return (self::cmpdate($time_a, $t) == 0 &&

                     $a[1] == '0000' && $b[1] == '0000');

303 }

304 }