couchdb/scripts/socialtext2couch.pl

#!/usr/bin/perl

# st2couch.pl
#
# 09/30/08 20:07:10 CEST Dobrica Pavlinusic <dpavlin@rot13.org>

use warnings;
use strict;

use Socialtext::Resting;
use CouchDB::Client;

my $database = 'razmjenavjestina';

our %opts;
require "$ENV{HOME}/.st.pl";


my $c = CouchDB::Client->new(uri => 'http://localhost:5984/');
$c->testConnection or die "The server cannot be reached";
print "CouchDB version " . $c->serverInfo->{version} . "\n";
my $db = $c->newDB( $database );
$db->delete if $c->dbExists( $database );
$db->create;

my $Rester = Socialtext::Resting->new(
        username => $opts{username},
        password => $opts{password},
        server   => $opts{server},
);

$Rester->workspace( $database );

foreach my $page ( $Rester->get_pages ) {
        my $_id = $page;
        $_id =~ s/\W/_/g;
        my $doc = $db->newDoc( $_id );
        my $row = {
                title => $page,
                tags => [ $Rester->get_pagetags( $page ) ],
                wiki => $Rester->get_page( $page ),
        };
        $doc->{data} = $row;
        $doc->create;
        warn "<< $page\n";
}
1	dpavlin	18	#!/usr/bin/perl
2
3			# st2couch.pl
4			#
5			# 09/30/08 20:07:10 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
6
7			use warnings;
8			use strict;
9
10			use Socialtext::Resting;
11			use CouchDB::Client;
12
13			my $database = 'razmjenavjestina';
14
15			our %opts;
16			require "$ENV{HOME}/.st.pl";
17
18
19			my $c = CouchDB::Client->new(uri => 'http://localhost:5984/');
20			$c->testConnection or die "The server cannot be reached";
21			print "CouchDB version " . $c->serverInfo->{version} . "\n";
22			my $db = $c->newDB( $database );
23			$db->delete if $c->dbExists( $database );
24			$db->create;
25
26			my $Rester = Socialtext::Resting->new(
27			username => $opts{username},
28			password => $opts{password},
29			server => $opts{server},
30			);
31
32			$Rester->workspace( $database );
33
34			foreach my $page ( $Rester->get_pages ) {
35			my $_id = $page;
36			$_id =~ s/\W/_/g;
37			my $doc = $db->newDoc( $_id );
38			my $row = {
39			title => $page,
40			tags => [ $Rester->get_pagetags( $page ) ],
41			wiki => $Rester->get_page( $page ),
42			};
43			$doc->{data} = $row;
44			$doc->create;
45			warn "<< $page\n";
46			}