aboutsummaryrefslogtreecommitdiff
path: root/IkiWiki/CGI.pm
diff options
context:
space:
mode:
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2006-12-31 22:28:08 +0000
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2006-12-31 22:28:08 +0000
commit39d78ce54c179aa02974eb7c112c6a8b62d74dd0 (patch)
tree903b45376159bf3dbcdb08aab093940538ce10d9 /IkiWiki/CGI.pm
parent67411bebc121241078e5da0538371db09f2e8ad3 (diff)
downloadikiwiki-39d78ce54c179aa02974eb7c112c6a8b62d74dd0.tar
ikiwiki-39d78ce54c179aa02974eb7c112c6a8b62d74dd0.tar.gz
deal with http:// part
Diffstat (limited to 'IkiWiki/CGI.pm')
-rw-r--r--IkiWiki/CGI.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/IkiWiki/CGI.pm b/IkiWiki/CGI.pm
index 83ed959c0..d23cf5d02 100644
--- a/IkiWiki/CGI.pm
+++ b/IkiWiki/CGI.pm
@@ -666,9 +666,9 @@ sub userlink ($) { #{{{
if ($display !~ /\[/) {
$display=~s/^(.*?)\.([^.]+\.[a-z]+)$/$1 [$2]/;
}
- # Convert "somehost.com/user" to "user [somehost.com]".
+ # Convert "http://somehost.com/user" to "user [somehost.com]".
if ($display !~ /\[/) {
- $display=~s/^(.+)\/[^\/](.+)$/$2 [$1]/;
+ $display=~s/^https?:\/\/(.+)\/[^\/](.+)$/$2 [$1]/;
}
$display=~s!^https?://!!; # make sure this is removed
return "<a href=\"$user\">".escapeHTML($display)."</a>";