ttrss/opml.php

<?php
	error_reporting(E_ERROR | E_WARNING | E_PARSE);

	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");
	} else {
		if (defined('MYSQL_CHARSET') && MYSQL_CHARSET) {
			db_query($link, "SET NAMES " . MYSQL_CHARSET);
			db_query($link, "SET CHARACTER SET " . MYSQL_CHARSET);
		}
	}

	login_sequence($link);

	$owner_uid = $_SESSION["uid"];

	function opml_export($link, $owner_uid) {
		header("Content-type: application/xml+opml");
		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;

		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>";
	}

	// FIXME there are some brackets issues here

	$op = $_REQUEST["op"];
	
	if (!$op) $op = "Export";
	
	if ($op == "Export") {
		return opml_export($link, $owner_uid);
	}

	if ($op == "Import") {

		print "<html>
			<head>
				<link rel=\"stylesheet\" href=\"utility.css\" type=\"text/css\">
				<title>".__("OPML Utility")."</title>
			</head>
			<body>
			<div class=\"floatingLogo\"><img src=\"images/ttrss_logo.png\"></div>
			<h1>".__('OPML Utility')."</h1>";

		if (function_exists('domxml_open_file')) {
			print "<p>".__("Importing OPML (using DOMXML extension)...")."</p>";
			require_once "modules/opml_domxml.php";
			opml_import_domxml($link, $owner_uid);
		} else if (PHP_VERSION >= 5) {
			print "<p>".__("Importing OPML (using DOMDocument extension)...")."</p>";
			require_once "modules/opml_domdoc.php";
			opml_import_domdoc($link, $owner_uid);
		} else {
			print_error(__("DOMXML extension is not found. It is required for PHP versions below 5."));
		}

		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`
set required error_reporting just in case 2007-03-04 13:02:47 +00:00			`error_reporting(E_ERROR \| E_WARNING \| E_PARSE);`

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";`
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");`
mysql: set connection charset to utf-8 2007-08-17 16:02:15 +00:00			`} else {`
new config option: MYSQL_CHARSET 2007-08-21 10:47:25 +00:00			`if (defined('MYSQL_CHARSET') && MYSQL_CHARSET) {`
			`db_query($link, "SET NAMES " . MYSQL_CHARSET);`
			`db_query($link, "SET CHARACTER SET " . MYSQL_CHARSET);`
			`}`
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"];`

fix opml export 2007-03-02 14:55:32 +00:00			`function opml_export($link, $owner_uid) {`
set application/xml+opml content-type on export 2006-05-18 06:02:07 +00:00			`header("Content-type: application/xml+opml");`
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>`
			`</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 fixes 2007-03-02 13:58:51 +00:00			`// FIXME there are some brackets issues here`

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

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

			`if ($op == "Export") {`
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			`}`

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>`
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>`
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>`
opml/db updater tweaks 2007-03-02 14:08:00 +00:00			`<div class=\"floatingLogo\"><img src=\"images/ttrss_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
opml fixes 2007-03-02 13:58:51 +00:00			`if (function_exists('domxml_open_file')) {`
opml.php: fix typo, update.php: i18n 2007-03-06 11:02:19 +00:00			`print "<p>".__("Importing OPML (using DOMXML extension)...")."</p>";`
opml fixes 2007-03-02 13:58:51 +00:00			`require_once "modules/opml_domxml.php";`
			`opml_import_domxml($link, $owner_uid);`
check PHP version before trying to use DOMDocument 2007-06-05 10:32:53 +00:00			`} else if (PHP_VERSION >= 5) {`
opml.php: fix typo, update.php: i18n 2007-03-06 11:02:19 +00:00			`print "<p>".__("Importing OPML (using DOMDocument extension)...")."</p>";`
opml fixes 2007-03-02 13:58:51 +00:00			`require_once "modules/opml_domdoc.php";`
			`opml_import_domdoc($link, $owner_uid);`
check PHP version before trying to use DOMDocument 2007-06-05 10:32:53 +00:00			`} else {`
			`print_error(__("DOMXML extension is not found. It is required for PHP versions below 5."));`
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			`?>`