X-Git-Url: http://git.rot13.org/?p=angular-mojolicious.git;a=blobdiff_plain;f=couchdb-trigger.pl;h=1724b6703c024e2b36a7982d27014132cde44d3b;hp=77fa41c519b04ab89a8877be1bcffe80eb64a68d;hb=7efd2a182970ac20f26a41b7bd41d8adc3e001b8;hpb=ca311b5e1ab05f05bf44d402e49937ad8a668f29

diff --git a/couchdb-trigger.pl b/couchdb-trigger.pl
index 77fa41c..1724b67 100755
--- a/couchdb-trigger.pl
+++ b/couchdb-trigger.pl
@@ -25,6 +25,8 @@ 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;
 
@@ -81,7 +83,7 @@ while( ! $error ) {
 								if ( $tx->res->code == 409 ) {
 									info "TRIGGER ABORTED started on another worker? ", $tx->error;
 								} else {
-									info "ERROR ", $tx->error;
+									info "ERROR $url/$id ", $tx->error;
 								}
 							} else {
 								my $res = $tx->res->json;
@@ -95,7 +97,7 @@ while( ! $error ) {
 								$client->put( "$url/$id" => $json->encode( $change->{doc} ) => sub {
 									my ($client,$tx) = @_;
 									if ($tx->error) {
-										info "ERROR", $tx->error;
+										info "ERROR $url/$id", $tx->error;
 									} else {
 										my $res = $tx->res->json;
 										$change->{doc}->{_rev} = $res->{rev};