From: Fredrik Tolf <fredrik@dolda2000.com>
Date: Wed, 21 Mar 2018 16:14:59 +0000 (+0100)
Subject: Added option to strip querystring from requrl.
X-Git-Url: http://dolda2000.com/gitweb/?p=wrw.git;a=commitdiff_plain;h=51a13716668cc48bf87e0d0296f8b9900fafe83b

Added option to strip querystring from requrl.
---

diff --git a/wrw/proto.py b/wrw/proto.py
index 628bfc9..80e2419 100644
--- a/wrw/proto.py
+++ b/wrw/proto.py
@@ -168,11 +168,16 @@ def scripturl(req):
         raise Exception("Malformed local part when reconstructing URL")
     return siteurl(req) + req.uriname[1:]
 
-def requrl(req):
+def requrl(req, qs=True):
     s = siteurl(req)
     if req.uri[0] != '/':
         raise Exception("Malformed local part when reconstructing URL")
-    return siteurl(req) + req.uri[1:]
+    pf = req.uri[1:]
+    if not qs:
+        p = pf.find('?')
+        if not p < 0:
+            pf = pf[:p]
+    return siteurl(req) + pf
 
 def parstring(pars={}, **augment):
     buf = ""