add Bugzilla->urlbase method that returns a URI object

1 files changed, 8 insertions, 0 deletions

diff --git a/Bugzilla.pm b/Bugzilla.pm
index 3e969a99d..1ab72431a 100644
--- a/Bugzilla.pm
+++ b/Bugzilla.pm
@@ -59,6 +59,7 @@ use Safe;
 use Sys::Syslog qw(:DEFAULT);
 use List::Util qw(any);
 use JSON::XS qw(decode_json);
+use URI;
 
 use parent qw(Bugzilla::CPAN);
 
@@ -272,6 +273,13 @@ sub localconfig {
     return $_[0]->process_cache->{localconfig} ||= read_localconfig();
 }
 
+sub urlbase {
+    my ($class) = @_;
+
+    # Since this could be modified, we have to return a new one every time.
+    return URI->new($class->localconfig->{urlbase});
+}
+
 sub params {
     return $_[0]->request_cache->{params} ||= Bugzilla::Config::read_param_file();
 }