tt-rss/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"];

	function opml_export($link, $owner_uid) {
		header("Content-type: application/xml+opml");
		print "<?xml version=\"1.0\"?>";

		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 {
			print "<p>Importing OPML (using DOMDocument extension)...</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 09:04:45 +02:00			`<?php`
session fixes 2007-03-02 12:46:43 +01:00			`require_once "sessions.php";`
add some basic "did I forget to create config.php" sanity checks 2005-11-23 18:20:17 +01:00			`require_once "sanity_check.php";`
cleanup OPML import interface 2005-12-01 07:10:39 +01:00			`require_once "functions.php";`
OPML export 2005-09-02 12:18:45 +02:00			`require_once "config.php";`
update schema, more mysql work 2005-09-07 15:31:21 +02:00			`require_once "db.php";`
sql-ize opml.php 2005-11-16 18:18:15 +01:00			`require_once "db-prefs.php";`
OPML export 2005-09-02 12:18:45 +02:00
update schema, more mysql work 2005-09-07 15:31:21 +02:00			`$link = db_connect(DB_HOST, DB_USER, DB_PASS, DB_NAME);`
OPML import 2005-09-02 13:49:47 +02:00
update schema, more mysql work 2005-09-07 15:31:21 +02: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 09:33:17 +01:00			`pg_set_client_encoding("UNICODE");`
update schema, more mysql work 2005-09-07 15:31:21 +02:00			`}`
OPML export 2005-09-02 12:18:45 +02:00
cleanup OPML import interface 2005-12-01 07:10:39 +01:00			`login_sequence($link);`

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

fix opml export 2007-03-02 15:55:32 +01:00			`function opml_export($link, $owner_uid) {`
set application/xml+opml content-type on export 2006-05-18 08:02:07 +02:00			`header("Content-type: application/xml+opml");`
fix opml export (fix xml declaration) 2007-03-02 15:58:46 +01:00			`print "<?xml version=\"1.0\"?>";`
cleanup OPML import interface 2005-12-01 07:10:39 +01:00
OPML export 2005-09-02 12:18:45 +02:00			`print "<opml version=\"1.0\">";`
title in opml head 2005-11-25 18:31:04 +01:00			`print "<head>`
			`<dateCreated>" . date("r", time()) . "</dateCreated>`
			`<title>Tiny Tiny RSS Feed Export</title>`
			`</head>";`
OPML export 2005-09-02 12:18:45 +02:00			`print "<body>";`

category support for OPML export 2005-11-25 13:37:27 +01: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 18:34:34 +01:00			`title,feed_url,site_url,`
fix OPML export for uncategorized feeds 2005-11-25 14:30:34 +01: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 14:46:55 +01:00			`WHERE`
			`owner_uid = '$owner_uid'`
fix OPML export for uncategorized feeds 2005-11-25 14:30:34 +01:00			`ORDER BY cat_title,title");`
category support for OPML export 2005-11-25 13:37:27 +01:00			`} else {`
			`$result = db_query($link, "SELECT * FROM ttrss_feeds`
fix sql syntax error when exporting opml w/o cats 2006-11-03 05:05:43 +01:00			`WHERE owner_uid = '$owner_uid' ORDER BY title");`
category support for OPML export 2005-11-25 13:37:27 +01:00			`}`

			`$old_cat_title = "";`
OPML export 2005-09-02 12:18:45 +02:00
update schema, more mysql work 2005-09-07 15:31:21 +02:00			`while ($line = db_fetch_assoc($result)) {`
fix some brackets issues in feed editor 2005-10-16 16:48:33 +02:00			`$title = htmlspecialchars($line["title"]);`
			`$url = htmlspecialchars($line["feed_url"]);`
more opml export tweaks, tiny category detection tweak on import 2005-11-25 18:34:34 +01:00			`$site_url = htmlspecialchars($line["site_url"]);`
OPML export 2005-09-02 12:18:45 +02:00
category support for OPML export 2005-11-25 13:37:27 +01: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 14:37:44 +01:00			`print "</outline>\n";`
category support for OPML export 2005-11-25 13:37:27 +01:00			`}`

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

more opml export tweaks, tiny category detection tweak on import 2005-11-25 18:34:34 +01: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 12:18:45 +02:00			`}`

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

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

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

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

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

			`if ($op == "Export") {`
fix opml export 2007-03-02 15:55:32 +01:00			`return opml_export($link, $owner_uid);`
opml fixes 2007-03-02 14:58:51 +01:00			`}`

OPML import support for categories (rewritten using domxml) 2005-11-25 14:27:56 +01:00			`if ($op == "Import") {`
update schema, more mysql work 2005-09-07 15:31:21 +02:00
OPML import support for categories (rewritten using domxml) 2005-11-25 14:27:56 +01:00			`print "<html>`
			`<head>`
opml/db updater tweaks 2007-03-02 15:08:00 +01:00			`<link rel=\"stylesheet\" href=\"utility.css\" type=\"text/css\">`
			`<title>OPML Utility</title>`
OPML import support for categories (rewritten using domxml) 2005-11-25 14:27:56 +01:00			`</head>`
fix OPML import handling uncategorized feeds, misc OPML touch-ups 2005-11-25 14:55:21 +01:00			`<body>`
opml/db updater tweaks 2007-03-02 15:08:00 +01:00			`<div class=\"floatingLogo\"><img src=\"images/ttrss_logo.png\"></div>`
			`<h1>"._('OPML Utility')."</h1>";`
OPML import 2005-09-02 13:49:47 +02:00
opml fixes 2007-03-02 14:58:51 +01:00			`if (function_exists('domxml_open_file')) {`
opml/db updater tweaks 2007-03-02 15:08:00 +01:00			`print "<p>Importing OPML (using DOMXML extension)...</p>";`
opml fixes 2007-03-02 14:58:51 +01:00			`require_once "modules/opml_domxml.php";`
			`opml_import_domxml($link, $owner_uid);`
OPML import support for categories (rewritten using domxml) 2005-11-25 14:27:56 +01:00			`} else {`
opml/db updater tweaks 2007-03-02 15:08:00 +01:00			`print "<p>Importing OPML (using DOMDocument extension)...</p>";`
opml fixes 2007-03-02 14:58:51 +01:00			`require_once "modules/opml_domdoc.php";`
			`opml_import_domdoc($link, $owner_uid);`
OPML import 2005-09-02 13:49:47 +02:00			`}`

interface tweaks 2007-03-02 14:34:04 +01:00			`print "<br><form method=\"GET\" action=\"prefs.php\">`
			`<input type=\"submit\" value=\"Return to preferences\">`
			`</form>";`
OPML import 2005-09-02 13:49:47 +02:00
opml fixes 2007-03-02 14:58:51 +01:00			`print "</body></html>";`
OPML import 2005-09-02 13:49:47 +02:00
			`}`

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