Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v diff -u -r1.118.2.26 -r1.118.2.27 --- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 11 Jun 2016 08:42:19 -0000 1.118.2.26 +++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 18 Aug 2016 04:50:09 -0000 1.118.2.27 @@ -1700,13 +1700,15 @@ } ad_proc -private rp_lookup_node_from_host { host } { - if {![regexp {^[\w.@+/=$%!*~\[\]-]+$} $host]} { - binary scan [encoding convertto utf-8 $host] H* hex - ad_log error "rp_lookup_node_from_host: host <$host> (hex $hex) contains invalid characters" - ad_return_complaint 1 "invalid request" - ad_script_abort + if {$host ne ""} { + if {![regexp {^[\w.@+/=$%!*~\[\]-]+$} $host]} { + binary scan [encoding convertto utf-8 $host] H* hex + ad_log error "rp_lookup_node_from_host: host <$host> (hex $hex) contains invalid characters" + ad_return_complaint 1 "invalid request" + ad_script_abort + } + return [db_string node_id {} -default ""] } - return [db_string node_id {} -default ""] }