From 161f5a91352ca45883315a962477f8a7dfffc9ea Mon Sep 17 00:00:00 2001
From: Adam Zammit <adam.zammit@acspri.org.au>
Date: Tue, 10 Jan 2017 15:31:03 +1100
Subject: [PATCH] Add ability to connect to Lime RPC servers with basic error
 checking

---
 admin/index.php                    |   1 +
 admin/remote.php                   | 139 +++++++++++++++++++++++++++++
 functions/functions.limesurvey.php |  31 +++++++
 3 files changed, 171 insertions(+)
 create mode 100644 admin/remote.php

diff --git a/admin/index.php b/admin/index.php
index eed00332..3ff27841 100644
--- a/admin/index.php
+++ b/admin/index.php
@@ -187,6 +187,7 @@ include ("../functions/functions.operator.php");
           </li>
           <li class="has_sub"><a href="" class=""><i class="fa fa-lg fa-gear"></i><span><?php print T_("System settings") ;?></span></a>
               <ul style="<?php if ($g == 9) echo "display:block";?>">
+			    <li><a href="?g=9&amp;page=remote.php"><i class="fa fa-server fa-fw"></i><?php print T_("Questionnaire service (RPC)") ;?></a></li>
 			    <li><a href="?g=9&amp;page=set_outcomes.php?default"><i class="fa fa-list-ol fa-fw"></i><?php print T_("Set default outcomes") ;?></a></li>
                 <li><a href="?g=9&amp;page=timezonetemplate.php"><i class="fa fa-globe fa-fw"></i><?php print T_("Set default timezone list") ;?></a></li>
 				<li><a href="?g=9&amp;page=availabilitygroup.php"><i class="fa fa-clock-o fa-fw"></i><?php print T_("Manage Time slots") ;?></a></li>
diff --git a/admin/remote.php b/admin/remote.php
new file mode 100644
index 00000000..61bf51f9
--- /dev/null
+++ b/admin/remote.php
@@ -0,0 +1,139 @@
+<?php 
+/**
+ * List and create remote connections to questionnaire servers
+ *
+ *
+ *	This file is part of queXS
+ *	
+ *	queXS is free software; you can redistribute it and/or modify
+ *	it under the terms of the GNU General Public License as published by
+ *	the Free Software Foundation; either version 2 of the License, or
+ *	(at your option) any later version.
+ *	
+ *	queXS is distributed in the hope that it will be useful,
+ *	but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *	GNU General Public License for more details.
+ *	
+ *	You should have received a copy of the GNU General Public License
+ *	along with queXS; if not, write to the Free Software
+ *	Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ *
+ *
+ * @author Adam Zammit <adam.zammit@acspri.org.au>
+ * @copyright Australian Consortium for Social and Political Research Inc (2011)
+ * @package queXS
+ * @subpackage admin
+ * @link http://www.acspri.org.au/ queXS was writen for ACSPRI
+ * @license http://opensource.org/licenses/gpl-2.0.php The GNU General Public License (GPL) Version 2
+ * 
+ *
+ */
+
+/**
+ * Configuration file
+ */
+include("../config.inc.php");
+
+/**
+ * Database file
+ */
+include ("../db.inc.php");
+
+/**
+ * Authentication file
+ */
+require ("auth-admin.php");
+
+/**
+ * XHTML functions
+ */
+include("../functions/functions.xhtml.php");
+
+/**
+ * Display functions
+ */
+include("../functions/functions.display.php");
+
+/**
+ * Input functions
+ */
+include("../functions/functions.input.php");
+
+/**
+ * Limesurvey functions
+ */
+include("../functions/functions.limesurvey.php");
+
+$css = array(
+"../include/bootstrap/css/bootstrap.min.css", 
+"../css/custom.css"
+			);
+$js_head = array(
+				);
+$js_foot = array(
+"../js/window.js",
+"../js/custom.js"
+				);
+global $db;
+
+xhtml_head(T_("Questionnaire services"),true,$css,$js_head);//array("../css/table.css"),array("../js/window.js")
+
+$error = false;
+
+if (isset($_POST['description']))
+{
+  $test = limerpc_init($_POST['rpc_url'],$_POST['username'],$_POST['password']);
+
+  if ($test === true) {
+  	$description = $db->qstr($_POST['description']);
+  	$rpc_url = $db->qstr($_POST['rpc_url']);
+  	$username = $db->qstr($_POST['username']);
+  	$password = $db->qstr($_POST['password']);
+  	$entry_url = $db->qstr($_POST['entry_url']);
+  	
+  	$sql = "INSERT INTO `remote` (description,rpc_url,username,password,entry_url)
+  		VALUES ($description,$rpc_url,$username,$password,$entry_url)";
+  
+  	$db->Execute($sql);
+  } else {
+    $error = $test;
+  }
+}
+	
+//view groups
+$sql = "SELECT id, rpc_url, username, description,
+	CONCAT('<a href=\'?id=',id, '\'>". TQ_("Modify") . "</a>') as link 
+	FROM remote";
+	
+	$rs = $db->GetAll($sql);
+
+print "<div class='well'>" . T_("Questionnaire services available. Services include Limesurvey remote control.") . "</div>";
+
+if ($error !== false) {
+  print "<div class='alert alert-danger'>" . T_("Service not added. Error: ") . $error . "</div>";
+
+}
+
+if (empty($rs))
+	print "<div class='alert alert-danger'>" . T_("No questionnaire services defined") . "</div>";
+else{
+	print "<div class='panel-body col-sm-6'>";
+		xhtml_table($rs,array("id","description","link"),array(T_("ID"),T_("Service"),T_("Modify")),"table table-hover");
+	print "</div>";
+}
+
+//add a service
+?>
+<div class=" panel-body col-sm-4"><form method="post" action="?">
+	<h3><?php echo T_("Add new questionnaire service")," :";?></h3>
+	<p><input type="text" class="textclass form-control" name="description" id="description" placeholder="<?php echo T_("Enter"),"&ensp;",T_("new"),"&ensp;",T_("Questionnaire service descripion"); ?>"/></p>
+	<p><input type="text" class="textclass form-control" name="rpc_url" id="rpc_url" placeholder="<?php echo T_("RPC Url (eg: http://localhost/limesurvey/admin/remotecontrol)"); ?>"/></p>
+	<p><input type="text" class="textclass form-control" name="username" id="username" placeholder="<?php echo T_("Username (eg: admin)"); ?>"/></p>
+	<p><input type="text" class="textclass form-control" name="password" id="password" placeholder="<?php echo T_("Password (eg: password)"); ?>"/></p>
+  <p><input type="text" class="textclass form-control" name="entry_url" id="entry_url" placeholder="<?php echo T_("Questionnaire entry Url (eg: http://localhost/limesurvey/)"); ?>"/></p>
+	<p><input class="submitclass btn btn-default" type="submit" name="submit" value="<?php  echo T_("Add questionnaire serivce"); ?>"/></p>
+</form></div>
+<?php 
+xhtml_foot($js_foot);
+?>
diff --git a/functions/functions.limesurvey.php b/functions/functions.limesurvey.php
index 5f7d9dae..a3bbf8e1 100644
--- a/functions/functions.limesurvey.php
+++ b/functions/functions.limesurvey.php
@@ -42,6 +42,37 @@ include_once(dirname(__FILE__).'/../config.inc.php');
  */
 include_once(dirname(__FILE__).'/../db.inc.php');
 
+/**
+ * JSON RPC
+ */
+include_once(dirname(__FILE__).'/../include/JsonRPCClient.php');
+
+
+$limeRPC = "";
+$limeKey = "";
+
+function limerpc_init ($url,$user,$pass)
+{
+  global $limeRPC;
+  global $limeKey;
+
+  $limeRPC = new \org\jsonrpcphp\JsonRPCClient($url);
+
+  try {
+    $limeKey = $limeRPC->get_session_key($user,$pass);  
+  } catch (Exception $e) {
+    return $e->getMessage();  
+  }
+
+  if (is_array($limeKey) && isset($limeKey['status'])) {
+    return $limeKey['status'];
+  }
+  
+  return true;
+}
+
+
+
 
 /**
  * Strip comments from email taken from limesurvey common functions