ttrss/opml.php

<?php
	require_once "functions.php";
	require_once "sessions.php";
	require_once "sanity_check.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);

	init_connection($link);

	function opml_export($link, $owner_uid, $hide_private_feeds=false, $include_settings=true) {
		if (!$_REQUEST["debug"]) {
			header("Content-type: application/xml+opml");
		} else {
			header("Content-type: text/xml");
		}
		print "<?xml version=\"1.0\" encoding=\"utf-8\"?>";

		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;

                $select = "SELECT * ";
                $where = "WHERE owner_uid = '$owner_uid'";
                $orderby = "ORDER BY title";
		if ($hide_private_feeds){
			$where = "WHERE owner_uid = '$owner_uid' AND private IS false AND
				auth_login = '' AND auth_pass = ''";
		}


		if (get_pref($link, 'ENABLE_FEED_CATS', $owner_uid) == true) {
			$cat_mode = true;
                        $select = "SELECT
				title, feed_url, site_url,
				(SELECT title FROM ttrss_feed_categories WHERE id = cat_id) as cat_title";
			$orderby = "ORDER BY cat_title, title";

		}
		else{
			$cat_feed = get_pref($link, 'ENABLE_FEED_CATS');
			print "<!-- feeding cats is not enabled -->";
			print "<!-- $cat_feed -->";

		}


 		$result = db_query($link, $select." FROM ttrss_feeds ".$where." ".$orderby);

		$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\" text=\"$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";
		}

		# export tt-rss settings

		if ($include_settings) {
			print "<outline title=\"tt-rss-prefs\" schema-version=\"".SCHEMA_VERSION."\">";

			$result = db_query($link, "SELECT pref_name, value FROM ttrss_user_prefs WHERE
			   profile IS NULL AND owner_uid = " . $_SESSION["uid"]);

			while ($line = db_fetch_assoc($result)) {

				$name = $line["pref_name"];
				$value = htmlspecialchars($line["value"]);

				print "<outline pref-name=\"$name\" value=\"$value\">";

				print "</outline>";

			}

			print "</outline>";
		}

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

	// FIXME there are some brackets issues here

	$op = $_REQUEST["op"];

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

	if ($op == "Export") {

		login_sequence($link);
		$owner_uid = $_SESSION["uid"];
		return opml_export($link, $owner_uid);
	}

	if ($op == "publish"){
		$key = db_escape_string($_REQUEST["key"]);

		$result = db_query($link, "SELECT owner_uid
				FROM ttrss_access_keys WHERE
				access_key = '$key' AND feed_id = 'OPML:Publish'");

		if (db_num_rows($result) == 1) {
			$owner_uid = db_fetch_result($result, 0, "owner_uid");
			return opml_export($link, $owner_uid, true, false);
		} else {
			print "<error>User not found</error>";
		}
	}

	if ($op == "Import") {

		login_sequence($link);
		$owner_uid = $_SESSION["uid"];

		header('Content-Type: text/html; charset=utf-8');

		print "<html>
			<head>
				<link rel=\"stylesheet\" href=\"utility.css\" type=\"text/css\">
				<title>".__("OPML Utility")."</title>
				<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\"/>
			</head>
			<body>
			<div class=\"floatingLogo\"><img src=\"images/logo.png\"></div>
			<h1>".__('OPML Utility')."</h1>";

		db_query($link, "BEGIN");

		/* create Imported feeds category just in case */

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

		if (db_num_rows($result) == 0) {
				db_query($link, "INSERT INTO ttrss_feed_categories
					(title,owner_uid)
						VALUES ('Imported feeds', '$owner_uid')");
		}

		db_query($link, "COMMIT");

		print "<p>".__("Importing OPML...")."</p>";
		require_once "modules/opml_domdoc.php";
		opml_import_domdoc($link, $owner_uid);

		print "<br><form method=\"GET\" action=\"prefs.php\">
			<input type=\"submit\" value=\"".__("Return to preferences")."\">
			</form>";

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

	}

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

?>
change short php tags to long ones 2006-08-19 07:04:45 +00:00			`<?php`
remove error_reporting() hacks; set default error reporting level in functions.php 2010-11-10 10:14:44 +00:00			`require_once "functions.php";`
session fixes 2007-03-02 11:46: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";`
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
remove domxml OPML import path 2011-04-05 15:07:19 +00:00			`$link = db_connect(DB_HOST, DB_USER, DB_PASS, DB_NAME);`
OPML import 2005-09-02 11:49:47 +00:00
code cleanup, test for db_escape() crazyness in DB sanity check 2008-11-10 05:29:19 +00:00			`init_connection($link);`
cleanup OPML import interface 2005-12-01 06:10:39 +00:00
do not show settings in published opml 2010-06-29 10:54:22 +00:00			`function opml_export($link, $owner_uid, $hide_private_feeds=false, $include_settings=true) {`
support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00			`if (!$_REQUEST["debug"]) {`
			`header("Content-type: application/xml+opml");`
			`} else {`
			`header("Content-type: text/xml");`
			`}`
opml export: specify encoding 2007-08-17 15:56:21 +00:00			`print "<?xml version=\"1.0\" encoding=\"utf-8\"?>";`
cleanup OPML import interface 2005-12-01 06:10:39 +00:00
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>`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00			`</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;`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00
added filtering for private feeds to opml, and key lookup 2010-04-10 01:31:51 +00:00			`$select = "SELECT * ";`
			`$where = "WHERE owner_uid = '$owner_uid'";`
			`$orderby = "ORDER BY title";`
			`if ($hide_private_feeds){`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00			`$where = "WHERE owner_uid = '$owner_uid' AND private IS false AND`
rework OPML display in pref-feeds; hide authenticated feeds from public OPML 2010-06-30 09:13:57 +00:00			`auth_login = '' AND auth_pass = ''";`
added filtering for private feeds to opml, and key lookup 2010-04-10 01:31:51 +00:00			`}`
category support for OPML export 2005-11-25 12:37:27 +00:00
adding text attribute to categories fixed query for enable_feed_cats to actually query for the user instead of overall. 2010-04-13 02:38:51 +00:00

			`if (get_pref($link, 'ENABLE_FEED_CATS', $owner_uid) == true) {`
category support for OPML export 2005-11-25 12:37:27 +00:00			`$cat_mode = true;`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00			`$select = "SELECT`
added filtering for private feeds to opml, and key lookup 2010-04-10 01:31:51 +00:00			`title, feed_url, site_url,`
			`(SELECT title FROM ttrss_feed_categories WHERE id = cat_id) as cat_title";`
			`$orderby = "ORDER BY cat_title, title";`

category support for OPML export 2005-11-25 12:37:27 +00:00			`}`
adding text attribute to categories fixed query for enable_feed_cats to actually query for the user instead of overall. 2010-04-13 02:38:51 +00:00			`else{`
			`$cat_feed = get_pref($link, 'ENABLE_FEED_CATS');`
			`print "<!-- feeding cats is not enabled -->";`
			`print "<!-- $cat_feed -->";`

			`}`

category support for OPML export 2005-11-25 12:37:27 +00:00
added filtering for private feeds to opml, and key lookup 2010-04-10 01:31:51 +00:00			`$result = db_query($link, $select." FROM ttrss_feeds ".$where." ".$orderby);`

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) {`
remove domxml OPML import path 2011-04-05 15:07:19 +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) {`
adding text attribute to categories fixed query for enable_feed_cats to actually query for the user instead of overall. 2010-04-13 02:38:51 +00:00			`print "<outline title=\"$cat_title\" text=\"$cat_title\" >\n";`
category support for OPML export (fix again) 2005-11-25 13:37:44 +00:00			`}`
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) {`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00			`print "</outline>\n";`
category support for OPML export 2005-11-25 12:37:27 +00:00			`}`

support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00			`# export tt-rss settings`

do not show settings in published opml 2010-06-29 10:54:22 +00:00			`if ($include_settings) {`
			`print "<outline title=\"tt-rss-prefs\" schema-version=\"".SCHEMA_VERSION."\">";`
support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00
do not show settings in published opml 2010-06-29 10:54:22 +00:00			`$result = db_query($link, "SELECT pref_name, value FROM ttrss_user_prefs WHERE`
			`profile IS NULL AND owner_uid = " . $_SESSION["uid"]);`
support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00
do not show settings in published opml 2010-06-29 10:54:22 +00:00			`while ($line = db_fetch_assoc($result)) {`
support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00
do not show settings in published opml 2010-06-29 10:54:22 +00:00			`$name = $line["pref_name"];`
			`$value = htmlspecialchars($line["value"]);`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00
do not show settings in published opml 2010-06-29 10:54:22 +00:00			`print "<outline pref-name=\"$name\" value=\"$value\">";`
support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00
do not show settings in published opml 2010-06-29 10:54:22 +00:00			`print "</outline>";`
support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00
remove domxml OPML import path 2011-04-05 15:07:19 +00:00			`}`
support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00
do not show settings in published opml 2010-06-29 10:54:22 +00:00			`print "</outline>";`
			`}`
support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00
OPML export 2005-09-02 10:18:45 +00:00			`print "</body></opml>";`
			`}`

opml fixes 2007-03-02 13:58:51 +00:00			`// FIXME there are some brackets issues here`

			`$op = $_REQUEST["op"];`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00
opml fixes 2007-03-02 13:58:51 +00:00			`if (!$op) $op = "Export";`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00
opml fixes 2007-03-02 13:58:51 +00:00			`if ($op == "Export") {`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00
fixed so that login is only required for import and export of OPML, not for publish 2010-04-10 22:36:26 +00:00			`login_sequence($link);`
			`$owner_uid = $_SESSION["uid"];`
fix opml export 2007-03-02 14:55:32 +00:00			`return opml_export($link, $owner_uid);`
opml fixes 2007-03-02 13:58:51 +00:00			`}`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00
do not show settings in published opml 2010-06-29 10:54:22 +00:00			`if ($op == "publish"){`
added filtering for private feeds to opml, and key lookup 2010-04-10 01:31:51 +00:00			`$key = db_escape_string($_REQUEST["key"]);`

make published OPML use common secret key code 2010-11-08 16:36:24 +00:00			`$result = db_query($link, "SELECT owner_uid`
			`FROM ttrss_access_keys WHERE`
			`access_key = '$key' AND feed_id = 'OPML:Publish'");`
added filtering for private feeds to opml, and key lookup 2010-04-10 01:31:51 +00:00
			`if (db_num_rows($result) == 1) {`
make published OPML use common secret key code 2010-11-08 16:36:24 +00:00			`$owner_uid = db_fetch_result($result, 0, "owner_uid");`
			`return opml_export($link, $owner_uid, true, false);`
added filtering for private feeds to opml, and key lookup 2010-04-10 01:31:51 +00:00			`} else {`
			`print "<error>User not found</error>";`
			`}`
			`}`
opml fixes 2007-03-02 13:58:51 +00:00
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
fixed so that login is only required for import and export of OPML, not for publish 2010-04-10 22:36:26 +00:00			`login_sequence($link);`
			`$owner_uid = $_SESSION["uid"];`

support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00			`header('Content-Type: text/html; charset=utf-8');`

OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`print "<html>`
			`<head>`
opml/db updater tweaks 2007-03-02 14:08:00 +00:00			`<link rel=\"stylesheet\" href=\"utility.css\" type=\"text/css\">`
more I18N work 2007-03-05 09:04:55 +00:00			`<title>".__("OPML Utility")."</title>`
support import and export of tt-rss preferences in OPML with DOMDocument OPML path 2010-06-29 10:26:10 +00:00			`<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\"/>`
OPML import support for categories (rewritten using domxml) 2005-11-25 13:27:56 +00:00			`</head>`
fix OPML import handling uncategorized feeds, misc OPML touch-ups 2005-11-25 13:55:21 +00:00			`<body>`
replace references to ttrss-logo.png with logo.png 2011-04-14 13:48:26 +00:00			`<div class=\"floatingLogo\"><img src=\"images/logo.png\"></div>`
change _() to __() (use php-gettext) 2007-03-05 08:45:38 +00:00			`<h1>".__('OPML Utility')."</h1>";`
OPML import 2005-09-02 11:49:47 +00:00
place imported feeds in a separate category unless otherwise specified (closes #162) 2007-11-17 09:23:44 +00:00			`db_query($link, "BEGIN");`

			`/* create Imported feeds category just in case */`

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

			`if (db_num_rows($result) == 0) {`
			`db_query($link, "INSERT INTO ttrss_feed_categories`
remove domxml OPML import path 2011-04-05 15:07:19 +00:00			`(title,owner_uid)`
place imported feeds in a separate category unless otherwise specified (closes #162) 2007-11-17 09:23:44 +00:00			`VALUES ('Imported feeds', '$owner_uid')");`
			`}`

			`db_query($link, "COMMIT");`

remove domxml OPML import path 2011-04-05 15:07:19 +00:00			`print "<p>".__("Importing OPML...")."</p>";`
			`require_once "modules/opml_domdoc.php";`
			`opml_import_domdoc($link, $owner_uid);`
OPML import 2005-09-02 11:49:47 +00:00
interface tweaks 2007-03-02 13:34:04 +00:00			`print "<br><form method=\"GET\" action=\"prefs.php\">`
more I18N work 2007-03-05 09:04:55 +00:00			`<input type=\"submit\" value=\"".__("Return to preferences")."\">`
interface tweaks 2007-03-02 13:34:04 +00:00			`</form>";`
OPML import 2005-09-02 11:49:47 +00:00
opml fixes 2007-03-02 13:58:51 +00:00			`print "</body></html>";`
OPML import 2005-09-02 11:49:47 +00:00
			`}`

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			`?>`