PageRenderTime 50ms CodeModel.GetById 20ms RepoModel.GetById 0ms app.codeStats 0ms

/modules/Calendar/iCal/iCalendar_rfc2445.php

https://bitbucket.org/yousef_fadila/vtiger
PHP | 807 lines | 596 code | 139 blank | 72 comment | 236 complexity | 2ef67906cc028271dfe1708bbd2e607b MD5 | raw file
Possible License(s): LGPL-2.1, GPL-2.0 
    

  1. <?php // $Id: iCalendar_rfc2445.php,v 1.7 2005/07/21 23:23:48 defacer Exp $

    2. 

  2. 

    3. 

  3. /*

    4. 

  4. 

    5. 

  5.    All names of properties, property parameters, enumerated property

    6. 

  6.    values and property parameter values are case-insensitive. However,

    7. 

  7.    all other property values are case-sensitive, unless otherwise

    8. 

  8.    stated.

    9. 

  9. 

    10. 

  10. */

    11. 

  11. 

    12. 

  12. define('RFC2445_CRLF',               "\r\n");

    13. 

  13. define('RFC2445_WSP',                "\t ");

    14. 

  14. define('RFC2445_WEEKDAYS',           'MO,TU,WE,TH,FR,SA,SU');

    15. 

  15. define('RFC2445_FOLDED_LINE_LENGTH', 75);

    16. 

  16. 

    17. 

  17. define('RFC2445_REQUIRED', 0x01);

    18. 

  18. define('RFC2445_OPTIONAL', 0x02);

    19. 

  19. define('RFC2445_ONCE',     0x04);

    20. 

  20. 

    21. 

  21. define('RFC2445_PROP_FLAGS',       0);

    22. 

  22. define('RFC2445_PROP_TYPE',        1);

    23. 

  23. define('RFC2445_PROP_DEFAULT',     2);

    24. 

  24. 

    25. 

  25. define('RFC2445_XNAME', 'X-');

    26. 

  26. 

    27. 

  27. define('RFC2445_TYPE_BINARY',       0);

    28. 

  28. define('RFC2445_TYPE_BOOLEAN',      1);

    29. 

  29. define('RFC2445_TYPE_CAL_ADDRESS',  2);

    30. 

  30. define('RFC2445_TYPE_DATE',         3);

    31. 

  31. define('RFC2445_TYPE_DATE_TIME',    4);

    32. 

  32. define('RFC2445_TYPE_DURATION',     5);

    33. 

  33. define('RFC2445_TYPE_FLOAT',        6);

    34. 

  34. define('RFC2445_TYPE_INTEGER',      7);

    35. 

  35. define('RFC2445_TYPE_PERIOD',       8);

    36. 

  36. define('RFC2445_TYPE_RECUR',        9);

    37. 

  37. define('RFC2445_TYPE_TEXT',        10);

    38. 

  38. define('RFC2445_TYPE_TIME',        11);

    39. 

  39. define('RFC2445_TYPE_URI',         12); // CAL_ADDRESS === URI

    40. 

  40. define('RFC2445_TYPE_UTC_OFFSET',  13);

    41. 

  41. 

    42. 

  42. 

    43. 

  43. function rfc2445_fold($string) {

    44. 

  44.     if(strlen($string) <= RFC2445_FOLDED_LINE_LENGTH) {

    45. 

  45.         return $string;

    46. 

  46.     }

    47. 

  47. 

    48. 

  48.     $retval = '';

    49. 

  49. 

    50. 

  50.     while(strlen($string) > RFC2445_FOLDED_LINE_LENGTH) {

    51. 

  51.         $retval .= substr($string, 0, RFC2445_FOLDED_LINE_LENGTH - 1) . RFC2445_CRLF . ' ';

    52. 

  52.         $string  = substr($string, RFC2445_FOLDED_LINE_LENGTH - 1);

    53. 

  53.     }

    54. 

  54. 

    55. 

  55.     $retval .= $string;

    56. 

  56.     

    57. 

  57.     return $retval;

    58. 

  58. 

    59. 

  59. }

    60. 

  60. 

    61. 

  61. function rfc2445_unfold($string) {

    62. 

  62.     for($i = 0; $i < strlen(RFC2445_WSP); ++$i) {

    63. 

  63.         $string = str_replace(RFC2445_CRLF.substr(RFC2445_WSP, $i, 1), '', $string);

    64. 

  64.     }

    65. 

  65. 

    66. 

  66.     return $string;

    67. 

  67. }

    68. 

  68. 

    69. 

  69. function rfc2445_is_xname($name) {

    70. 

  70. 

    71. 

  71.     // If it's less than 3 chars, it cannot be legal

    72. 

  72.     if(strlen($name) < 3) {

    73. 

  73.         return false;

    74. 

  74.     }

    75. 

  75. 

    76. 

  76.     // If it contains an illegal char anywhere, reject it

    77. 

  77.     if(strspn($name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-') != strlen($name)) {

    78. 

  78.         return false;

    79. 

  79.     }

    80. 

  80. 

    81. 

  81.     // To be legal, it must still start with "X-"

    82. 

  82.     return substr($name, 0, 2) === 'X-';

    83. 

  83. }

    84. 

  84. 

    85. 

  85. function rfc2445_is_valid_value($value, $type) {

    86. 

  86. 

    87. 

  87.     // This branch should only be taken with xname values

    88. 

  88.     if($type === NULL) {

    89. 

  89.         return true;

    90. 

  90.     }

    91. 

  91. 

    92. 

  92.     switch($type) {

    93. 

  93.         case RFC2445_TYPE_CAL_ADDRESS:

    94. 

  94.         case RFC2445_TYPE_URI:

    95. 

  95.             if(!is_string($value)) {

    96. 

  96.                 return false;

    97. 

  97.             }

    98. 

  98.             $valid_schemes = array('ftp', 'http', 'ldap', 'gopher', 'mailto', 'news', 'nntp', 'telnet', 'wais', 'file', 'prospero');

    99. 

  99. 

    100. 

  100.             $pos = strpos($value, ':');

    101. 

  101.             if(!$pos) {

    102. 

  102.                 return false;

    103. 

  103.             }

    104. 

  104.         

    105. 

  105.             $scheme = strtolower(substr($value, 0, $pos));

    106. 

  106.             $remain = substr($value, $pos + 1);

    107. 

  107.             

    108. 

  108.             if(!in_array($scheme, $valid_schemes)) {

    109. 

  109.                 return false;

    110. 

  110.             }

    111. 

  111.         

    112. 

  112.             if($scheme === 'mailto') {

    113. 

  113.                 $regexp = '/^[a-zA-Z0-9]+[_a-zA-Z0-9\-]*(\.[_a-z0-9\-]+)*@(([0-9a-zA-Z\-]+\.)+[a-zA-Z][0-9a-zA-Z\-]+|([0-9]{1,3}\.){3}[0-9]{1,3})$/';

    114. 

  114.             }

    115. 

  115.             else {

    116. 

  116.                 $regexp = '/^//(.+(:.*)?@)?(([0-9a-zA-Z\-]+\.)+[a-zA-Z][0-9a-zA-Z\-]+|([0-9]{1,3}\.){3}[0-9]{1,3})(:[0-9]{1,5})?(/.*)?$/';

    117. 

  117.             }

    118. 

  118.         

    119. 

  119.             return preg_match($regexp, $remain);

    120. 

  120.         break;

    121. 

  121. 

    122. 

  122.         case RFC2445_TYPE_BINARY:

    123. 

  123.             if(!is_string($value)) {

    124. 

  124.                 return false;

    125. 

  125.             }

    126. 

  126. 

    127. 

  127.             $len = strlen($value);

    128. 

  128.             

    129. 

  129.             if($len % 4 != 0) {

    130. 

  130.                 return false;

    131. 

  131.             }

    132. 

  132. 

    133. 

  133.             for($i = 0; $i < $len; ++$i) {

    134. 

  134.                 $ch = $value{$i};

    135. 

  135.                 if(!($ch >= 'a' && $ch <= 'z' || $ch >= 'A' && $ch <= 'Z' || $ch >= '0' && $ch <= '9' || $ch == '-' || $ch == '+')) {

    136. 

  136.                     if($ch == '=' && $len - $i <= 2) {

    137. 

  137.                         continue;

    138. 

  138.                     }

    139. 

  139.                     return false;

    140. 

  140.                 }

    141. 

  141.             }

    142. 

  142.             return true;

    143. 

  143.         break;

    144. 

  144. 

    145. 

  145.         case RFC2445_TYPE_BOOLEAN:

    146. 

  146.             if(is_bool($value)) {

    147. 

  147.                 return true;

    148. 

  148.             }

    149. 

  149.             if(is_string($value)) {

    150. 

  150.                 $value = strtoupper($value);

    151. 

  151.                 return ($value == 'TRUE' || $value == 'FALSE');

    152. 

  152.             }

    153. 

  153.             return false;

    154. 

  154.         break;

    155. 

  155. 

    156. 

  156.         case RFC2445_TYPE_DATE:

    157. 

  157.             if(is_int($value)) {

    158. 

  158.                 if($value < 0) {

    159. 

  159.                     return false;

    160. 

  160.                 }

    161. 

  161.                 $value = "$value";

    162. 

  162.             }

    163. 

  163.             else if(!is_string($value)) {

    164. 

  164.                 return false;

    165. 

  165.             }

    166. 

  166. 

    167. 

  167.             if(strlen($value) != 8) {

    168. 

  168.                 return false;

    169. 

  169.             }

    170. 

  170. 

    171. 

  171.             $y = intval(substr($value, 0, 4));

    172. 

  172.             $m = intval(substr($value, 4, 2));

    173. 

  173.             $d = intval(substr($value, 6, 2));

    174. 

  174. 

    175. 

  175.             return checkdate($m, $d, $y);

    176. 

  176.         break;

    177. 

  177. 

    178. 

  178.         case RFC2445_TYPE_DATE_TIME:

    179. 

  179.             if(!is_string($value) || strlen($value) < 15) {

    180. 

  180.                 return false;

    181. 

  181.             }

    182. 

  182. 

    183. 

  183.             return($value{8} == 'T' && 

    184. 

  184.                    rfc2445_is_valid_value(substr($value, 0, 8), RFC2445_TYPE_DATE) &&

    185. 

  185.                    rfc2445_is_valid_value(substr($value, 9), RFC2445_TYPE_TIME));

    186. 

  186.         break;

    187. 

  187. 

    188. 

  188.         case RFC2445_TYPE_DURATION:

    189. 

  189.             if(!is_string($value)) {

    190. 

  190.                 return false;

    191. 

  191.             }

    192. 

  192. 

    193. 

  193.             $len = strlen($value);

    194. 

  194. 

    195. 

  195.             if($len < 3) {

    196. 

  196.                 // Minimum conformant length: "P1W"

    197. 

  197.                 return false;

    198. 

  198.             }

    199. 

  199. 

    200. 

  200.             if($value{0} == '+' || $value{0} == '-') {

    201. 

  201.                 $value = substr($value, 1);

    202. 

  202.                 --$len; // Don't forget to update this!

    203. 

  203.             }

    204. 

  204. 

    205. 

  205.             if($value{0} != 'P') {

    206. 

  206.                 return false;

    207. 

  207.             }

    208. 

  208. 

    209. 

  209.             // OK, now break it up

    210. 

  210.             $num = '';

    211. 

  211.             $allowed = 'WDT';

    212. 

  212. 

    213. 

  213.             for($i = 1; $i < $len; ++$i) {

    214. 

  214.                 $ch = $value{$i};

    215. 

  215.                 if($ch >= '0' && $ch <= '9') {

    216. 

  216.                     $num .= $ch;

    217. 

  217.                     continue;

    218. 

  218.                 }

    219. 

  219.                 if(strpos($allowed, $ch) === false) {

    220. 

  220.                     // Non-numeric character which shouldn't be here

    221. 

  221.                     return false;

    222. 

  222.                 }

    223. 

  223.                 if($num === '' && $ch != 'T') {

    224. 

  224.                     // Allowed non-numeric character, but no digits came before it

    225. 

  225.                     return false;

    226. 

  226.                 }

    227. 

  227. 

    228. 

  228.                 // OK, $ch now holds a character which tells us what $num is

    229. 

  229.                 switch($ch) {

    230. 

  230.                     case 'W':

    231. 

  231.                         // If duration in weeks is specified, this must end the string

    232. 

  232.                         return ($i == $len - 1);

    233. 

  233.                     break;

    234. 

  234. 

    235. 

  235.                     case 'D':

    236. 

  236.                         // Days specified, now if anything comes after it must be a 'T'

    237. 

  237.                         $allowed = 'T';

    238. 

  238.                     break;

    239. 

  239. 

    240. 

  240.                     case 'T':

    241. 

  241.                         // Starting to specify time, H M S are now valid delimiters

    242. 

  242.                         $allowed = 'HMS';

    243. 

  243.                     break;

    244. 

  244. 

    245. 

  245.                     case 'H':

    246. 

  246.                         $allowed = 'M';

    247. 

  247.                     break;

    248. 

  248. 

    249. 

  249.                     case 'M':

    250. 

  250.                         $allowed = 'S';

    251. 

  251.                     break;

    252. 

  252. 

    253. 

  253.                     case 'S':

    254. 

  254.                         return ($i == $len - 1);

    255. 

  255.                     break;

    256. 

  256.                 }

    257. 

  257. 

    258. 

  258.                 // If we 're going to continue, reset $num

    259. 

  259.                 $num = '';

    260. 

  260. 

    261. 

  261.             }

    262. 

  262. 

    263. 

  263.             // $num is kept for this reason: if we 're here, we ran out of chars

    264. 

  264.             // therefore $num must be empty for the period to be legal

    265. 

  265.             return ($num === '' && $ch != 'T');

    266. 

  266. 

    267. 

  267.         break;

    268. 

  268.         

    269. 

  269.         case RFC2445_TYPE_FLOAT:

    270. 

  270.             if(is_float($value)) {

    271. 

  271.                 return true;

    272. 

  272.             }

    273. 

  273.             if(!is_string($value) || $value === '') {

    274. 

  274.                 return false;

    275. 

  275.             }

    276. 

  276. 

    277. 

  277.             $dot = false;

    278. 

  278.             $int = false;

    279. 

  279.             $len = strlen($value);

    280. 

  280.             for($i = 0; $i < $len; ++$i) {

    281. 

  281.                 switch($value{$i}) {

    282. 

  282.                     case '-': case '+':

    283. 

  283.                         // A sign can only be seen at position 0 and cannot be the only char

    284. 

  284.                         if($i != 0 || $len == 1) {

    285. 

  285.                             return false;

    286. 

  286.                         }

    287. 

  287.                     break;

    288. 

  288.                     case '.':

    289. 

  289.                         // A second dot is an error

    290. 

  290.                         // Make sure we had at least one int before the dot

    291. 

  291.                         if($dot || !$int) {

    292. 

  292.                             return false;

    293. 

  293.                         }

    294. 

  294.                         $dot = true;

    295. 

  295.                         // Make also sure that the float doesn't end with a dot

    296. 

  296.                         if($i == $len - 1) {

    297. 

  297.                             return false;

    298. 

  298.                         }

    299. 

  299.                     break;

    300. 

  300.                     case '0': case '1': case '2': case '3': case '4':

    301. 

  301.                     case '5': case '6': case '7': case '8': case '9':

    302. 

  302.                         $int = true;

    303. 

  303.                     break;

    304. 

  304.                     default:

    305. 

  305.                         // Any other char is a no-no

    306. 

  306.                         return false;

    307. 

  307.                     break;

    308. 

  308.                 }

    309. 

  309.             }

    310. 

  310.             return true;

    311. 

  311.         break;

    312. 

  312. 

    313. 

  313.         case RFC2445_TYPE_INTEGER:

    314. 

  314.             if(is_int($value)) {

    315. 

  315.                 return true;

    316. 

  316.             }

    317. 

  317.             if(!is_string($value) || $value === '') {

    318. 

  318.                 return false;

    319. 

  319.             }

    320. 

  320. 

    321. 

  321.             if($value{0} == '+' || $value{0} == '-') {

    322. 

  322.                 if(strlen($value) == 1) {

    323. 

  323.                     return false;

    324. 

  324.                 }

    325. 

  325.                 $value = substr($value, 1);

    326. 

  326.             }

    327. 

  327. 

    328. 

  328.             if(strspn($value, '0123456789') != strlen($value)) {

    329. 

  329.                 return false;

    330. 

  330.             }

    331. 

  331. 

    332. 

  332.             return ($value >= -2147483648 && $value <= 2147483647);

    333. 

  333.         break;

    334. 

  334. 

    335. 

  335.         case RFC2445_TYPE_PERIOD:

    336. 

  336.             if(!is_string($value) || empty($value)) {

    337. 

  337.                 return false;

    338. 

  338.             }

    339. 

  339. 

    340. 

  340.             $parts = explode('/', $value);

    341. 

  341.             if(count($parts) != 2) {

    342. 

  342.                 return false;

    343. 

  343.             }

    344. 

  344. 

    345. 

  345.             if(!rfc2445_is_valid_value($parts[0], RFC2445_TYPE_DATE_TIME)) {

    346. 

  346.                 return false;

    347. 

  347.             }

    348. 

  348. 

    349. 

  349.             // Two legal cases for the second part:

    350. 

  350.             if(rfc2445_is_valid_value($parts[1], RFC2445_TYPE_DATE_TIME)) {

    351. 

  351.                 // It has to be after the start time, so

    352. 

  352.                 return ($parts[1] > $parts[0]);

    353. 

  353.             }

    354. 

  354.             else if(rfc2445_is_valid_value($parts[1], RFC2445_TYPE_DURATION)) {

    355. 

  355.                 // The period MUST NOT be negative

    356. 

  356.                 return ($parts[1]{0} != '-');

    357. 

  357.             }

    358. 

  358. 

    359. 

  359.             // It seems to be illegal

    360. 

  360.             return false;

    361. 

  361.         break;

    362. 

  362. 

    363. 

  363.         case RFC2445_TYPE_RECUR:

    364. 

  364.             if(!is_string($value)) {

    365. 

  365.                 return false;

    366. 

  366.             }

    367. 

  367. 

    368. 

  368.             $parts = explode(';', strtoupper($value));

    369. 

  369. 

    370. 

  370.             // First of all, we need at least a FREQ and a UNTIL or COUNT part, so...

    371. 

  371.             if(count($parts) < 2) {

    372. 

  372.                 return false;

    373. 

  373.             }

    374. 

  374. 

    375. 

  375.             // Let's get that into a more easily comprehensible format

    376. 

  376.             $vars = array();

    377. 

  377.             foreach($parts as $part) {

    378. 

  378. 

    379. 

  379.                 $pieces = explode('=', $part);

    380. 

  380.                 // There must be exactly 2 pieces, e.g. FREQ=WEEKLY

    381. 

  381.                 if(count($pieces) != 2) {

    382. 

  382.                     return false;

    383. 

  383.                 }

    384. 

  384. 

    385. 

  385.                 // It's illegal for a variable to appear twice

    386. 

  386.                 if(isset($vars[$pieces[0]])) {

    387. 

  387.                     return false;

    388. 

  388.                 }

    389. 

  389. 

    390. 

  390.                 // Sounds good

    391. 

  391.                 $vars[$pieces[0]] = $pieces[1];

    392. 

  392.             }

    393. 

  393. 

    394. 

  394.             // OK... now to test everything else

    395. 

  395. 

    396. 

  396.             // FREQ must be the first thing appearing

    397. 

  397.             reset($vars);

    398. 

  398.             if(key($vars) != 'FREQ') {

    399. 

  399.                 return false;

    400. 

  400.             }

    401. 

  401. 

    402. 

  402.             // It's illegal to have both UNTIL and COUNT appear

    403. 

  403.             if(isset($vars['UNTIL']) && isset($vars['COUNT'])) {

    404. 

  404.                 return false;

    405. 

  405.             }

    406. 

  406. 

    407. 

  407.             // Special case: BYWEEKNO is only valid for FREQ=YEARLY

    408. 

  408.             if(isset($vars['BYWEEKNO']) && $vars['FREQ'] != 'YEARLY') {

    409. 

  409.                 return false;

    410. 

  410.             }

    411. 

  411. 

    412. 

  412.             // Special case: BYSETPOS is only valid if another BY option is specified

    413. 

  413.             if(isset($vars['BYSETPOS'])) {

    414. 

  414.                 $options = array('BYSECOND', 'BYMINUTE', 'BYHOUR', 'BYDAY', 'BYMONTHDAY', 'BYYEARDAY', 'BYWEEKNO', 'BYMONTH');

    415. 

  415.                 $defined = array_keys($vars);

    416. 

  416.                 $common  = array_intersect($options, $defined);

    417. 

  417.                 if(empty($common)) {

    418. 

  418.                     return false;

    419. 

  419.                 }

    420. 

  420.             }

    421. 

  421. 

    422. 

  422.             // OK, now simply check if each element has a valid value,

    423. 

  423.             // unsetting them on the way. If at the end the array still

    424. 

  424.             // has some elements, they are illegal.

    425. 

  425. 

    426. 

  426.             if($vars['FREQ'] != 'SECONDLY' && $vars['FREQ'] != 'MINUTELY' && $vars['FREQ'] != 'HOURLY' && 

    427. 

  427.                $vars['FREQ'] != 'DAILY'    && $vars['FREQ'] != 'WEEKLY' &&

    428. 

  428.                $vars['FREQ'] != 'MONTHLY'  && $vars['FREQ'] != 'YEARLY') {

    429. 

  429.                 return false;

    430. 

  430.             }

    431. 

  431.             unset($vars['FREQ']);

    432. 

  432. 

    433. 

  433.             // Set this, we may need it later

    434. 

  434.             $weekdays = explode(',', RFC2445_WEEKDAYS);

    435. 

  435. 

    436. 

  436.             if(isset($vars['UNTIL'])) {

    437. 

  437.                 if(rfc2445_is_valid_value($vars['UNTIL'], RFC2445_TYPE_DATE_TIME)) {

    438. 

  438.                     // The time MUST be in UTC format

    439. 

  439.                     if(!(substr($vars['UNTIL'], -1) == 'Z')) {

    440. 

  440.                         return false;

    441. 

  441.                     }

    442. 

  442.                 }

    443. 

  443.                 else if(!rfc2445_is_valid_value($vars['UNTIL'], RFC2445_TYPE_DATE_TIME)) {

    444. 

  444.                     return false;

    445. 

  445.                 }

    446. 

  446.             }

    447. 

  447.             unset($vars['UNTIL']);

    448. 

  448. 

    449. 

  449. 

    450. 

  450.             if(isset($vars['COUNT'])) {

    451. 

  451.                 if(empty($vars['COUNT'])) {

    452. 

  452.                     // This also catches the string '0', which makes no sense

    453. 

  453.                     return false;

    454. 

  454.                 }

    455. 

  455.                 if(strspn($vars['COUNT'], '0123456789') != strlen($vars['COUNT'])) {

    456. 

  456.                     return false;

    457. 

  457.                 }

    458. 

  458.             }

    459. 

  459.             unset($vars['COUNT']);

    460. 

  460. 

    461. 

  461.             

    462. 

  462.             if(isset($vars['INTERVAL'])) {

    463. 

  463.                 if(empty($vars['INTERVAL'])) {

    464. 

  464.                     // This also catches the string '0', which makes no sense

    465. 

  465.                     return false;

    466. 

  466.                 }

    467. 

  467.                 if(strspn($vars['INTERVAL'], '0123456789') != strlen($vars['INTERVAL'])) {

    468. 

  468.                     return false;

    469. 

  469.                 }

    470. 

  470.             }

    471. 

  471.             unset($vars['INTERVAL']);

    472. 

  472. 

    473. 

  473.             

    474. 

  474.             if(isset($vars['BYSECOND'])) {

    475. 

  475.                 if($vars['BYSECOND'] == '') {

    476. 

  476.                     return false;

    477. 

  477.                 }

    478. 

  478.                 // Comma also allowed

    479. 

  479.                 if(strspn($vars['BYSECOND'], '0123456789,') != strlen($vars['BYSECOND'])) {

    480. 

  480.                     return false;

    481. 

  481.                 }

    482. 

  482.                 $secs = explode(',', $vars['BYSECOND']);

    483. 

  483.                 foreach($secs as $sec) {

    484. 

  484.                     if($sec == '' || $sec < 0 || $sec > 59) {

    485. 

  485.                         return false;

    486. 

  486.                     }

    487. 

  487.                 }

    488. 

  488.             }

    489. 

  489.             unset($vars['BYSECOND']);

    490. 

  490. 

    491. 

  491.             

    492. 

  492.             if(isset($vars['BYMINUTE'])) {

    493. 

  493.                 if($vars['BYMINUTE'] == '') {

    494. 

  494.                     return false;

    495. 

  495.                 }

    496. 

  496.                 // Comma also allowed

    497. 

  497.                 if(strspn($vars['BYMINUTE'], '0123456789,') != strlen($vars['BYMINUTE'])) {

    498. 

  498.                     return false;

    499. 

  499.                 }

    500. 

  500.                 $mins = explode(',', $vars['BYMINUTE']);

    501. 

  501.                 foreach($mins as $min) {

    502. 

  502.                     if($min == '' || $min < 0 || $min > 59) {

    503. 

  503.                         return false;

    504. 

  504.                     }

    505. 

  505.                 }

    506. 

  506.             }

    507. 

  507.             unset($vars['BYMINUTE']);

    508. 

  508. 

    509. 

  509.             

    510. 

  510.             if(isset($vars['BYHOUR'])) {

    511. 

  511.                 if($vars['BYHOUR'] == '') {

    512. 

  512.                     return false;

    513. 

  513.                 }

    514. 

  514.                 // Comma also allowed

    515. 

  515.                 if(strspn($vars['BYHOUR'], '0123456789,') != strlen($vars['BYHOUR'])) {

    516. 

  516.                     return false;

    517. 

  517.                 }

    518. 

  518.                 $hours = explode(',', $vars['BYHOUR']);

    519. 

  519.                 foreach($hours as $hour) {

    520. 

  520.                     if($hour == '' || $hour < 0 || $hour > 23) {

    521. 

  521.                         return false;

    522. 

  522.                     }

    523. 

  523.                 }

    524. 

  524.             }

    525. 

  525.             unset($vars['BYHOUR']);

    526. 

  526.             

    527. 

  527. 

    528. 

  528.             if(isset($vars['BYDAY'])) {

    529. 

  529.                 if(empty($vars['BYDAY'])) {

    530. 

  530.                     return false;

    531. 

  531.                 }

    532. 

  532. 

    533. 

  533.                 // First off, split up all values we may have

    534. 

  534.                 $days = explode(',', $vars['BYDAY']);

    535. 

  535.                 

    536. 

  536.                 foreach($days as $day) {

    537. 

  537.                     $daypart = substr($day, -2);

    538. 

  538.                     if(!in_array($daypart, $weekdays)) {

    539. 

  539.                         return false;

    540. 

  540.                     }

    541. 

  541. 

    542. 

  542.                     if(strlen($day) > 2) {

    543. 

  543.                         $intpart = substr($day, 0, strlen($day) - 2);

    544. 

  544.                         if(!rfc2445_is_valid_value($intpart, RFC2445_TYPE_INTEGER)) {

    545. 

  545.                             return false;

    546. 

  546.                         }

    547. 

  547.                         if(intval($intpart) == 0) {

    548. 

  548.                             return false;

    549. 

  549.                         }

    550. 

  550.                     }

    551. 

  551.                 }

    552. 

  552.             }

    553. 

  553.             unset($vars['BYDAY']);

    554. 

  554. 

    555. 

  555. 

    556. 

  556.             if(isset($vars['BYMONTHDAY'])) {

    557. 

  557.                 if(empty($vars['BYMONTHDAY'])) {

    558. 

  558.                     return false;

    559. 

  559.                 }

    560. 

  560.                 $mdays = explode(',', $vars['BYMONTHDAY']);

    561. 

  561.                 foreach($mdays as $mday) {

    562. 

  562.                     if(!rfc2445_is_valid_value($mday, RFC2445_TYPE_INTEGER)) {

    563. 

  563.                         return false;

    564. 

  564.                     }

    565. 

  565.                     $mday = abs(intval($mday));

    566. 

  566.                     if($mday == 0 || $mday > 31) {

    567. 

  567.                         return false;

    568. 

  568.                     }

    569. 

  569.                 }

    570. 

  570.             }

    571. 

  571.             unset($vars['BYMONTHDAY']);

    572. 

  572. 

    573. 

  573. 

    574. 

  574.             if(isset($vars['BYYEARDAY'])) {

    575. 

  575.                 if(empty($vars['BYYEARDAY'])) {

    576. 

  576.                     return false;

    577. 

  577.                 }

    578. 

  578.                 $ydays = explode(',', $vars['BYYEARDAY']);

    579. 

  579.                 foreach($ydays as $yday) {

    580. 

  580.                     if(!rfc2445_is_valid_value($yday, RFC2445_TYPE_INTEGER)) {

    581. 

  581.                         return false;

    582. 

  582.                     }

    583. 

  583.                     $yday = abs(intval($yday));

    584. 

  584.                     if($yday == 0 || $yday > 366) {

    585. 

  585.                         return false;

    586. 

  586.                     }

    587. 

  587.                 }

    588. 

  588.             }

    589. 

  589.             unset($vars['BYYEARDAY']);

    590. 

  590. 

    591. 

  591. 

    592. 

  592.             if(isset($vars['BYWEEKNO'])) {

    593. 

  593.                 if(empty($vars['BYWEEKNO'])) {

    594. 

  594.                     return false;

    595. 

  595.                 }

    596. 

  596.                 $weeknos = explode(',', $vars['BYWEEKNO']);

    597. 

  597.                 foreach($weeknos as $weekno) {

    598. 

  598.                     if(!rfc2445_is_valid_value($weekno, RFC2445_TYPE_INTEGER)) {

    599. 

  599.                         return false;

    600. 

  600.                     }

    601. 

  601.                     $weekno = abs(intval($weekno));

    602. 

  602.                     if($weekno == 0 || $weekno > 53) {

    603. 

  603.                         return false;

    604. 

  604.                     }

    605. 

  605.                 }

    606. 

  606.             }

    607. 

  607.             unset($vars['BYWEEKNO']);

    608. 

  608. 

    609. 

  609. 

    610. 

  610.             if(isset($vars['BYMONTH'])) {

    611. 

  611.                 if(empty($vars['BYMONTH'])) {

    612. 

  612.                     return false;

    613. 

  613.                 }

    614. 

  614.                 // Comma also allowed

    615. 

  615.                 if(strspn($vars['BYMONTH'], '0123456789,') != strlen($vars['BYMONTH'])) {

    616. 

  616.                     return false;

    617. 

  617.                 }

    618. 

  618.                 $months = explode(',', $vars['BYMONTH']);

    619. 

  619.                 foreach($months as $month) {

    620. 

  620.                     if($month == '' || $month < 1 || $month > 12) {

    621. 

  621.                         return false;

    622. 

  622.                     }

    623. 

  623.                 }

    624. 

  624.             }

    625. 

  625.             unset($vars['BYMONTH']);

    626. 

  626. 

    627. 

  627. 

    628. 

  628.             if(isset($vars['BYSETPOS'])) {

    629. 

  629.                 if(empty($vars['BYSETPOS'])) {

    630. 

  630.                     return false;

    631. 

  631.                 }

    632. 

  632.                 $sets = explode(',', $vars['BYSETPOS']);

    633. 

  633.                 foreach($sets as $set) {

    634. 

  634.                     if(!rfc2445_is_valid_value($set, RFC2445_TYPE_INTEGER)) {

    635. 

  635.                         return false;

    636. 

  636.                     }

    637. 

  637.                     $set = abs(intval($set));

    638. 

  638.                     if($set == 0 || $set > 366) {

    639. 

  639.                         return false;

    640. 

  640.                     }

    641. 

  641.                 }

    642. 

  642.             }

    643. 

  643.             unset($vars['BYSETPOS']);

    644. 

  644. 

    645. 

  645. 

    646. 

  646.             if(isset($vars['WKST'])) {

    647. 

  647.                 if(!in_array($vars['WKST'], $weekdays)) {

    648. 

  648.                     return false;

    649. 

  649.                 }

    650. 

  650.             }

    651. 

  651.             unset($vars['WKST']);

    652. 

  652. 

    653. 

  653. 

    654. 

  654.             // Any remaining vars must be x-names

    655. 

  655.             if(empty($vars)) {

    656. 

  656.                 return true;

    657. 

  657.             }

    658. 

  658. 

    659. 

  659.             foreach($vars as $name => $var) {

    660. 

  660.                 if(!rfc2445_is_xname($name)) {

    661. 

  661.                     return false;

    662. 

  662.                 }

    663. 

  663.             }

    664. 

  664. 

    665. 

  665.             // At last, all is OK!

    666. 

  666.             return true;

    667. 

  667. 

    668. 

  668.         break;

    669. 

  669. 

    670. 

  670.         case RFC2445_TYPE_TEXT:

    671. 

  671.             return true;

    672. 

  672.         break;

    673. 

  673. 

    674. 

  674.         case RFC2445_TYPE_TIME:

    675. 

  675.             if(is_int($value)) {

    676. 

  676.                 if($value < 0) {

    677. 

  677.                     return false;

    678. 

  678.                 }

    679. 

  679.                 $value = "$value";

    680. 

  680.             }

    681. 

  681.             else if(!is_string($value)) {

    682. 

  682.                 return false;

    683. 

  683.             }

    684. 

  684. 

    685. 

  685.             if(strlen($value) == 7) {

    686. 

  686.                 if(strtoupper(substr($value, -1)) != 'Z') {

    687. 

  687.                     return false;

    688. 

  688.                 }

    689. 

  689.                 $value = substr($value, 0, 6);

    690. 

  690.             }

    691. 

  691.             if(strlen($value) != 6) {

    692. 

  692.                 return false;

    693. 

  693.             }

    694. 

  694. 

    695. 

  695.             $h = intval(substr($value, 0, 2));

    696. 

  696.             $m = intval(substr($value, 2, 2));

    697. 

  697.             $s = intval(substr($value, 4, 2));

    698. 

  698. 

    699. 

  699.             return ($h <= 23 && $m <= 59 && $s <= 60);

    700. 

  700.         break;

    701. 

  701. 

    702. 

  702.         case RFC2445_TYPE_UTC_OFFSET:

    703. 

  703.             if(is_int($value)) {

    704. 

  704.                 if($value >= 0) {

    705. 

  705.                     $value = "+$value";

    706. 

  706.                 }

    707. 

  707.                 else {

    708. 

  708.                     $value = "$value";

    709. 

  709.                 }

    710. 

  710.             }

    711. 

  711.             else if(!is_string($value)) {

    712. 

  712.                 return false;

    713. 

  713.             }

    714. 

  714. 

    715. 

  715.             if(strlen($value) == 7) {

    716. 

  716.                 $s = intval(substr($value, 5, 2));

    717. 

  717.                 $value = substr($value, 0, 5);

    718. 

  718.             }

    719. 

  719.             if(strlen($value) != 5 || $value == "-0000") {

    720. 

  720.                 return false;

    721. 

  721.             }

    722. 

  722. 

    723. 

  723.             if($value{0} != '+' && $value{0} != '-') {

    724. 

  724.                 return false;

    725. 

  725.             }

    726. 

  726. 

    727. 

  727.             $h = intval(substr($value, 1, 2));

    728. 

  728.             $m = intval(substr($value, 3, 2));

    729. 

  729. 

    730. 

  730.             return ($h <= 23 && $m <= 59 && $s <= 59);

    731. 

  731.         break;

    732. 

  732.     }

    733. 

  733. 

    734. 

  734.     // TODO: remove this assertion

    735. 

  735.     trigger_error('bad code path', E_USER_WARNING);

    736. 

  736.     var_dump($type);

    737. 

  737.     return false;

    738. 

  738. }

    739. 

  739. 

    740. 

  740. function rfc2445_do_value_formatting($value, $type) {

    741. 

  741.     // Note: this does not only do formatting; it also does conversion to string!

    742. 

  742.     switch($type) {

    743. 

  743.         case RFC2445_TYPE_CAL_ADDRESS:

    744. 

  744.         case RFC2445_TYPE_URI:

    745. 

  745.             // Enclose in double quotes

    746. 

  746.             $value = '"'.$value.'"';

    747. 

  747.         break;

    748. 

  748.         case RFC2445_TYPE_TEXT:

    749. 

  749.             // Escape entities

    750. 

  750.             $value = strtr($value, array("\n" => '\\n', '\\' => '\\\\', ',' => '\\,', ';' => '\\;'));

    751. 

  751.         break;

    752. 

  752.     }

    753. 

  753.     return $value;

    754. 

  754. }

    755. 

  755. 

    756. 

  756. function rfc2445_undo_value_formatting($value, $type) {

    757. 

  757.     switch($type) {

    758. 

  758.         case RFC2445_TYPE_CAL_ADDRESS:

    759. 

  759.         case RFC2445_TYPE_URI:

    760. 

  760.             // Trim beginning and end double quote

    761. 

  761.             $value = substr($value, 1, strlen($value) - 2);

    762. 

  762.         break;

    763. 

  763.         case RFC2445_TYPE_TEXT:

    764. 

  764.             // Unescape entities

    765. 

  765.             $value = strtr($value, array('\\n' => "\n", '\\N' => "\n", '\\\\' => '\\', '\\,' => ',', '\\;' => ';'));

    766. 

  766.         break;

    767. 

  767.     }

    768. 

  768.     return $value;

    769. 

  769. }

    770. 

  770. 

    771. 

  771. // This is cheating: GUIDs have nothing to do with RFC 2445

    772. 

  772. 

    773. 

  773. function rfc2445_guid() {

    774. 

  774.     // Implemented as per the Network Working Group draft on UUIDs and GUIDs

    775. 

  775. 

    776. 

  776.     // These two octets get special treatment

    777. 

  777.     $time_hi_and_version       = sprintf('%02x', (1 << 6) + mt_rand(0, 15)); // 0100 plus 4 random bits

    778. 

  778.     $clock_seq_hi_and_reserved = sprintf('%02x', (1 << 7) + mt_rand(0, 63)); // 10 plus 6 random bits

    779. 

  779. 

    780. 

  780.     // Need another 14 random octects

    781. 

  781.     $pool = '';

    782. 

  782.     for($i = 0; $i < 7; ++$i) {

    783. 

  783.         $pool .= sprintf('%04x', mt_rand(0, 65535));

    784. 

  784.     }

    785. 

  785. 

    786. 

  786.     // time_low = 4 octets

    787. 

  787.     $random  = substr($pool, 0, 8).'-';

    788. 

  788. 

    789. 

  789.     // time_mid = 2 octets

    790. 

  790.     $random .= substr($pool, 8, 4).'-';

    791. 

  791. 

    792. 

  792.     // time_high_and_version = 2 octets

    793. 

  793.     $random .= $time_hi_and_version.substr($pool, 12, 2).'-';

    794. 

  794. 

    795. 

  795.     // clock_seq_high_and_reserved = 1 octet

    796. 

  796.     $random .= $clock_seq_hi_and_reserved;

    797. 

  797. 

    798. 

  798.     // clock_seq_low = 1 octet

    799. 

  799.     $random .= substr($pool, 13, 2).'-';

    800. 

  800. 

    801. 

  801.     // node = 6 octets

    802. 

  802.     $random .= substr($pool, 14, 12);

    803. 

  803. 

    804. 

  804.     return $random;

    805. 

  805. }

    806. 

  806. 

    807. 

  807. ?>

    808. 

  808.