Author: lgiessmann Date: Wed Jul 20 06:08:04 2011 New Revision: 649

Log: trunk: the default address of the administrator can be set with the viriable rest-interface:*admin-remote-name* for usage in the RESTful admin handlers

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

Modified: trunk/src/rest_interface/admin-interface.lisp ============================================================================== --- trunk/src/rest_interface/admin-interface.lisp Tue Jul 19 08:15:01 2011 (r648) +++ trunk/src/rest_interface/admin-interface.lisp Wed Jul 20 06:08:04 2011 (r649) @@ -58,7 +58,7 @@

(defun admin-local-backup() (handler-case - (if (string= "127.0.0.1" (hunchentoot:remote-addr*)) + (if (string= *admin-remote-name* (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= "127.0.0.1" (hunchentoot:remote-addr*)) + (if (string= *admin-remote-name* (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))