[isidorus-cvs] r650 - trunk/src/rest_interface

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Wed Jul 20 06:36:04 2011
New Revision: 650

Log:
trunk: changed the configuration of the admin interface => is is possible to set the remote address of each admin handler

Modified:
   trunk/src/rest_interface/admin-interface.lisp
   trunk/src/rest_interface/rest-interface.lisp

Modified: trunk/src/rest_interface/admin-interface.lisp
==============================================================================
--- trunk/src/rest_interface/admin-interface.lisp	Wed Jul 20 06:08:04 2011	(r649)
+++ trunk/src/rest_interface/admin-interface.lisp	Wed Jul 20 06:36:04 2011	(r650)
@@ -33,7 +33,7 @@
 
 (defun admin-shutdown()
   (handler-case
-      (if (string= *admin-remote-name* (hunchentoot:remote-addr*))
+      (if (string= *shutdown-remote-address* (hunchentoot:remote-addr*))
 	  (progn
 	    (when elephant:*store-controller*
 	      (xtm-exporter:export-as-xtm
@@ -58,7 +58,7 @@
 
 (defun admin-local-backup()
   (handler-case
-      (if (string= *admin-remote-name* (hunchentoot:remote-addr*))
+      (if (string= *local-backup-remote-address* (hunchentoot:remote-addr*))
 	  (let ((destination-path
 		 (hunchentoot:url-decode (hunchentoot:get-parameter "path"))))
 	    (xtm-exporter:export-as-xtm destination-path :revision 0))
@@ -72,7 +72,7 @@
 
 (defun admin-remote-backup()
   (handler-case
-      (if (string= *admin-remote-name* (hunchentoot:remote-addr*))
+      (if (string= *remote-backup-remote-address* (hunchentoot:remote-addr*))
 	  (progn (hunchentoot:url-decode (hunchentoot:get-parameter "path"))
 		 (setf (hunchentoot:content-type*) "application/xml")
 		 (xtm-exporter:export-as-xtm-string :revision 0))

Modified: trunk/src/rest_interface/rest-interface.lisp
==============================================================================
--- trunk/src/rest_interface/rest-interface.lisp	Wed Jul 20 06:08:04 2011	(r649)
+++ trunk/src/rest_interface/rest-interface.lisp	Wed Jul 20 06:36:04 2011	(r650)
@@ -39,7 +39,9 @@
 	   :shutdown-admin-server
 	   :*admin-host-name*
 	   :*admin-port*
-	   :*admin-remote-name*
+	   :*remote-backup-remote-address*
+	   :*local-backup-remote-address*
+	   :*shutdown-remote-address*
 	   :*json-get-prefix*
 	   :*get-rdf-prefix*
 	   :*json-commit-url*
@@ -83,7 +85,9 @@
 (defvar *admin-server-acceptor* nil)
 (defvar *admin-host-name* "127.0.0.1")
 (defvar *admin-port* 11008)
-(defvar *admin-remote-name* "127.0.0.1")
+(defvar *remote-backup-remote-address* "127.0.0.1")
+(defvar *local-backup-remote-address* "127.0.0.1")
+(defvar *shutdown-remote-address* "127.0.0.1")
 
 
 (defun start-admin-server ()