X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=couchdb-trigger.pl;h=2ec5705828522bf229eb797cb6ffe5b7776f57f1;hb=5f0af337bfc90253de767739ba626e334cad7faa;hp=db5acb0955e6a0501ccf1a79c7c2bf2c3a65b0bf;hpb=a13c79fac33963a72d09281de0265af02efabe98;p=angular-mojolicious.git

diff --git a/couchdb-trigger.pl b/couchdb-trigger.pl
index db5acb0..2ec5705 100755
--- a/couchdb-trigger.pl
+++ b/couchdb-trigger.pl
@@ -15,7 +15,7 @@ use strict;
 
 use lib 'common/mojo/lib';
 
-use Mojo::Client;
+use Mojo::UserAgent;
 use Mojo::JSON;
 use Time::HiRes qw(time);
 use Data::Dump qw(dump);
@@ -25,12 +25,14 @@ my ( $url, $trigger_path ) = @ARGV;
 $url          ||= 'http://localhost:5984/monitor';
 $trigger_path ||= 'trigger/shell.pm' ;
 
+our $database = $1 if $url =~ m{/(\w+)/?$};
+
 sub commit { warn "# commit ignored\n"; }
 require $trigger_path if -e $trigger_path;
 
 my $seq = 0;
 
-my $client = Mojo::Client->new;
+my $client = Mojo::UserAgent->new;
 our $json   = Mojo::JSON->new;
 sub info { warn $_[0], " ",$json->encode($_[1]),$/ }
 sub debug { info "# $_[0]", $_[1] }