45 |
order by items_userdata.item_id asc |
order by items_userdata.item_id asc |
46 |
}; |
}; |
47 |
|
|
48 |
my $c = CouchDB::Client->new(uri => 'http://localhost:5984/'); |
my $c = CouchDB::Client->new(uri => 'http://192.168.1.13:5984/'); |
49 |
|
|
50 |
$c->testConnection or die "The server cannot be reached"; |
$c->testConnection or die "The server cannot be reached"; |
51 |
print "CouchDB version " . $c->serverInfo->{version} . "\n"; |
print "CouchDB version " . $c->serverInfo->{version} . "\n"; |
54 |
|
|
55 |
my $status = $db->newDoc( '_sync' ); |
my $status = $db->newDoc( '_sync' ); |
56 |
eval { $status->retrieve }; |
eval { $status->retrieve }; |
57 |
$status->create if $@; |
eval { $status->create } if $@; |
58 |
|
|
59 |
print "status ",dump( $status->{data} ), "\n"; |
print "status ",dump( $status->{data} ), "\n"; |
60 |
|
|