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 ()