diff options
Diffstat (limited to 'viewhtml')
-rwxr-xr-x | viewhtml | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -43,8 +43,10 @@ proc makeAddress {address} { global baseAddress if {1 == [regexp {^https?.*} $address]} { return "$address" - } elseif {1 == [regexp {^/.*} $address]} { + } elseif {1 == [regexp {^/[^/].*} $address]} { return "[regsub {(https?://[^/]+)/.*} $baseAddress {\1}]$address" + } elseif {1 == [regexp {^//.*} $address]} { + return "https:$address" } else { return "$baseAddress$address" } |