Created
Sep 15 2003, 15:01
By
Rui Carmo

Parsing OPML Files

The following PHP functions (designed as class members) can parse (and write) OPML files in a way NetNewsWire can understand:

&nbsp;&nbsp;function parse( $szFilename ) {&nbsp;&nbsp;&nbsp;&nbsp;assert( file_exists( $szFilename ) );&nbsp;&nbsp;&nbsp;&nbsp;$oParser = xml_parser_create("ISO-8859-1");&nbsp;&nbsp;&nbsp;&nbsp;$szData = implode( "",file($szFilename) );&nbsp;&nbsp;&nbsp;&nbsp;xml_parse_into_struct( $oParser, $szData, $aValues );&nbsp;&nbsp;&nbsp;&nbsp;foreach( $aValues as $aElement ) {&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if( $aElement["tag"] === "OUTLINE" ) {&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$szGUID = md5($aElement["attributes"]["XMLURL"]);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$this-&gt;m_aData[$szGUID] = $aElement["attributes"];&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp;xml_parser_free( $oParser );&nbsp;&nbsp;} // parse

&nbsp;&nbsp;function serialize( $szFilename ) {&nbsp;&nbsp;&nbsp;&nbsp;$hFile = fopen( $szFilename, "w" );&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fputs( $hFile, '&lt;?xml version="1.0" encoding="ISO-8859-1"?&gt;' . "\n" );&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fputs( $hFile, "&lt;opml&gt;\n&nbsp;&nbsp;&lt;body&gt;\n" );&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;foreach( $this-&gt;m_aData as $aElement ) {&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$szBuffer = "&nbsp;&nbsp;&nbsp;&nbsp;&lt;outline ";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;foreach( $aElement as $szAttribute =&gt; $szValue ) {&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$szAttribute = strtolower( $szAttribute );&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$szAttribute = str_replace( "url", "Url", $szAttribute ); // readable names&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$szValue = htmlentities( $szValue, ENT_COMPAT, "ISO-8859-1" );&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;// Pack \n and \r (usually inside DESCRIPTION attributes)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$szValue = strtr($szValue, array("\n" =&gt; "&amp;#xA;", "\r" =&gt; "&amp;#xD;"));&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$szBuffer .= "$szAttribute=\"$szValue\" ";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$szBuffer .= "/&gt;\n";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fputs( $hFile, $szBuffer );&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fputs( $hFile, "&nbsp;&nbsp;&lt;/body&gt;\n&lt;/opml&gt;" );&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fclose( $hFile );&nbsp;&nbsp;} // serialize