[Products/SiteAccess] handle wildcard on rewrite url

CHANGES.rst

@@ -11,7 +11,10 @@ https://github.com/zopefoundation/Zope/blob/4.0a6/CHANGES.rst
 4.0b8 (unreleased)
 ------------------
 
-- Nothing changed yet.
+New features
+++++++++++++
+
+- Add wildcard rewrite to sub host name in virtualHostMonster.
 
 
 4.0b7 (2018-10-30)

src/Products/SiteAccess/VirtualHostMonster.py

@@ -173,6 +173,8 @@ def __call__(self, client, request, response=None):
                         stack[ii] = self.id
                         stack.insert(ii, '/')
                         ii += 1
+                    if '*' in stack:
+                      stack[stack.index('*')] = host.split('.')[0]
                     path = stack[:ii]
                     # If the directive is on top of the stack, go ahead
                     # and process it right away.

src/Products/SiteAccess/tests/testVirtualHostMonster.py

@@ -98,6 +98,13 @@ def test_actual_url_w_VHR_no_doc_no_trailing_slash(self):
         self.assertEqual(self.app.REQUEST['ACTUAL_URL'],
                          'http://www.mysite.com/')
 
+    def testWildcardRewrite(self):
+        ob = self.traverse('/VirtualHostBase/http/doc.example.com:80'
+                      '/folder/*/VirtualHostRoot')
+        self.assertEqual(self.app.REQUEST['ACTUAL_URL'],
+                         'http://doc.example.com/')
+        self.assertEqual(ob.getPhysicalPath(), ('', 'folder', 'doc'))
+
 
 def gen_cases():
     for vbase, ubase in (