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	#!/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	}