From c91b39fdb52c935fbca20ca55a256278f4661a5b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 5 Jan 2011 16:18:25 -0400 Subject: factored out an urlabs from aggregate and cgi --- IkiWiki.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'IkiWiki.pm') diff --git a/IkiWiki.pm b/IkiWiki.pm index e963471e4..ef8ccb2da 100644 --- a/IkiWiki.pm +++ b/IkiWiki.pm @@ -1068,6 +1068,14 @@ sub baseurl (;$) { return $page; } +sub urlabs ($$) { + my $url=shift; + my $urlbase=shift; + + eval q{use URI}; + URI->new_abs($url, $urlbase)->as_string; +} + sub abs2rel ($$) { # Work around very innefficient behavior in File::Spec if abs2rel # is passed two relative paths. It's much faster if paths are -- cgit v1.2.3