From 956c762979b6751f1cbe369df6a92f4640808724 Mon Sep 17 00:00:00 2001
From: Andrew Dolgov <fox@madoka.spb.ru>
Date: Tue, 16 May 2006 08:33:51 +0100
Subject: add xmlrpc library & server

---
 xml-rpc.php | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 xml-rpc.php

(limited to 'xml-rpc.php')

diff --git a/xml-rpc.php b/xml-rpc.php
new file mode 100644
index 000000000..9bfc25e52
--- /dev/null
+++ b/xml-rpc.php
@@ -0,0 +1,62 @@
+<?
+	require "xmlrpc/lib/xmlrpc.inc";
+	require "xmlrpc/lib/xmlrpcs.inc";
+
+	require_once "sanity_check.php";
+	require_once "config.php";
+	
+	require_once "db.php";
+	require_once "db-prefs.php";
+	require_once "functions.php";
+
+	$link = db_connect(DB_HOST, DB_USER, DB_PASS, DB_NAME);	
+
+	if (!$link) {
+		if (DB_TYPE == "mysql") {
+			print mysql_error();
+		}
+		// PG seems to display its own errors just fine by default.		
+		return;
+	}
+
+	if (DB_TYPE == "pgsql") {
+		pg_query("set client_encoding = 'utf-8'");
+	}
+
+	function subscribeToFeed($msg) {
+	#		$value = new xmlrpcval("OK");
+
+		global $link;
+
+		$login_o = $msg->getParam(0);
+		$pass_o = $msg->getParam(1);
+		$feed_url_o = $msg->getParam(2);
+	
+		$login = $login_o->scalarval();
+		$pass = $pass_o->scalarval();
+		$feed_url = $feed_url_o->scalarval();
+	
+		$user_id = authenticate_user($link, $login, $pass);
+
+		if (authenticate_user($link, $login, $pass)) {
+			if (subscribe_to_feed($link, $feed_url)) {
+				$reply_msg = "Subscribed successfully.";
+			} else {
+				$reply_msg = "Feed already exists in the database.";
+			}		
+		} else {
+			$reply_msg = "Login failed.";
+		}
+		
+		return new xmlrpcresp(new xmlrpcval($reply_msg));
+	}
+
+	$subscribeToFeed_sig = array(array($xmlrpcString,
+		$xmlrpcString, $xmlrpcString, $xmlrpcString));
+		
+	$s = new xmlrpc_server( 
+			array(
+			  "rss.subscribeToFeed" => array("function" => "subscribeToFeed",
+		  			"signature" => $subscribeToFeed_sig))
+			);
+?>
-- 
cgit v1.2.3