use GEARMAN variable to specify server

diff --git a/web_ui.pl b/web_ui.pl
index 007177e..9b44455 100755 (executable)
--- a/web_ui.pl
+++ b/web_ui.pl
@@ -24,8 +24,7 @@ get '/ping_http' => sub {
 };
 
 my $gearman = MojoX::Gearman->new; #( ioloop => Mojo::IOLoop->singleton );
-#$gearman->server( 'localhost:4731' );
-$gearman->server( 'localhost:7003' );
+$gearman->server( $ENV{GEARMAN} || 'localhost:4730' );
 
 get '/ping_g' => sub {
        my $self = shift;