ttrss/opml.php

<?php
	require_once "sessions.php";
	require_once "sanity_check.php";
	require_once "functions.php";
	require_once "config.php";
	require_once "db.php";
	require_once "db-prefs.php";

	$link = db_connect(DB_HOST, DB_USER, DB_PASS, DB_NAME);	

	if (DB_TYPE == "pgsql") {
		pg_query($link, "set client_encoding = 'utf-8'");
		pg_set_client_encoding("UNICODE");
	}

	login_sequence($link);

	$owner_uid = $_SESSION["uid"];

	// FIXME there are some brackets issues here

	$op = $_REQUEST["op"];
	
	if (!$op) $op = "Export";
	
	if ($op == "Export") {
		header("Content-type: application/xml+opml");
		print "<?phpxml version=\"1.0\"?>";
	}

	if ($op == "Export") {
		print "<opml version=\"1.0\">";
		print "<head>
			<dateCreated>" . date("r", time()) . "</dateCreated>
			<title>Tiny Tiny RSS Feed Export</title>
		</head>"; 
		print "<body>";

		$cat_mode = false;

		if (get_pref($link, 'ENABLE_FEED_CATS')) {
			$cat_mode = true;
			$result = db_query($link, "SELECT 
					title,feed_url,site_url,
					(SELECT title FROM ttrss_feed_categories WHERE id = cat_id) as cat_title
					FROM ttrss_feeds
				WHERE
					owner_uid = '$owner_uid'
				ORDER BY cat_title,title");
		} else {
			$result = db_query($link, "SELECT * FROM ttrss_feeds 
				WHERE owner_uid = '$owner_uid' ORDER BY title");
		}

		$old_cat_title = "";

		while ($line = db_fetch_assoc($result)) {
			$title = htmlspecialchars($line["title"]);
			$url = htmlspecialchars($line["feed_url"]);
			$site_url = htmlspecialchars($line["site_url"]);

			if ($cat_mode) {
				$cat_title = htmlspecialchars($line["cat_title"]);

				if ($old_cat_title != $cat_title) {
					if ($old_cat_title) {
						print "</outline>\n";	
					}

					if ($cat_title) {
						print "<outline title=\"$cat_title\">\n";
					}

					$old_cat_title = $cat_title;
				}
			}

			if ($site_url) {
				$html_url_qpart = "htmlUrl=\"$site_url\"";
			} else {
				$html_url_qpart = "";
			}

			print "<outline text=\"$title\" xmlUrl=\"$url\" $html_url_qpart/>\n";
		}

		if ($cat_mode && $old_cat_title) {
			print "</outline>\n";	
		}

		print "</body></opml>";
	}

	if ($op == "Import") {

		print "<html>
			<head>
				<link rel=\"stylesheet\" href=\"opml.css\" type=\"text/css\">
			</head>
			<body>
			<h1><img src=\"images/ttrss_logo.png\"></h1>
			<div class=\"opmlBody\">
			<h2>"._('Importing OPML...')."</h2>";

		if (is_file($_FILES['opml_file']['tmp_name'])) {
			$dom = domxml_open_file($_FILES['opml_file']['tmp_name']);

			if ($dom) {
				$root = $dom->document_element();

				$body = $root->get_elements_by_tagname('body');

				if ($body[0]) {			
					$body = $body[0];

					$outlines = $body->get_elements_by_tagname('outline');

					print "<table>";

					foreach ($outlines as $outline) {

						$feed_title = db_escape_string($outline->get_attribute('text'));

						if (!$feed_title) {
							$feed_title = db_escape_string($outline->get_attribute('title'));
						}

						$cat_title = db_escape_string($outline->get_attribute('title'));

						if (!$cat_title) {
							$cat_title = db_escape_string($outline->get_attribute('text'));
						}
	
						$feed_url = db_escape_string($outline->get_attribute('xmlUrl'));
						$site_url = db_escape_string($outline->get_attribute('htmlUrl'));

						if ($cat_title && !$feed_url) {

							db_query($link, "BEGIN");
							
							$result = db_query($link, "SELECT id FROM
								ttrss_feed_categories WHERE title = '$cat_title' AND
								owner_uid = '$owner_uid' LIMIT 1");

							if (db_num_rows($result) == 0) {

								printf(_("Adding category <b>%s</b>..."), $cat_title);
								print "<br>";

								db_query($link, "INSERT INTO ttrss_feed_categories
									(title,owner_uid) 
								VALUES ('$cat_title', '$owner_uid')");
							}

							db_query($link, "COMMIT");
						}

//						print "$active_category : $feed_title : $feed_url<br>";

						if (!$feed_title || !$feed_url) continue;

						db_query($link, "BEGIN");

						$cat_id = null;

						$parent_node = $outline->parent_node();

						if ($parent_node && $parent_node->node_name() == "outline") {
							$element_category = $parent_node->get_attribute('title');
						} else {
							$element_category = '';
						}

						if ($element_category) {

							$result = db_query($link, "SELECT id FROM
									ttrss_feed_categories WHERE title = '$element_category' AND
									owner_uid = '$owner_uid' LIMIT 1");								

							if (db_num_rows($result) == 1) {	
								$cat_id = db_fetch_result($result, 0, "id");
							}
						}								

						$result = db_query($link, "SELECT id FROM ttrss_feeds WHERE
							(title = '$feed_title' OR feed_url = '$feed_url') 
							AND owner_uid = '$owner_uid'");

						print "<tr><td><a href='$site_url'><b>$feed_title</b></a></b> 
							(<a href=\"$feed_url\">rss</a>)</td>";

						if (db_num_rows($result) > 0) {
							print "<td>"._("Already imported.")."</td>";
						} else {

							if ($cat_id) {
								$add_query = "INSERT INTO ttrss_feeds 
									(title, feed_url, owner_uid, cat_id, site_url) VALUES
									('$feed_title', '$feed_url', '$owner_uid', 
										'$cat_id', '$site_url')";

							} else {
								$add_query = "INSERT INTO ttrss_feeds 
									(title, feed_url, owner_uid, site_url) VALUES
									('$feed_title', '$feed_url', '$owner_uid', '$site_url')";

							}

							db_query($link, $add_query);
							
							print "<td><b>"._('Done.')."</b></td>";
						}

						print "</tr>";
						
						db_query($link, "COMMIT");
					}

					print "</table>";

				} else {
					print "<div class=\"error\">"._("Error: can't find body element.")."</div>";
				}
			} else {
				print "<div class=\"error\">"._("Error while parsing document.")."</div>";
			}

		} else {
			print "<div class=\"error\">"._("Error: please upload OPML file.")."</div>";
		}

		print "<p><a class=\"button\" href=\"prefs.php\">
			"._("Return to preferences")."</a>";

		print "</div></body></html>";

	}

//	if ($link) db_close($link);

?>
change short php tags to long ones 2006-08-19 07:04:45 +00:00			`<?php`
database backed sessions 2006-03-02 08:10:43 +00:00			`require_once "sessions.php";`
add some basic "did I forget to create config.php" sanity checks 2005-11-23 17:20:17 +00:00			`require_once "sanity_check.php";`
cleanup OPML import interface 2005-12-01 06:10:39 +00:00			`require_once "functions.php";`
OPML export 2005-09-02 10:18:45 +00:00			`require_once "config.php";`
update schema, more mysql work 2005-09-07 13:31:21 +00:00			`require_once "db.php";`
sql-ize opml.php 2005-11-16 17:18:15 +00:00			`require_once "db-prefs.php";`
OPML export 2005-09-02 10:18:45 +00:00
update schema, more mysql work 2005-09-07 13:31:21 +00:00			`$link = db_connect(DB_HOST, DB_USER, DB_PASS, DB_NAME);`
OPML import 2005-09-02 11:49:47 +00:00
update schema, more mysql work 2005-09-07 13:31:21 +00:00			`if (DB_TYPE == "pgsql") {`
			`pg_query($link, "set client_encoding = 'utf-8'");`
fix charset-related bug, release 1.2.8-p1 2007-02-20 08:33:17 +00:00			`pg_set_client_encoding("UNICODE");`
update schema, more mysql work 2005-09-07 13:31:21 +00:00			`}`
OPML export 2005-09-02 10:18:45 +00:00
cleanup OPML import interface 2005-12-01 06:10:39 +00:00			`login_sequence($link);`

			`$owner_uid = $_SESSION["uid"];`

			`// FIXME there are some brackets issues here`

			`$op = $_REQUEST["op"];`

			`if (!$op) $op = "Export";`

			`if ($op == "Export") {`
set application/xml+opml content-type on export 2006-05-18 06:02:07 +00:00			`header("Content-type: application/xml+opml");`
change short php tags to long ones 2006-08-19 07:04:45 +00:00			`print "<?phpxml version=\"1.0\"?>";`
cleanup OPML import interface 2005-12-01 06:10:39 +00:00			`}`

OPML import 2005-09-02 11:49:47 +00:00			`if ($op == "Export") {`
OPML export 2005-09-02 10:18:45 +00:00			`print "<opml version=\"1.0\">";`
title in opml head 2005-11-25 17:31:04 +00:00			`print "<head>`
			`<dateCreated>" . date("r", time()) . "</dateCreated>`
			`<title>Tiny Tiny RSS Feed Export</title>`
			`</head>";`
OPML export 2005-09-02 10:18:45 +00:00			`print "<body>";`

category support for OPML export 2005-11-25 12:37:27 +00:00			`$cat_mode = false;`

			`if (get_pref($link, 'ENABLE_FEED_CATS')) {`
			`$cat_mode = true;`
			`$result = db_query($link, "SELECT`
more opml export tweaks, tiny category detection tweak on import 2005-11-25 17:34:34 +00:00			`title,feed_url,site_url,`
fix OPML export for uncategorized feeds 2005-11-25 13:30:34 +00:00			`(SELECT title FROM ttrss_feed_categories WHERE id = cat_id) as cat_title`
			`FROM ttrss_feeds`
fix owner_uid checking in OPML export (path2) 2005-11-25 13:46:55 +00:00			`WHERE`
			`owner_uid = '$owner_uid'`
fix OPML export for uncategorized feeds 2005-11-25 13:30:34 +00:00			`ORDER BY cat_title,title");`
category support for OPML export 2005-11-25 12:37:27 +00:00			`} else {`
			`$result = db_query($link, "SELECT * FROM ttrss_feeds`
fix sql syntax error when exporting opml w/o cats 2006-11-03 04:05:43 +00:00			`WHERE owner_uid = '$owner_uid' ORDER BY title");`
category support for OPML export 2005-11-25 12:37:27 +00:00			`}`

			`$old_cat_title = "";`
OPML export 2005-09-02 10:18:45 +00:00
update schema, more mysql work 2005-09-07 13:31:21 +00:00			`while ($line = db_fetch_assoc($result)) {`
fix some brackets issues in feed editor 2005-10-16 14:48:33 +00:00			`$title = htmlspecialchars($line["title"]);`
			`$url = htmlspecialchars($line["feed_url"]);`
more opml export tweaks, tiny category detection tweak on import 2005-11-25 17:34:34 +00:00			`$site_url = htmlspecialchars($line["site_url"]);`
OPML export 2005-09-02 10:18:45 +00:00
category support for OPML export 2005-11-25 12:37:27 +00:00			`if ($cat_mode) {`
			`$cat_title = htmlspecialchars($line["cat_title"]);`

			`if ($old_cat_title != $cat_title) {`
			`if ($old_cat_title) {`
category support for OPML export (fix again) 2005-11-25 13:37:44 +00:00			`print "</outline>\n";`
category support for OPML export 2005-11-25 12:37:27 +00:00			`}`

category support for OPML export (fix again) 2005-11-25 13:37:44 +00:00			`if ($cat_title) {`
			`print "<outline title=\"$cat_title\">\n";`
			`}`
category support for OPML export 2005-11-25 12:37:27 +00:00
			`$old_cat_title = $cat_title;`
			`}`
			`}`

more opml export tweaks, tiny category detection tweak on import 2005-11-25 17:34:34 +00:00			`if ($site_url) {`
			`$html_url_qpart = "htmlUrl=\"$site_url\"";`
			`} else {`
			`$html_url_qpart = "";`
			`}`

			`print "<outline text=\"$title\" xmlUrl=\"$url\" $html_url_qpart/>\n";`
OPML export 2005-09-02 10:18:45 +00:00			`}`

category support for OPML export 2005-11-25 12:37:27 +00:00			`if ($cat_mode && $old_cat_title) {`
category support for OPML export (fix again) 2005-11-25 13:37:44 +00:00			`print "</outline>\n";`
category support for OPML export 2005-11-25 12:37:27 +00:00			`}`

OPML export 2005-09-02 10:18:45 +00:00			`print "</body></opml>";`
			`}`

OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`if ($op == "Import") {`
update schema, more mysql work 2005-09-07 13:31:21 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`print "<html>`
			`<head>`
			`<link rel=\"stylesheet\" href=\"opml.css\" type=\"text/css\">`
			`</head>`
fix OPML import handling uncategorized feeds, misc OPML touch-ups 2005-11-25 13:55:21 +00:00			`<body>`
cleanup OPML import interface 2005-12-01 06:10:39 +00:00			`<h1><img src=\"images/ttrss_logo.png\"></h1>`
			`<div class=\"opmlBody\">`
opml.php: I18N 2006-12-26 05:20:02 +00:00			`<h2>"._('Importing OPML...')."</h2>";`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`if (is_file($_FILES['opml_file']['tmp_name'])) {`
			`$dom = domxml_open_file($_FILES['opml_file']['tmp_name']);`
escape data on OPML import (take 2) 2005-10-13 01:05:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`if ($dom) {`
			`$root = $dom->document_element();`
escape data on OPML import (take 2) 2005-10-13 01:05:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`$body = $root->get_elements_by_tagname('body');`
escape data on OPML import (take 2) 2005-10-13 01:05:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`if ($body[0]) {`
			`$body = $body[0];`
escape data on OPML import (take 2) 2005-10-13 01:05:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`$outlines = $body->get_elements_by_tagname('outline');`
basic sanity checking in OPML import 2005-09-02 15:41:24 +00:00
cleanup OPML import interface 2005-12-01 06:10:39 +00:00			`print "<table>";`

OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`foreach ($outlines as $outline) {`
fix opml import (attribute title was not recognized for feeds) 2005-12-23 05:04:38 +00:00
fix OPML import handling uncategorized feeds, misc OPML touch-ups 2005-11-25 13:55:21 +00:00			`$feed_title = db_escape_string($outline->get_attribute('text'));`
fix opml import (attribute title was not recognized for feeds) 2005-12-23 05:04:38 +00:00
			`if (!$feed_title) {`
			`$feed_title = db_escape_string($outline->get_attribute('title'));`
			`}`
small OPML fix (closes #32) 2006-01-09 12:19:53 +00:00
fix OPML import handling uncategorized feeds, misc OPML touch-ups 2005-11-25 13:55:21 +00:00			`$cat_title = db_escape_string($outline->get_attribute('title'));`
small OPML fix (closes #32) 2006-01-09 12:19:53 +00:00
			`if (!$cat_title) {`
			`$cat_title = db_escape_string($outline->get_attribute('text'));`
			`}`

fix OPML import handling uncategorized feeds, misc OPML touch-ups 2005-11-25 13:55:21 +00:00			`$feed_url = db_escape_string($outline->get_attribute('xmlUrl'));`
cleanup OPML import interface 2005-12-01 06:10:39 +00:00			`$site_url = db_escape_string($outline->get_attribute('htmlUrl'));`
OPML import 2005-09-02 11:49:47 +00:00
more opml export tweaks, tiny category detection tweak on import 2005-11-25 17:34:34 +00:00			`if ($cat_title && !$feed_url) {`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`db_query($link, "BEGIN");`

			`$result = db_query($link, "SELECT id FROM`
			`ttrss_feed_categories WHERE title = '$cat_title' AND`
			`owner_uid = '$owner_uid' LIMIT 1");`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`if (db_num_rows($result) == 0) {`
OPML import 2005-09-02 11:49:47 +00:00
opml.php: I18N 2006-12-26 05:20:02 +00:00			`printf(_("Adding category <b>%s</b>..."), $cat_title);`
			`print "<br>";`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`db_query($link, "INSERT INTO ttrss_feed_categories`
fix opml import (attribute title was not recognized for feeds) 2005-12-23 05:04:38 +00:00			`(title,owner_uid)`
			`VALUES ('$cat_title', '$owner_uid')");`
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`}`
close db link in opml import workaround 2005-09-07 16:50:38 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`db_query($link, "COMMIT");`
			`}`
OPML import 2005-09-02 11:49:47 +00:00
fix opml import (attribute title was not recognized for feeds) 2005-12-23 05:04:38 +00:00			`// print "$active_category : $feed_title : $feed_url<br>";`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`if (!$feed_title \|\| !$feed_url) continue;`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`db_query($link, "BEGIN");`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`$cat_id = null;`
disable OPML import in demo mode, fix printing of processing instruction 2005-09-02 11:57:08 +00:00
fix OPML import handling uncategorized feeds, misc OPML touch-ups 2005-11-25 13:55:21 +00:00			`$parent_node = $outline->parent_node();`

			`if ($parent_node && $parent_node->node_name() == "outline") {`
			`$element_category = $parent_node->get_attribute('title');`
			`} else {`
			`$element_category = '';`
			`}`

			`if ($element_category) {`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`$result = db_query($link, "SELECT id FROM`
fix OPML import handling uncategorized feeds, misc OPML touch-ups 2005-11-25 13:55:21 +00:00			`ttrss_feed_categories WHERE title = '$element_category' AND`
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`owner_uid = '$owner_uid' LIMIT 1");`
disable OPML import in demo mode, fix printing of processing instruction 2005-09-02 11:57:08 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`if (db_num_rows($result) == 1) {`
			`$cat_id = db_fetch_result($result, 0, "id");`
			`}`
			`}`
disable OPML import in demo mode, fix printing of processing instruction 2005-09-02 11:57:08 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`$result = db_query($link, "SELECT id FROM ttrss_feeds WHERE`
			`(title = '$feed_title' OR feed_url = '$feed_url')`
			`AND owner_uid = '$owner_uid'");`
OPML import 2005-09-02 11:49:47 +00:00
cleanup OPML import interface 2005-12-01 06:10:39 +00:00			`print "<tr><td><a href='$site_url'><b>$feed_title</b></a></b>`
			`(<a href=\"$feed_url\">rss</a>)</td>";`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`if (db_num_rows($result) > 0) {`
opml.php: I18N 2006-12-26 05:20:02 +00:00			`print "<td>"._("Already imported.")."</td>";`
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`} else {`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`if ($cat_id) {`
			`$add_query = "INSERT INTO ttrss_feeds`
fix opml import (attribute title was not recognized for feeds) 2005-12-23 05:04:38 +00:00			`(title, feed_url, owner_uid, cat_id, site_url) VALUES`
			`('$feed_title', '$feed_url', '$owner_uid',`
			`'$cat_id', '$site_url')";`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`} else {`
			`$add_query = "INSERT INTO ttrss_feeds`
fix opml import (attribute title was not recognized for feeds) 2005-12-23 05:04:38 +00:00			`(title, feed_url, owner_uid, site_url) VALUES`
			`('$feed_title', '$feed_url', '$owner_uid', '$site_url')";`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`}`
fix OPML import handling uncategorized feeds, misc OPML touch-ups 2005-11-25 13:55:21 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`db_query($link, $add_query);`

opml.php: I18N 2006-12-26 05:20:02 +00:00			`print "<td><b>"._('Done.')."</b></td>";`
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`}`
cleanup OPML import interface 2005-12-01 06:10:39 +00:00
			`print "</tr>";`
OPML import 2005-09-02 11:49:47 +00:00
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`db_query($link, "COMMIT");`
OPML import 2005-09-02 11:49:47 +00:00			`}`

cleanup OPML import interface 2005-12-01 06:10:39 +00:00			`print "</table>";`

OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`} else {`
opml.php: I18N 2006-12-26 05:20:02 +00:00			`print "<div class=\"error\">"._("Error: can't find body element.")."</div>";`
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`}`
OPML import 2005-09-02 11:49:47 +00:00			`} else {`
opml.php: I18N 2006-12-26 05:20:02 +00:00			`print "<div class=\"error\">"._("Error while parsing document.")."</div>";`
OPML import 2005-09-02 11:49:47 +00:00			`}`

OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`} else {`
opml.php: I18N 2006-12-26 05:20:02 +00:00			`print "<div class=\"error\">"._("Error: please upload OPML file.")."</div>";`
OPML import 2005-09-02 11:49:47 +00:00			`}`

			`print "<p><a class=\"button\" href=\"prefs.php\">`
opml.php: I18N 2006-12-26 05:20:02 +00:00			`"._("Return to preferences")."</a>";`
OPML import 2005-09-02 11:49:47 +00:00
			`print "</div></body></html>";`

			`}`

close db link in opml import workaround (3) 2005-09-07 16:52:12 +00:00			`// if ($link) db_close($link);`
OPML import 2005-09-02 11:49:47 +00:00
OPML export 2005-09-02 10:18:45 +00:00			`?>`