PageRenderTime 59ms CodeModel.GetById 25ms RepoModel.GetById 0ms app.codeStats 1ms

/lib/bennu/iCalendar_rfc2445.php

https://bitbucket.org/ceu/moodle_demo
PHP | 800 lines | 585 code | 135 blank | 80 comment | 235 complexity | 2d7d4c2c0f85c373c957baa13341c6f5 MD5 | raw file
Possible License(s): BSD-3-Clause, LGPL-2.0, LGPL-2.1 
    

  1. <?php // $Id: iCalendar_rfc2445.php,v 1.2.10.3 2009/11/19 10:16:53 skodak Exp $

    2. 

  2. 

    3. 

  3. /**

    4. 

  4.  *  BENNU - PHP iCalendar library

    5. 

  5.  *  (c) 2005-2006 Ioannis Papaioannou (pj@moodle.org). All rights reserved.

    6. 

  6.  *

    7. 

  7.  *  Released under the LGPL.

    8. 

  8.  *

    9. 

  9.  *  See http://bennu.sourceforge.net/ for more information and downloads.

    10. 

  10.  *

    11. 

  11.  * @author Ioannis Papaioannou 

    12. 

  12.  * @version $Id: iCalendar_rfc2445.php,v 1.2.10.3 2009/11/19 10:16:53 skodak Exp $

    13. 

  13.  * @license http://www.gnu.org/copyleft/lesser.html GNU Lesser General Public License

    14. 

  14.  */

    15. 

  15. 

    16. 

  16. /*

    17. 

  17. 

    18. 

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

    19. 

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

    20. 

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

    21. 

  21.    stated.

    22. 

  22. 

    23. 

  23. */

    24. 

  24. 

    25. 

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

    26. 

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

    27. 

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

    28. 

  28. define('RFC2445_FOLDED_LINE_LENGTH', 75);

    29. 

  29. 

    30. 

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

    31. 

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

    32. 

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

    33. 

  33. 

    34. 

  34. define('RFC2445_PROP_FLAGS',       0);

    35. 

  35. define('RFC2445_PROP_TYPE',        1);

    36. 

  36. define('RFC2445_PROP_DEFAULT',     2);

    37. 

  37. 

    38. 

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

    39. 

  39. 

    40. 

  40. define('RFC2445_TYPE_BINARY',       0);

    41. 

  41. define('RFC2445_TYPE_BOOLEAN',      1);

    42. 

  42. define('RFC2445_TYPE_CAL_ADDRESS',  2);

    43. 

  43. define('RFC2445_TYPE_DATE',         3);

    44. 

  44. define('RFC2445_TYPE_DATE_TIME',    4);

    45. 

  45. define('RFC2445_TYPE_DURATION',     5);

    46. 

  46. define('RFC2445_TYPE_FLOAT',        6);

    47. 

  47. define('RFC2445_TYPE_INTEGER',      7);

    48. 

  48. define('RFC2445_TYPE_PERIOD',       8);

    49. 

  49. define('RFC2445_TYPE_RECUR',        9);

    50. 

  50. define('RFC2445_TYPE_TEXT',        10);

    51. 

  51. define('RFC2445_TYPE_TIME',        11);

    52. 

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

    53. 

  53. define('RFC2445_TYPE_UTC_OFFSET',  13);

    54. 

  54. 

    55. 

  55. 

    56. 

  56. function rfc2445_fold($string) {

    57. 

  57.     if(mb_strlen($string, 'utf-8') <= RFC2445_FOLDED_LINE_LENGTH) {

    58. 

  58.         return $string;

    59. 

  59.     }

    60. 

  60. 

    61. 

  61.     $retval = '';

    62. 

  62.   

    63. 

  63.     $i=0;

    64. 

  64.     $len_count=0;

    65. 

  65. 

    66. 

  66.     //multi-byte string, get the correct length

    67. 

  67.     $section_len = mb_strlen($string, 'utf-8');

    68. 

  68. 

    69. 

  69.     while($len_count<$section_len) {

    70. 

  70.         

    71. 

  71.         //get the current portion of the line

    72. 

  72.         $section = mb_substr($string, ($i * RFC2445_FOLDED_LINE_LENGTH), (RFC2445_FOLDED_LINE_LENGTH), 'utf-8');

    73. 

  73. 

    74. 

  74.         //increment the length we've processed by the length of the new portion

    75. 

  75.         $len_count += mb_strlen($section, 'utf-8');

    76. 

  76.         

    77. 

  77.         /* Add the portion to the return value, terminating with CRLF.HTAB

    78. 

  78.            As per RFC 2445, CRLF.HTAB will be replaced by the processor of the 

    79. 

  79.            data */

    80. 

  80.         $retval .= $section.RFC2445_CRLF.RFC2445_WSP;

    81. 

  81.         

    82. 

  82.         $i++;

    83. 

  83.     }

    84. 

  84. 

    85. 

  85.     return $retval;

    86. 

  86. 

    87. 

  87. }

    88. 

  88. 

    89. 

  89. function rfc2445_unfold($string) {

    90. 

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

    91. 

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

    92. 

  92.     }

    93. 

  93. 

    94. 

  94.     return $string;

    95. 

  95. }

    96. 

  96. 

    97. 

  97. function rfc2445_is_xname($name) {

    98. 

  98. 

    99. 

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

    100. 

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

    101. 

  101.         return false;

    102. 

  102.     }

    103. 

  103. 

    104. 

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

    105. 

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

    106. 

  106.         return false;

    107. 

  107.     }

    108. 

  108. 

    109. 

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

    110. 

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

    111. 

  111. }

    112. 

  112. 

    113. 

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

    114. 

  114. 

    115. 

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

    116. 

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

    117. 

  117.         return true;

    118. 

  118.     }

    119. 

  119. 

    120. 

  120.     switch($type) {

    121. 

  121.         case RFC2445_TYPE_CAL_ADDRESS:

    122. 

  122.         case RFC2445_TYPE_URI:

    123. 

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

    124. 

  124.                 return false;

    125. 

  125.             }

    126. 

  126. 

    127. 

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

    128. 

  128. 

    129. 

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

    130. 

  130.             if(!$pos) {

    131. 

  131.                 return false;

    132. 

  132.             }

    133. 

  133.         

    134. 

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

    135. 

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

    136. 

  136.             

    137. 

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

    138. 

  138.                 return false;

    139. 

  139.             }

    140. 

  140.         

    141. 

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

    142. 

  142.                 $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})$';

    143. 

  143.             }

    144. 

  144.             else {

    145. 

  145.                 $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})?(/.*)?$';

    146. 

  146.             }

    147. 

  147.         

    148. 

  148.             return ereg($regexp, $remain);

    149. 

  149.         break;

    150. 

  150. 

    151. 

  151.         case RFC2445_TYPE_BINARY:

    152. 

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

    153. 

  153.                 return false;

    154. 

  154.             }

    155. 

  155. 

    156. 

  156.             $len = strlen($value);

    157. 

  157.             

    158. 

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

    159. 

  159.                 return false;

    160. 

  160.             }

    161. 

  161. 

    162. 

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

    163. 

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

    164. 

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

    165. 

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

    166. 

  166.                         continue;

    167. 

  167.                     }

    168. 

  168.                     return false;

    169. 

  169.                 }

    170. 

  170.             }

    171. 

  171.             return true;

    172. 

  172.         break;

    173. 

  173. 

    174. 

  174.         case RFC2445_TYPE_BOOLEAN:

    175. 

  175.             if(is_bool($value)) {

    176. 

  176.                 return true;

    177. 

  177.             }

    178. 

  178.             if(is_string($value)) {

    179. 

  179.                 $value = strtoupper($value);

    180. 

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

    181. 

  181.             }

    182. 

  182.             return false;

    183. 

  183.         break;

    184. 

  184. 

    185. 

  185.         case RFC2445_TYPE_DATE:

    186. 

  186.             if(is_int($value)) {

    187. 

  187.                 if($value < 0) {

    188. 

  188.                     return false;

    189. 

  189.                 }

    190. 

  190.                 $value = "$value";

    191. 

  191.             }

    192. 

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

    193. 

  193.                 return false;

    194. 

  194.             }

    195. 

  195. 

    196. 

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

    197. 

  197.                 return false;

    198. 

  198.             }

    199. 

  199. 

    200. 

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

    201. 

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

    202. 

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

    203. 

  203. 

    204. 

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

    205. 

  205.         break;

    206. 

  206. 

    207. 

  207.         case RFC2445_TYPE_DATE_TIME:

    208. 

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

    209. 

  209.                 return false;

    210. 

  210.             }

    211. 

  211. 

    212. 

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

    213. 

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

    214. 

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

    215. 

  215.         break;

    216. 

  216. 

    217. 

  217.         case RFC2445_TYPE_DURATION:

    218. 

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

    219. 

  219.                 return false;

    220. 

  220.             }

    221. 

  221. 

    222. 

  222.             $len = strlen($value);

    223. 

  223. 

    224. 

  224.             if($len < 3) {

    225. 

  225.                 // Minimum conformant length: "P1W"

    226. 

  226.                 return false;

    227. 

  227.             }

    228. 

  228. 

    229. 

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

    230. 

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

    231. 

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

    232. 

  232.             }

    233. 

  233. 

    234. 

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

    235. 

  235.                 return false;

    236. 

  236.             }

    237. 

  237. 

    238. 

  238.             // OK, now break it up

    239. 

  239.             $num = '';

    240. 

  240.             $allowed = 'WDT';

    241. 

  241. 

    242. 

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

    243. 

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

    244. 

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

    245. 

  245.                     $num .= $ch;

    246. 

  246.                     continue;

    247. 

  247.                 }

    248. 

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

    249. 

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

    250. 

  250.                     return false;

    251. 

  251.                 }

    252. 

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

    253. 

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

    254. 

  254.                     return false;

    255. 

  255.                 }

    256. 

  256. 

    257. 

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

    258. 

  258.                 switch($ch) {

    259. 

  259.                     case 'W':

    260. 

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

    261. 

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

    262. 

  262.                     break;

    263. 

  263. 

    264. 

  264.                     case 'D':

    265. 

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

    266. 

  266.                         $allowed = 'T';

    267. 

  267.                     break;

    268. 

  268. 

    269. 

  269.                     case 'T':

    270. 

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

    271. 

  271.                         $allowed = 'HMS';

    272. 

  272.                     break;

    273. 

  273. 

    274. 

  274.                     case 'H':

    275. 

  275.                         $allowed = 'M';

    276. 

  276.                     break;

    277. 

  277. 

    278. 

  278.                     case 'M':

    279. 

  279.                         $allowed = 'S';

    280. 

  280.                     break;

    281. 

  281. 

    282. 

  282.                     case 'S':

    283. 

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

    284. 

  284.                     break;

    285. 

  285.                 }

    286. 

  286. 

    287. 

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

    288. 

  288.                 $num = '';

    289. 

  289. 

    290. 

  290.             }

    291. 

  291. 

    292. 

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

    293. 

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

    294. 

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

    295. 

  295. 

    296. 

  296.         break;

    297. 

  297.         

    298. 

  298.         case RFC2445_TYPE_FLOAT:

    299. 

  299.             if(is_float($value)) {

    300. 

  300.                 return true;

    301. 

  301.             }

    302. 

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

    303. 

  303.                 return false;

    304. 

  304.             }

    305. 

  305. 

    306. 

  306.             $dot = false;

    307. 

  307.             $int = false;

    308. 

  308.             $len = strlen($value);

    309. 

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

    310. 

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

    311. 

  311.                     case '-': case '+':

    312. 

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

    313. 

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

    314. 

  314.                             return false;

    315. 

  315.                         }

    316. 

  316.                     break;

    317. 

  317.                     case '.':

    318. 

  318.                         // A second dot is an error

    319. 

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

    320. 

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

    321. 

  321.                             return false;

    322. 

  322.                         }

    323. 

  323.                         $dot = true;

    324. 

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

    325. 

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

    326. 

  326.                             return false;

    327. 

  327.                         }

    328. 

  328.                     break;

    329. 

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

    330. 

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

    331. 

  331.                         $int = true;

    332. 

  332.                     break;

    333. 

  333.                     default:

    334. 

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

    335. 

  335.                         return false;

    336. 

  336.                     break;

    337. 

  337.                 }

    338. 

  338.             }

    339. 

  339.             return true;

    340. 

  340.         break;

    341. 

  341. 

    342. 

  342.         case RFC2445_TYPE_INTEGER:

    343. 

  343.             if(is_int($value)) {

    344. 

  344.                 return true;

    345. 

  345.             }

    346. 

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

    347. 

  347.                 return false;

    348. 

  348.             }

    349. 

  349. 

    350. 

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

    351. 

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

    352. 

  352.                     return false;

    353. 

  353.                 }

    354. 

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

    355. 

  355.             }

    356. 

  356. 

    357. 

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

    358. 

  358.                 return false;

    359. 

  359.             }

    360. 

  360. 

    361. 

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

    362. 

  362.         break;

    363. 

  363. 

    364. 

  364.         case RFC2445_TYPE_PERIOD:

    365. 

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

    366. 

  366.                 return false;

    367. 

  367.             }

    368. 

  368. 

    369. 

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

    370. 

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

    371. 

  371.                 return false;

    372. 

  372.             }

    373. 

  373. 

    374. 

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

    375. 

  375.                 return false;

    376. 

  376.             }

    377. 

  377. 

    378. 

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

    379. 

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

    380. 

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

    381. 

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

    382. 

  382.             }

    383. 

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

    384. 

  384.                 // The period MUST NOT be negative

    385. 

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

    386. 

  386.             }

    387. 

  387. 

    388. 

  388.             // It seems to be illegal

    389. 

  389.             return false;

    390. 

  390.         break;

    391. 

  391. 

    392. 

  392.         case RFC2445_TYPE_RECUR:

    393. 

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

    394. 

  394.                 return false;

    395. 

  395.             }

    396. 

  396. 

    397. 

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

    398. 

  398. 

    399. 

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

    400. 

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

    401. 

  401.                 return false;

    402. 

  402.             }

    403. 

  403. 

    404. 

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

    405. 

  405.             $vars = array();

    406. 

  406.             foreach($parts as $part) {

    407. 

  407. 

    408. 

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

    409. 

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

    410. 

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

    411. 

  411.                     return false;

    412. 

  412.                 }

    413. 

  413. 

    414. 

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

    415. 

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

    416. 

  416.                     return false;

    417. 

  417.                 }

    418. 

  418. 

    419. 

  419.                 // Sounds good

    420. 

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

    421. 

  421.             }

    422. 

  422. 

    423. 

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

    424. 

  424. 

    425. 

  425.             // FREQ must be the first thing appearing

    426. 

  426.             reset($vars);

    427. 

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

    428. 

  428.                 return false;

    429. 

  429.             }

    430. 

  430. 

    431. 

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

    432. 

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

    433. 

  433.                 return false;

    434. 

  434.             }

    435. 

  435. 

    436. 

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

    437. 

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

    438. 

  438.                 return false;

    439. 

  439.             }

    440. 

  440. 

    441. 

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

    442. 

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

    443. 

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

    444. 

  444.                 $defined = array_keys($vars);

    445. 

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

    446. 

  446.                 if(empty($common)) {

    447. 

  447.                     return false;

    448. 

  448.                 }

    449. 

  449.             }

    450. 

  450. 

    451. 

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

    452. 

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

    453. 

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

    454. 

  454. 

    455. 

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

    456. 

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

    457. 

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

    458. 

  458.                 return false;

    459. 

  459.             }

    460. 

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

    461. 

  461. 

    462. 

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

    463. 

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

    464. 

  464. 

    465. 

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

    466. 

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

    467. 

  467.                     // The time MUST be in UTC format

    468. 

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

    469. 

  469.                         return false;

    470. 

  470.                     }

    471. 

  471.                 }

    472. 

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

    473. 

  473.                     return false;

    474. 

  474.                 }

    475. 

  475.             }

    476. 

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

    477. 

  477. 

    478. 

  478. 

    479. 

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

    480. 

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

    481. 

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

    482. 

  482.                     return false;

    483. 

  483.                 }

    484. 

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

    485. 

  485.                     return false;

    486. 

  486.                 }

    487. 

  487.             }

    488. 

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

    489. 

  489. 

    490. 

  490.             

    491. 

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

    492. 

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

    493. 

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

    494. 

  494.                     return false;

    495. 

  495.                 }

    496. 

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

    497. 

  497.                     return false;

    498. 

  498.                 }

    499. 

  499.             }

    500. 

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

    501. 

  501. 

    502. 

  502.             

    503. 

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

    504. 

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

    505. 

  505.                     return false;

    506. 

  506.                 }

    507. 

  507.                 // Comma also allowed

    508. 

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

    509. 

  509.                     return false;

    510. 

  510.                 }

    511. 

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

    512. 

  512.                 foreach($secs as $sec) {

    513. 

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

    514. 

  514.                         return false;

    515. 

  515.                     }

    516. 

  516.                 }

    517. 

  517.             }

    518. 

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

    519. 

  519. 

    520. 

  520.             

    521. 

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

    522. 

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

    523. 

  523.                     return false;

    524. 

  524.                 }

    525. 

  525.                 // Comma also allowed

    526. 

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

    527. 

  527.                     return false;

    528. 

  528.                 }

    529. 

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

    530. 

  530.                 foreach($mins as $min) {

    531. 

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

    532. 

  532.                         return false;

    533. 

  533.                     }

    534. 

  534.                 }

    535. 

  535.             }

    536. 

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

    537. 

  537. 

    538. 

  538.             

    539. 

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

    540. 

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

    541. 

  541.                     return false;

    542. 

  542.                 }

    543. 

  543.                 // Comma also allowed

    544. 

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

    545. 

  545.                     return false;

    546. 

  546.                 }

    547. 

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

    548. 

  548.                 foreach($hours as $hour) {

    549. 

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

    550. 

  550.                         return false;

    551. 

  551.                     }

    552. 

  552.                 }

    553. 

  553.             }

    554. 

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

    555. 

  555.             

    556. 

  556. 

    557. 

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

    558. 

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

    559. 

  559.                     return false;

    560. 

  560.                 }

    561. 

  561. 

    562. 

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

    563. 

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

    564. 

  564.                 

    565. 

  565.                 foreach($days as $day) {

    566. 

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

    567. 

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

    568. 

  568.                         return false;

    569. 

  569.                     }

    570. 

  570. 

    571. 

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

    572. 

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

    573. 

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

    574. 

  574.                             return false;

    575. 

  575.                         }

    576. 

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

    577. 

  577.                             return false;

    578. 

  578.                         }

    579. 

  579.                     }

    580. 

  580.                 }

    581. 

  581.             }

    582. 

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

    583. 

  583. 

    584. 

  584. 

    585. 

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

    586. 

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

    587. 

  587.                     return false;

    588. 

  588.                 }

    589. 

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

    590. 

  590.                 foreach($mdays as $mday) {

    591. 

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

    592. 

  592.                         return false;

    593. 

  593.                     }

    594. 

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

    595. 

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

    596. 

  596.                         return false;

    597. 

  597.                     }

    598. 

  598.                 }

    599. 

  599.             }

    600. 

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

    601. 

  601. 

    602. 

  602. 

    603. 

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

    604. 

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

    605. 

  605.                     return false;

    606. 

  606.                 }

    607. 

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

    608. 

  608.                 foreach($ydays as $yday) {

    609. 

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

    610. 

  610.                         return false;

    611. 

  611.                     }

    612. 

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

    613. 

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

    614. 

  614.                         return false;

    615. 

  615.                     }

    616. 

  616.                 }

    617. 

  617.             }

    618. 

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

    619. 

  619. 

    620. 

  620. 

    621. 

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

    622. 

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

    623. 

  623.                     return false;

    624. 

  624.                 }

    625. 

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

    626. 

  626.                 foreach($weeknos as $weekno) {

    627. 

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

    628. 

  628.                         return false;

    629. 

  629.                     }

    630. 

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

    631. 

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

    632. 

  632.                         return false;

    633. 

  633.                     }

    634. 

  634.                 }

    635. 

  635.             }

    636. 

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

    637. 

  637. 

    638. 

  638. 

    639. 

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

    640. 

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

    641. 

  641.                     return false;

    642. 

  642.                 }

    643. 

  643.                 // Comma also allowed

    644. 

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

    645. 

  645.                     return false;

    646. 

  646.                 }

    647. 

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

    648. 

  648.                 foreach($months as $month) {

    649. 

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

    650. 

  650.                         return false;

    651. 

  651.                     }

    652. 

  652.                 }

    653. 

  653.             }

    654. 

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

    655. 

  655. 

    656. 

  656. 

    657. 

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

    658. 

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

    659. 

  659.                     return false;

    660. 

  660.                 }

    661. 

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

    662. 

  662.                 foreach($sets as $set) {

    663. 

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

    664. 

  664.                         return false;

    665. 

  665.                     }

    666. 

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

    667. 

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

    668. 

  668.                         return false;

    669. 

  669.                     }

    670. 

  670.                 }

    671. 

  671.             }

    672. 

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

    673. 

  673. 

    674. 

  674. 

    675. 

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

    676. 

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

    677. 

  677.                     return false;

    678. 

  678.                 }

    679. 

  679.             }

    680. 

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

    681. 

  681. 

    682. 

  682. 

    683. 

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

    684. 

  684.             if(empty($vars)) {

    685. 

  685.                 return true;

    686. 

  686.             }

    687. 

  687. 

    688. 

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

    689. 

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

    690. 

  690.                     return false;

    691. 

  691.                 }

    692. 

  692.             }

    693. 

  693. 

    694. 

  694.             // At last, all is OK!

    695. 

  695.             return true;

    696. 

  696. 

    697. 

  697.         break;

    698. 

  698. 

    699. 

  699.         case RFC2445_TYPE_TEXT:

    700. 

  700.             return true;

    701. 

  701.         break;

    702. 

  702. 

    703. 

  703.         case RFC2445_TYPE_TIME:

    704. 

  704.             if(is_int($value)) {

    705. 

  705.                 if($value < 0) {

    706. 

  706.                     return false;

    707. 

  707.                 }

    708. 

  708.                 $value = "$value";

    709. 

  709.             }

    710. 

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

    711. 

  711.                 return false;

    712. 

  712.             }

    713. 

  713. 

    714. 

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

    715. 

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

    716. 

  716.                     return false;

    717. 

  717.                 }

    718. 

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

    719. 

  719.             }

    720. 

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

    721. 

  721.                 return false;

    722. 

  722.             }

    723. 

  723. 

    724. 

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

    725. 

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

    726. 

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

    727. 

  727. 

    728. 

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

    729. 

  729.         break;

    730. 

  730. 

    731. 

  731.         case RFC2445_TYPE_UTC_OFFSET:

    732. 

  732.             if(is_int($value)) {

    733. 

  733.                 if($value >= 0) {

    734. 

  734.                     $value = "+$value";

    735. 

  735.                 }

    736. 

  736.                 else {

    737. 

  737.                     $value = "$value";

    738. 

  738.                 }

    739. 

  739.             }

    740. 

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

    741. 

  741.                 return false;

    742. 

  742.             }

    743. 

  743. 

    744. 

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

    745. 

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

    746. 

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

    747. 

  747.             }

    748. 

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

    749. 

  749.                 return false;

    750. 

  750.             }

    751. 

  751. 

    752. 

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

    753. 

  753.                 return false;

    754. 

  754.             }

    755. 

  755. 

    756. 

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

    757. 

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

    758. 

  758. 

    759. 

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

    760. 

  760.         break;

    761. 

  761.     }

    762. 

  762. 

    763. 

  763.     // TODO: remove this assertion

    764. 

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

    765. 

  765.     var_dump($type);

    766. 

  766.     return false;

    767. 

  767. }

    768. 

  768. 

    769. 

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

    770. 

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

    771. 

  771.     switch($type) {

    772. 

  772.         case RFC2445_TYPE_CAL_ADDRESS:

    773. 

  773.         case RFC2445_TYPE_URI:

    774. 

  774.             // Enclose in double quotes

    775. 

  775.             $value = '"'.$value.'"';

    776. 

  776.         break;

    777. 

  777.         case RFC2445_TYPE_TEXT:

    778. 

  778.             // Escape entities

    779. 

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

    780. 

  780.         break;

    781. 

  781.     }

    782. 

  782.     return $value;

    783. 

  783. }

    784. 

  784. 

    785. 

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

    786. 

  786.     switch($type) {

    787. 

  787.         case RFC2445_TYPE_CAL_ADDRESS:

    788. 

  788.         case RFC2445_TYPE_URI:

    789. 

  789.             // Trim beginning and end double quote

    790. 

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

    791. 

  791.         break;

    792. 

  792.         case RFC2445_TYPE_TEXT:

    793. 

  793.             // Unescape entities

    794. 

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

    795. 

  795.         break;

    796. 

  796.     }

    797. 

  797.     return $value;

    798. 

  798. }

    799. 

  799. 

    800. 

  800. ?>

    801. 

  801.