diff options
Diffstat (limited to 'IkiWiki')
| -rw-r--r-- | IkiWiki/CGI.pm | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/IkiWiki/CGI.pm b/IkiWiki/CGI.pm index df5179834..bdd190d4b 100644 --- a/IkiWiki/CGI.pm +++ b/IkiWiki/CGI.pm @@ -58,19 +58,27 @@ sub showform_preview ($$$$;@) { my $cgi=shift; my %params=@_; - eval q{use URI}; - # The base url needs to be a full URL. If urlto returns relative, - # force it absolute, using the same URL scheme used for the cgi. - my $baseurl = URI->new_abs(urlto($params{page}), $cgi->url); + # The base url needs to be a full URL, and urlto may return a path. + my $baseurl = absurl(urlto($params{page}), $cgi->url); showform($form, $buttons, $session, $cgi, @_, forcebaseurl => $baseurl); } +# Forces a partial url (path only) to absolute, using the same +# URL scheme as the CGI. Full URLs are left unchanged. +sub absurl ($$) { + my $partialurl=shift; + my $q=shift; + + eval q{use URI}; + return URI->new_abs($partialurl, $q); +} + sub redirect ($$) { my $q=shift; eval q{use URI}; - my $url=URI->new(shift); + my $url=URI->new(absurl(shift, $q)); if (! $config{w3mmode}) { print $q->redirect($url); } |