WordPress/wp-admin/link-parse-opml.php

<?php
require_once('../wp-config.php');
require_once(ABSPATH.WPINC.'/functions.php');

// columns we wish to find are:  link_url, link_name, link_target, link_description
// we need to map XML attribute names to our columns
$opml_map = array('URL'         => 'link_url',
                  'HTMLURL'     => 'link_url',
                  'TEXT'        => 'link_name',
                  'TITLE'       => 'link_name',
                  'TARGET'      => 'link_target',
                  'DESCRIPTION' => 'link_description',
                  'XMLURL'      => 'link_rss'
);

$map = $opml_map;

/**
 ** startElement()
 ** Callback function. Called at the start of a new xml tag.
 **/
function startElement($parser, $tagName, $attrs) {
	global $updated_timestamp, $all_links, $map;
    global $names, $urls, $targets, $descriptions, $feeds;

	if ($tagName == 'OUTLINE') {
        foreach (array_keys($map) as $key) {
            if (isset($attrs[$key])) {
                $$map[$key] = $attrs[$key];
            }
        }

        //echo("got data: link_url = [$link_url], link_name = [$link_name], link_target = [$link_target], link_description = [$link_description]<br />\n");

        // save the data away.
        $names[] = $link_name;
        $urls[] = $link_url;
        $targets[] = $link_target;
		$feeds[] = $link_rss;
        $descriptions[] = $link_description;
    } // end if outline
}

/**
 ** endElement()
 ** Callback function. Called at the end of an xml tag.
 **/
function endElement($parser, $tagName) {
	// nothing to do.
}

// Create an XML parser
$xml_parser = xml_parser_create();

// Set the functions to handle opening and closing tags
xml_set_element_handler($xml_parser, "startElement", "endElement");

if (!xml_parse($xml_parser, $opml, true)) {
    echo(sprintf("XML error: %s at line %d",
                   xml_error_string(xml_get_error_code($xml_parser)),
                   xml_get_current_line_number($xml_parser)));
}

// Free up memory used by the XML parser
xml_parser_free($xml_parser);
?>