Changeset 650 for trunk/src/rest_interface

Timestamp:

07/20/11 13:36:04 (14 years ago)

Author:

lgiessmann

Message:

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

Location:

trunk/src/rest_interface

Files:

• admin-interface.lisp (modified) (3 diffs)
• rest-interface.lisp (modified) (2 diffs)

trunk/src/rest_interface/admin-interface.lisp ¶

@@ -34 +34 @@
 (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*
@@ -59 +59 @@
 (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"))))
@@ -73 +73 @@
 (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")

trunk/src/rest_interface/rest-interface.lisp ¶

@@ -40 +40 @@
            :*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*
@@ -84 +86 @@
 (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")