projects
/
angular-mojolicious.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
we don't receive duplicates from Mojo::Client
[angular-mojolicious.git]
/
couchdb-changes.pl
diff --git
a/couchdb-changes.pl
b/couchdb-changes.pl
index
ebdac86
..
2b0fadb
100755
(executable)
--- a/
couchdb-changes.pl
+++ b/
couchdb-changes.pl
@@
-14,7
+14,6
@@
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;
-our $last_id_rev = '';
my $client = Mojo::Client->new;
my $json = Mojo::JSON->new;
my $client = Mojo::Client->new;
my $json = Mojo::JSON->new;
@@
-52,12
+51,7
@@
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?";
- if ( $last_id_rev eq "$id $rev" ) {
- warn "# duplicate $last_id_rev\n";
- } else {
- $last_id_rev = "$id $rev";
- warn "# ",dump( $data );
- }
+ warn "# ",dump( $data ); # FIXME custom code here
} else {
warn "UNKNOWN", dump($data);
} else {
warn "UNKNOWN", dump($data);