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

[lgiessmann at common-lisp.net]

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