/[couchdb]/scripts/reblog2couchdb.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /scripts/reblog2couchdb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 15 by dpavlin, Thu Aug 28 21:53:49 2008 UTC revision 26 by dpavlin, Fri Mar 27 19:33:12 2009 UTC
# Line 45  where Line 45  where
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";
# Line 54  $db->create unless $c->dbExists( $databa Line 54  $db->create unless $c->dbExists( $databa
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    
Legend:
Removed from v.15  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.26