summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xviewhtml4
1 files changed, 3 insertions, 1 deletions
diff --git a/viewhtml b/viewhtml
index 44d0f39..80eea55 100755
--- a/viewhtml
+++ b/viewhtml
@@ -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"
}