[libweasel-perl] 03/07: Add the possibility to use an environment variable for base_url

[Robert James Clay]

This is an automated email from the git hooks/post-receive script.

jame-guest pushed a commit to tag v0.08
in repository libweasel-perl.

commit f75f1819db317988f9b1c8fd84f7e660f278e9b6
Author: Yves Lavoie <ylavoie at yveslavoie.com>
Date:   Fri Aug 26 14:16:17 2016 -0400

    Add the possibility to use an environment variable for base_url
---
 lib/Weasel/Session.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/Weasel/Session.pm b/lib/Weasel/Session.pm
index af700fb..9878068 100644
--- a/lib/Weasel/Session.pm
+++ b/lib/Weasel/Session.pm
@@ -73,6 +73,9 @@ has 'widget_groups' => (is => 'rw');
 
 Holds the prefix that will be prepended to every URL passed
 to this API.
+The prefix can be an environment variable, e.g. ${VARIABLE}.
+It will be expanded and default to hppt://localhost:5000 if not defined.
+If it is not an environment variable, it will be used as is.
 
 =cut
 
@@ -223,7 +226,10 @@ after prefixing with C<base_url>.
 sub get {
     my ($self, $url) = @_;
 
-    $url = $self->base_url . $url;
+    my $base = $self->base_url =~ /\$\{([a-zA-Z0-9_]+)\}/
+             ? $ENV{$1} // "http://localhost:5000"
+             : $self->base_url;
+    $url = $base . $url;
     ###TODO add logging warning of urls without protocol part
     # which might indicate empty 'base_url' where one is assumed to be set
     $self->driver->get($url);

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libweasel-perl.git