diff options
| author | Joey Hess <joey@kitenet.net> | 2011-01-05 16:18:25 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-05 16:18:25 -0400 |
| commit | c91b39fdb52c935fbca20ca55a256278f4661a5b (patch) | |
| tree | 884460c13dd9165f0bbdd313ac4387cfb1eaf756 /IkiWiki.pm | |
| parent | 49928906b0f643bca968bc8d82bdaa473d81e251 (diff) | |
| download | ikiwiki-c91b39fdb52c935fbca20ca55a256278f4661a5b.tar ikiwiki-c91b39fdb52c935fbca20ca55a256278f4661a5b.tar.gz | |
factored out an urlabs from aggregate and cgi
Diffstat (limited to 'IkiWiki.pm')
| -rw-r--r-- | IkiWiki.pm | 8 |
1 files changed, 8 insertions, 0 deletions
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 |