/[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 26 by dpavlin, Fri Mar 27 19:33:12 2009 UTC revision 27 by dpavlin, Fri Apr 24 23:28:52 2009 UTC
# Line 52  print "CouchDB version " . $c->serverInf Line 52  print "CouchDB version " . $c->serverInf
52  my $db = $c->newDB( $database );  my $db = $c->newDB( $database );
53  $db->create unless $c->dbExists( $database );  $db->create unless $c->dbExists( $database );
54    
55  my $status = $db->newDoc( '_sync' );  my $status = $db->newDoc( 'last_sync' );
56  eval { $status->retrieve };  eval { $status->retrieve };
57  eval { $status->create } if $@;  $status->create if $@;
58    
59  print "status ",dump( $status->{data} ), "\n";  print "status ",dump( $status->{data} ), "\n";
60    
Legend:
Removed from v.26  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.26