projects
/
angular-mojolicious.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix database name in view
[angular-mojolicious.git]
/
couchdb-changes.pl
diff --git
a/couchdb-changes.pl
b/couchdb-changes.pl
index
2b0fadb
..
3cb1637
100755
(executable)
--- a/
couchdb-changes.pl
+++ b/
couchdb-changes.pl
@@
-7,15
+7,13
@@
use strict;
use lib 'common/mojo/lib';
use lib 'common/mojo/lib';
-use Mojo::
Cli
ent;
+use Mojo::
UserAg
ent;
use Mojo::JSON;
use Mojo::JSON;
-use Data::Dump qw(dump);
-use JSON::XS;
my $url = 'http://localhost:5984/monitor/_changes?feed=continuous;include_docs=true;since=';
my $seq = 0;
my $url = 'http://localhost:5984/monitor/_changes?feed=continuous;include_docs=true;since=';
my $seq = 0;
-my $client = Mojo::
Cli
ent->new;
+my $client = Mojo::
UserAg
ent->new;
my $json = Mojo::JSON->new;
my $error;
my $json = Mojo::JSON->new;
my $error;
@@
-51,10
+49,10
@@
while( ! $error ) {
my $rev = $data->{changes}->[0]->{rev} || warn "no rev?";
$seq = $data->{seq} || warn "no seq?";
my $rev = $data->{changes}->[0]->{rev} || warn "no rev?";
$seq = $data->{seq} || warn "no seq?";
- warn "#
",dump( $data
); # FIXME custom code here
+ warn "#
doc ", $json->encode( $data->{doc}
); # FIXME custom code here
} else {
} else {
- warn "UNKNOWN",
dump
($data);
+ warn "UNKNOWN",
$json->encode
($data);
}
}
}
}
@@
-64,4
+62,4
@@
while( ! $error ) {
}
}
-die
dump
($error) if $error;
+die
"ERROR ", $json->encode
($error) if $error;