couchdb/deploy/reblog.pl

#!/usr/bin/perl

use warnings;
use strict;

use CouchDB::Deploy;

use strip;

my $reduce_count = qq|
function (Key, Values) {
        var sum = 0;
        for(var i in Values)
                sum += Values[i];
        return sum;
}
|;

db 'reblog/', containing {
#       doc {
#               _id => '_sync',
#               key => '_sync',
#               last_row_id => 0,
#       };
        design {
                _id              => '_design/count',
                language        => 'javascript',
                views   => {
                        'feed_items' => {
                                'map' => strip(qq|
                                        function(doc) {
                                                emit(doc.feed_title, 1);
                                        }
                                |),
                                'reduce' => strip($reduce_count),
                        },
                        'tags' => {
                                'map' => strip(qq|
                                        function(doc) {
                                                var tags = doc.category.split(/[\\s\/]/);
                                                for(var i in tags) {
                                                        emit(tags[i], 1);
                                                }
                                        }
                                |),
                                'reduce' => strip($reduce_count),
                        }
                },
                _id              => '_design/items',
                language        => 'javascript',
                views   => {
                        'by_feed' => {
                                'map' => strip(qq|
                                        function(doc) {
                                                emit(
                                                        [ doc.feed_title, doc.feed_link ],
                                                        [ doc.title, doc.link ]
                                                );
                                        }
                                |),
                                'reduce' => strip(qq|
                                        function (k, v) {
                                                return v;
                                        }
                                |),
                        },
                        'by_date' => {
                                'map' => strip(qq|
function(doc) {
        emit(
                [ doc.insert_timestamp, doc.feed_title, doc.feed_link ],
                [ doc.title, doc.link ]
        );
}
                                |),
                        }
                },
        };
};
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use CouchDB::Deploy;
7
8	use strip;
9
10	my $reduce_count = qq\|
11	function (Key, Values) {
12	var sum = 0;
13	for(var i in Values)
14	sum += Values[i];
15	return sum;
16	}
17	\|;
18
19	db 'reblog/', containing {
20	# doc {
21	# _id => '_sync',
22	# key => '_sync',
23	# last_row_id => 0,
24	# };
25	design {
26	_id => '_design/count',
27	language => 'javascript',
28	views => {
29	'feed_items' => {
30	'map' => strip(qq\|
31	function(doc) {
32	emit(doc.feed_title, 1);
33	}
34	\|),
35	'reduce' => strip($reduce_count),
36	},
37	'tags' => {
38	'map' => strip(qq\|
39	function(doc) {
40	var tags = doc.category.split(/[\\s\/]/);
41	for(var i in tags) {
42	emit(tags[i], 1);
43	}
44	}
45	\|),
46	'reduce' => strip($reduce_count),
47	}
48	},
49	_id => '_design/items',
50	language => 'javascript',
51	views => {
52	'by_feed' => {
53	'map' => strip(qq\|
54	function(doc) {
55	emit(
56	[ doc.feed_title, doc.feed_link ],
57	[ doc.title, doc.link ]
58	);
59	}
60	\|),
61	'reduce' => strip(qq\|
62	function (k, v) {
63	return v;
64	}
65	\|),
66	},
67	'by_date' => {
68	'map' => strip(qq\|
69	function(doc) {
70	emit(
71	[ doc.insert_timestamp, doc.feed_title, doc.feed_link ],
72	[ doc.title, doc.link ]
73	);
74	}
75	\|),
76	}
77	},
78	};
79	};