library/RF/Utility.functions.php

<?php
// vim: ts=4 foldcolumn=4 foldmethod=marker
/**
 * Utility functions used from other scripts
 *
 * This file is part of Reblog,
 * a derivative work of Feed On Feeds.
 *
 * Distributed under the Gnu Public License.
 *
 * @package Refeed
 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
 * @author Michal Migurski <mike@stamen.com>
 * @author Michael Frumin <mfrumin@eyebeam.org>
 * @copyright ©2004 Michael Frumin, Michal Migurski
 * @link http://reblog.org Reblog
 * @link http://feedonfeeds.com Feed On Feeds
 * @version $Revision: 1.14 $
 */

    /*
    function ref_can_boolean_search() 
    {
        if(isset($GLOBALS['REF_MYSQL_SUPPORTS_BOOLEAN_SEARCH']))
            return $GLOBALS['REF_MYSQL_SUPPORTS_BOOLEAN_SEARCH'];
    
        $q = sprintf("SELECT *
                      FROM %s AS it
                      WHERE id = 1
                        AND MATCH (it.title, it.link, it.content, it.dccreator, it.dcsubject) AGAINST ('test' IN BOOLEAN MODE)",
                      REF_ITEM_TABLE);
        
        $res = $GLOBALS['REF_DBH']->query($q);
        $GLOBALS['REF_MYSQL_SUPPORTS_BOOLEAN_SEARCH'] = (DB::isError($res) ? false : true);
        
        return $GLOBALS['REF_MYSQL_SUPPORTS_BOOLEAN_SEARCH'];
    }
    */

   /**
    * Interpret an array looking for object literals.
    *
    * if any of the elements in the parameters array look like
    * {"jsonclass":["constructor", [param1, ], "prop1": ...} where
    * "constructor" is a valid class name, they are automatically
    * replaced by instances of that class per the class-hinting
    * section of the JSON spec.
    *
    * Old style, soon to be deprecated:
    *
    * if any of the elements in the parameters array look like
    * {type:'...', args:{...}}, they are assumed to represent objects
    * to be instantiated according the $class_mappings list.
    *
    * Mapped classes all assume a single, associative array constructor argument.
    *
    * @param    array   $params         Array of parameters, modified recursively in-place
    * @param    array   $class_mappings Array of type:class mappings.
    *                                   Keys are types, values are classes.
    *
    * @see http://json-rpc.org/specs.xhtml
    */
    function class_hints(&$params, $class_mappings=array())
    {
        if(is_array($params))
            foreach($params as $p => $param)
                if(isset($param['jsonclass']) && class_exists($param['jsonclass'][0]) && is_array($param['jsonclass'][1])) {
                    // new-style JSON-RPC class hinting
                    $class = $param['jsonclass'][0];
                    $args = array();
                    
                    foreach($param['jsonclass'][1] as $a => $arg)
                        $args[$a] = preg_replace('#\s+#s', ' ', var_export($arg, 1));
                        
                    eval('$params[$p] = new '.$class.'('.join(', ', $args).');');
                
                    foreach($param as $name => $value)
                        if($name != 'jsonclass')
                            $params[$p]->$name = $value;
                        
                } elseif(isset($param['type']) && isset($class_mappings[$param['type']])) {
                    // old-style reblog alpha class hinting, soon to be deprecated
                    $params[$p] = new $class_mappings[$param['type']]($param['args']);
                
                } else {
                    // otherwise, we may want to look deeper
                    class_hints($params[$p], $class_mappings);
                        
                }
    }
    
   /**
    * Initialize globals to be used by Reblog
    *
    * @param    RF_Controller   $controller Assigned to $GLOBALS['REBLOG_CONTROLLER']
    * @param    RF_User         $user       Assigned to $GLOBALS['REBLOG_USER']
    * @param    Smarty          $view       Assigned to $GLOBALS['REBLOG_VIEW']
    */
    function initialize_globals(&$controller, &$user, &$view)
    {
        $GLOBALS['REBLOG_CONTROLLER'] =& $controller;
        $GLOBALS['REBLOG_USER'] =& $user;
        $GLOBALS['REBLOG_VIEW'] =& $view;
    }
    
   /**
    * Initialize session variables.
    *
    * @param    array   $ARGS   Associative array of arguments, if any - set to $_REQUEST if omitted.
    * @uses REF_USE_KEYBOARD Assigned to _SESSION[use_kb] if use_kb is empty and this is not
    */
    function initialize_session_variables($ARGS=null)
    {
        if(!is_array($ARGS))
            $ARGS =& $_REQUEST;

        $_SESSION['feed_sort'] = isset($ARGS['feed_sort'])
            ? $ARGS['feed_sort']
            : $_SESSION['feed_sort'];
        
        $_SESSION['use_kb'] = isset($_SESSION['use_kb'])
            ? $_SESSION['use_kb']
            : (defined('REF_USE_KEYBOARD')
                ? REF_USE_KEYBOARD
                : 0);
    }
    
   /**
    * Initialize timezone
    *
    * @uses REBLOG_TIMEZONE Assigned to TZ environment variable
    * @return boolean Return value of putenv()
    */
    function initialize_timezone()
    {
        if(defined('REBLOG_TIMEZONE'))
            return putenv('TZ='.REBLOG_TIMEZONE);

        if(defined('REF_TIMEZONE'))
            return putenv('TZ='.REF_TIMEZONE);
    }
    
   /**
    * Get a path for the session cookie
    *
    * Starting at the current directory, iterate up parent directories
    * until we reach the top ("/") or find ourselves at the Refeed root
    * directory.
    *
    * @param    string  $root_path  Refeed root directory in filesystem
    * @return   string  Absolute path for session cookie use
    */
    function get_refeed_root($root_path = '')
    {
        if(defined('REBLOG_REFEED_ROOT_PATH') && REBLOG_REFEED_ROOT_PATH) {
            return REBLOG_REFEED_ROOT_PATH;
        }

        if(php_sapi_name() == 'cli') {
            return null;
        }

        if(empty($root_path)) {
            return "http://{$_SERVER['HTTP_HOST']}" . rtrim(dirname($_SERVER['SCRIPT_NAME']), '/');
        }
        
        $session_path = dirname($_SERVER['SCRIPT_NAME']);

        for($current_path = dirname($_SERVER['SCRIPT_FILENAME']);
            $current_path != '/' && strtolower($current_path) != strtolower($root_path);
            $current_path = dirname($current_path)) {
        
            $session_path = dirname($session_path);
        }
        
        return $session_path;
    }
    
   /**
    * Get a DSN for the database connection.
    *
    * @return string    database connection string, like "mysql://user:pass@host/name"
    *
    * @uses REBLOG_DSN
    */
    function get_configured_dsn()
    {
        if(defined('REBLOG_DSN'))
            return REBLOG_DSN;
        
        // old-style configuration vars
        if(defined('REF_DB_USER') && defined('REF_DB_PASS') && defined('REF_DB_HOST') && defined('REF_DB_DBNAME'))
            return sprintf('mysql://%s:%s@%s/%s', REF_DB_USER, REF_DB_PASS, REF_DB_HOST, REF_DB_DBNAME);

        return '';
    }
    
   /**
    * Get a GUID prefix
    *
    * @return string    GUID prefix
    *
    * @uses REBLOG_GUID_PREFIX
    */
    function get_configured_guid_prefix()
    {
        if(defined('REBLOG_GUID_PREFIX'))
            return REBLOG_GUID_PREFIX;
        
        // old-style configuration vars
        if(defined('REF_GUID_TAG_PREFIX'))
            return REF_GUID_TAG_PREFIX;
            
        return '';
    }
    
   /**
    * Get a cache directory prefix
    *
    * @return string    absolute local path to cache directory
    *
    * @uses REBLOG_CACHE_DIR
    */
    function get_configured_cache_dir()
    {
        if(defined('REBLOG_CACHE_DIR'))
            return REBLOG_CACHE_DIR;
        
        // old-style configuration vars
        if(defined('REF_CACHE_DIR'))
            return REF_CACHE_DIR;
            
        return realpath(dirname(__FILE__).'..'.DIRECTORY_SEPARATOR.'..').DIRECTORY_SEPARATOR.'cache';
    }
    
   /**
    * Get a HTTP username & password
    *
    * @return array Two-element array with username & password strings
    *
    * @uses REBLOG_HTTPAUTH_NAME
    * @uses REBLOG_HTTPAUTH_PASS
    */
    function get_configured_httpauth()
    {
        if(defined('REBLOG_HTTPAUTH_NAME') && defined('REBLOG_HTTPAUTH_PASS'))
            return array(REBLOG_HTTPAUTH_NAME, REBLOG_HTTPAUTH_PASS);

        // old-style configuration vars
        if(defined('REF_HTTPAUTH_NAME') && defined('REF_HTTPAUTH_PASS'))
            return array(REF_HTTPAUTH_NAME, REF_HTTPAUTH_PASS);
            
        return array('', '');
    }
    
   /**
    * Get a user agent and cache age for Magpie
    *
    * @return array Two-element array with user-agent & cache age values
    *
    * @uses REBLOG_HTTP_USER_AGENT
    * @uses REBLOG_FEED_CACHE_AGE
    */
    function get_configured_magpiestuff()
    {
        if(defined('REBLOG_HTTP_USER_AGENT') && defined('REBLOG_FEED_CACHE_AGE'))
            return array(REBLOG_HTTP_USER_AGENT, REBLOG_FEED_CACHE_AGE);

        // old-style configuration vars
        if(defined('REF_HTTP_USER_AGENT') && defined('REF_FEED_CACHE_AGE'))
            return array(REF_HTTP_USER_AGENT, REF_FEED_CACHE_AGE);
            
        return array('', 60 * 15);
    }
    
   /**
    * Get a lifetime for the session cookie
    *
    * @return int   lifetime
    *
    * @uses REBLOG_SESSION_LIFETIME
    */
    function get_configured_cookielifetime()
    {
        if(defined('REBLOG_SESSION_LIFETIME'))
            return REBLOG_SESSION_LIFETIME;

        // old-style configuration vars
        if(defined('REF_SESSION_LIFETIME'))
            return REF_SESSION_LIFETIME;
            
        return 60 * 60 * 24 * 365 * 30;
    }
    
   /**
    * Get a default version for the outgoing feed
    *
    * @return string Version of outgoing feed
    *
    * @uses REF_DEFAULT_RSS_VERSION
    */
    function get_configured_feedversion()
    {
        if(defined('REBLOG_FEED_VERSION'))
            return REBLOG_FEED_VERSION;

        // old-style configuration vars
        if(defined('REF_DEFAULT_RSS_VERSION'))
            switch(REF_DEFAULT_RSS_VERSION) {
                case 1:
                    return 'rss1.0';
                case 2:
                    return 'rss2.0';
            }
            
        return 'rss2.0';
    }
    
   /**
    * Print a diagnostic or progress report using whatever format is
    * appropriate to the current SAPI.
    *
    * @param    string  $trace  A string to print
    */
    function print_trace($trace)
    {
        if(php_sapi_name() == 'cli') {
            echo strip_tags($trace)."\n";

        } else {
            echo '<p>'.$trace.'</p>';

        }
    }
    

// CDATAFY
    function ref_cdata_escape($s)
    {
        return str_replace("]]>", " ] ] >", $s);
    }

// ARRAYIFYING


// HELPER
    
    function ref_find_links($content) 
    {
        $n = preg_match_all("/<a [^\>]*href\=[\'\"]*([^\"\'\s]+)[\'\"]*[^\>]*\>/i", $content, $matches, PREG_SET_ORDER);
        
        $res = array();
        
        foreach($matches as $m) {
            $res[] = $m[1];
        }
        
        return $res;
    }


// DATE/TIME CONVERSIONS
    function ref_unix_timestamp2iso8601($ts)
    {
        return date("Y-m-d\TH:i:sO",$ts);
    }

    function ref_unix_timestamp2rfc822($ts)
    {
        return date("r",$ts);
    }

    function ref_rfc8222unix_timestamp($rfc822)
    {
        return strtotime($rfc822);
    }

    function ref_iso86012unix_timestamp($iso8601)
    {
        return parse_w3cdtf($iso8601);
    }

?>
1	<?php
2	// vim: ts=4 foldcolumn=4 foldmethod=marker
3	/**
4	* Utility functions used from other scripts
5	*
6	* This file is part of Reblog,
7	* a derivative work of Feed On Feeds.
8	*
9	* Distributed under the Gnu Public License.
10	*
11	* @package Refeed
12	* @license http://opensource.org/licenses/gpl-license.php GNU Public License
13	* @author Michal Migurski <mike@stamen.com>
14	* @author Michael Frumin <mfrumin@eyebeam.org>
15	* @copyright ©2004 Michael Frumin, Michal Migurski
16	* @link http://reblog.org Reblog
17	* @link http://feedonfeeds.com Feed On Feeds
18	* @version $Revision: 1.14 $
19	*/
20
21	/*
22	function ref_can_boolean_search()
23	{
24	if(isset($GLOBALS['REF_MYSQL_SUPPORTS_BOOLEAN_SEARCH']))
25	return $GLOBALS['REF_MYSQL_SUPPORTS_BOOLEAN_SEARCH'];
26
27	$q = sprintf("SELECT *
28	FROM %s AS it
29	WHERE id = 1
30	AND MATCH (it.title, it.link, it.content, it.dccreator, it.dcsubject) AGAINST ('test' IN BOOLEAN MODE)",
31	REF_ITEM_TABLE);
32
33	$res = $GLOBALS['REF_DBH']->query($q);
34	$GLOBALS['REF_MYSQL_SUPPORTS_BOOLEAN_SEARCH'] = (DB::isError($res) ? false : true);
35
36	return $GLOBALS['REF_MYSQL_SUPPORTS_BOOLEAN_SEARCH'];
37	}
38	*/
39
40	/**
41	* Interpret an array looking for object literals.
42	*
43	* if any of the elements in the parameters array look like
44	* {"jsonclass":["constructor", [param1, ], "prop1": ...} where
45	* "constructor" is a valid class name, they are automatically
46	* replaced by instances of that class per the class-hinting
47	* section of the JSON spec.
48	*
49	* Old style, soon to be deprecated:
50	*
51	* if any of the elements in the parameters array look like
52	* {type:'...', args:{...}}, they are assumed to represent objects
53	* to be instantiated according the $class_mappings list.
54	*
55	* Mapped classes all assume a single, associative array constructor argument.
56	*
57	* @param array $params Array of parameters, modified recursively in-place
58	* @param array $class_mappings Array of type:class mappings.
59	* Keys are types, values are classes.
60	*
61	* @see http://json-rpc.org/specs.xhtml
62	*/
63	function class_hints(&$params, $class_mappings=array())
64	{
65	if(is_array($params))
66	foreach($params as $p => $param)
67	if(isset($param['jsonclass']) && class_exists($param['jsonclass'][0]) && is_array($param['jsonclass'][1])) {
68	// new-style JSON-RPC class hinting
69	$class = $param['jsonclass'][0];
70	$args = array();
71
72	foreach($param['jsonclass'][1] as $a => $arg)
73	$args[$a] = preg_replace('#\s+#s', ' ', var_export($arg, 1));
74
75	eval('$params[$p] = new '.$class.'('.join(', ', $args).');');
76
77	foreach($param as $name => $value)
78	if($name != 'jsonclass')
79	$params[$p]->$name = $value;
80
81	} elseif(isset($param['type']) && isset($class_mappings[$param['type']])) {
82	// old-style reblog alpha class hinting, soon to be deprecated
83	$params[$p] = new $class_mappings[$param['type']]($param['args']);
84
85	} else {
86	// otherwise, we may want to look deeper
87	class_hints($params[$p], $class_mappings);
88
89	}
90	}
91
92	/**
93	* Initialize globals to be used by Reblog
94	*
95	* @param RF_Controller $controller Assigned to $GLOBALS['REBLOG_CONTROLLER']
96	* @param RF_User $user Assigned to $GLOBALS['REBLOG_USER']
97	* @param Smarty $view Assigned to $GLOBALS['REBLOG_VIEW']
98	*/
99	function initialize_globals(&$controller, &$user, &$view)
100	{
101	$GLOBALS['REBLOG_CONTROLLER'] =& $controller;
102	$GLOBALS['REBLOG_USER'] =& $user;
103	$GLOBALS['REBLOG_VIEW'] =& $view;
104	}
105
106	/**
107	* Initialize session variables.
108	*
109	* @param array $ARGS Associative array of arguments, if any - set to $_REQUEST if omitted.
110	* @uses REF_USE_KEYBOARD Assigned to _SESSION[use_kb] if use_kb is empty and this is not
111	*/
112	function initialize_session_variables($ARGS=null)
113	{
114	if(!is_array($ARGS))
115	$ARGS =& $_REQUEST;
116
117	$_SESSION['feed_sort'] = isset($ARGS['feed_sort'])
118	? $ARGS['feed_sort']
119	: $_SESSION['feed_sort'];
120
121	$_SESSION['use_kb'] = isset($_SESSION['use_kb'])
122	? $_SESSION['use_kb']
123	: (defined('REF_USE_KEYBOARD')
124	? REF_USE_KEYBOARD
125	: 0);
126	}
127
128	/**
129	* Initialize timezone
130	*
131	* @uses REBLOG_TIMEZONE Assigned to TZ environment variable
132	* @return boolean Return value of putenv()
133	*/
134	function initialize_timezone()
135	{
136	if(defined('REBLOG_TIMEZONE'))
137	return putenv('TZ='.REBLOG_TIMEZONE);
138
139	if(defined('REF_TIMEZONE'))
140	return putenv('TZ='.REF_TIMEZONE);
141	}
142
143	/**
144	* Get a path for the session cookie
145	*
146	* Starting at the current directory, iterate up parent directories
147	* until we reach the top ("/") or find ourselves at the Refeed root
148	* directory.
149	*
150	* @param string $root_path Refeed root directory in filesystem
151	* @return string Absolute path for session cookie use
152	*/
153	function get_refeed_root($root_path = '')
154	{
155	if(defined('REBLOG_REFEED_ROOT_PATH') && REBLOG_REFEED_ROOT_PATH) {
156	return REBLOG_REFEED_ROOT_PATH;
157	}
158
159	if(php_sapi_name() == 'cli') {
160	return null;
161	}
162
163	if(empty($root_path)) {
164	return "http://{$_SERVER['HTTP_HOST']}" . rtrim(dirname($_SERVER['SCRIPT_NAME']), '/');
165	}
166
167	$session_path = dirname($_SERVER['SCRIPT_NAME']);
168
169	for($current_path = dirname($_SERVER['SCRIPT_FILENAME']);
170	$current_path != '/' && strtolower($current_path) != strtolower($root_path);
171	$current_path = dirname($current_path)) {
172
173	$session_path = dirname($session_path);
174	}
175
176	return $session_path;
177	}
178
179	/**
180	* Get a DSN for the database connection.
181	*
182	* @return string database connection string, like "mysql://user:pass@host/name"
183	*
184	* @uses REBLOG_DSN
185	*/
186	function get_configured_dsn()
187	{
188	if(defined('REBLOG_DSN'))
189	return REBLOG_DSN;
190
191	// old-style configuration vars
192	if(defined('REF_DB_USER') && defined('REF_DB_PASS') && defined('REF_DB_HOST') && defined('REF_DB_DBNAME'))
193	return sprintf('mysql://%s:%s@%s/%s', REF_DB_USER, REF_DB_PASS, REF_DB_HOST, REF_DB_DBNAME);
194
195	return '';
196	}
197
198	/**
199	* Get a GUID prefix
200	*
201	* @return string GUID prefix
202	*
203	* @uses REBLOG_GUID_PREFIX
204	*/
205	function get_configured_guid_prefix()
206	{
207	if(defined('REBLOG_GUID_PREFIX'))
208	return REBLOG_GUID_PREFIX;
209
210	// old-style configuration vars
211	if(defined('REF_GUID_TAG_PREFIX'))
212	return REF_GUID_TAG_PREFIX;
213
214	return '';
215	}
216
217	/**
218	* Get a cache directory prefix
219	*
220	* @return string absolute local path to cache directory
221	*
222	* @uses REBLOG_CACHE_DIR
223	*/
224	function get_configured_cache_dir()
225	{
226	if(defined('REBLOG_CACHE_DIR'))
227	return REBLOG_CACHE_DIR;
228
229	// old-style configuration vars
230	if(defined('REF_CACHE_DIR'))
231	return REF_CACHE_DIR;
232
233	return realpath(dirname(__FILE__).'..'.DIRECTORY_SEPARATOR.'..').DIRECTORY_SEPARATOR.'cache';
234	}
235
236	/**
237	* Get a HTTP username & password
238	*
239	* @return array Two-element array with username & password strings
240	*
241	* @uses REBLOG_HTTPAUTH_NAME
242	* @uses REBLOG_HTTPAUTH_PASS
243	*/
244	function get_configured_httpauth()
245	{
246	if(defined('REBLOG_HTTPAUTH_NAME') && defined('REBLOG_HTTPAUTH_PASS'))
247	return array(REBLOG_HTTPAUTH_NAME, REBLOG_HTTPAUTH_PASS);
248
249	// old-style configuration vars
250	if(defined('REF_HTTPAUTH_NAME') && defined('REF_HTTPAUTH_PASS'))
251	return array(REF_HTTPAUTH_NAME, REF_HTTPAUTH_PASS);
252
253	return array('', '');
254	}
255
256	/**
257	* Get a user agent and cache age for Magpie
258	*
259	* @return array Two-element array with user-agent & cache age values
260	*
261	* @uses REBLOG_HTTP_USER_AGENT
262	* @uses REBLOG_FEED_CACHE_AGE
263	*/
264	function get_configured_magpiestuff()
265	{
266	if(defined('REBLOG_HTTP_USER_AGENT') && defined('REBLOG_FEED_CACHE_AGE'))
267	return array(REBLOG_HTTP_USER_AGENT, REBLOG_FEED_CACHE_AGE);
268
269	// old-style configuration vars
270	if(defined('REF_HTTP_USER_AGENT') && defined('REF_FEED_CACHE_AGE'))
271	return array(REF_HTTP_USER_AGENT, REF_FEED_CACHE_AGE);
272
273	return array('', 60 * 15);
274	}
275
276	/**
277	* Get a lifetime for the session cookie
278	*
279	* @return int lifetime
280	*
281	* @uses REBLOG_SESSION_LIFETIME
282	*/
283	function get_configured_cookielifetime()
284	{
285	if(defined('REBLOG_SESSION_LIFETIME'))
286	return REBLOG_SESSION_LIFETIME;
287
288	// old-style configuration vars
289	if(defined('REF_SESSION_LIFETIME'))
290	return REF_SESSION_LIFETIME;
291
292	return 60 * 60 * 24 * 365 * 30;
293	}
294
295	/**
296	* Get a default version for the outgoing feed
297	*
298	* @return string Version of outgoing feed
299	*
300	* @uses REF_DEFAULT_RSS_VERSION
301	*/
302	function get_configured_feedversion()
303	{
304	if(defined('REBLOG_FEED_VERSION'))
305	return REBLOG_FEED_VERSION;
306
307	// old-style configuration vars
308	if(defined('REF_DEFAULT_RSS_VERSION'))
309	switch(REF_DEFAULT_RSS_VERSION) {
310	case 1:
311	return 'rss1.0';
312	case 2:
313	return 'rss2.0';
314	}
315
316	return 'rss2.0';
317	}
318
319	/**
320	* Print a diagnostic or progress report using whatever format is
321	* appropriate to the current SAPI.
322	*
323	* @param string $trace A string to print
324	*/
325	function print_trace($trace)
326	{
327	if(php_sapi_name() == 'cli') {
328	echo strip_tags($trace)."\n";
329
330	} else {
331	echo '<p>'.$trace.'</p>';
332
333	}
334	}
335
336
337
338	// CDATAFY
339	function ref_cdata_escape($s)
340	{
341	return str_replace("]]>", " ] ] >", $s);
342	}
343
344	// ARRAYIFYING
345
346
347	// HELPER
348
349	function ref_find_links($content)
350	{
351	$n = preg_match_all("/<a [^\>]href\=[\'\"]([^\"\'\s]+)[\'\"][^\>]\>/i", $content, $matches, PREG_SET_ORDER);
352
353	$res = array();
354
355	foreach($matches as $m) {
356	$res[] = $m[1];
357	}
358
359	return $res;
360	}
361
362
363	// DATE/TIME CONVERSIONS
364	function ref_unix_timestamp2iso8601($ts)
365	{
366	return date("Y-m-d\TH:i:sO",$ts);
367	}
368
369	function ref_unix_timestamp2rfc822($ts)
370	{
371	return date("r",$ts);
372	}
373
374	function ref_rfc8222unix_timestamp($rfc822)
375	{
376	return strtotime($rfc822);
377	}
378
379	function ref_iso86012unix_timestamp($iso8601)
380	{
381	return parse_w3cdtf($iso8601);
382	}
383
384	?>