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	dpavlin	8	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use CouchDB::Deploy;
7
8	dpavlin	11	use strip;
9	dpavlin	8
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	dpavlin	11	# doc {
21			# _id => '_sync',
22			# key => '_sync',
23			# last_row_id => 0,
24			# };
25	dpavlin	8	design {
26			_id => '_design/count',
27			language => 'javascript',
28			views => {
29	dpavlin	11	'feed_items' => {
30			'map' => strip(qq\|
31	dpavlin	8	function(doc) {
32			emit(doc.feed_title, 1);
33			}
34	dpavlin	11	\|),
35			'reduce' => strip($reduce_count),
36	dpavlin	8	},
37			'tags' => {
38	dpavlin	11	'map' => strip(qq\|
39	dpavlin	8	function(doc) {
40			var tags = doc.category.split(/[\\s\/]/);
41			for(var i in tags) {
42			emit(tags[i], 1);
43			}
44			}
45	dpavlin	11	\|),
46			'reduce' => strip($reduce_count),
47	dpavlin	8	}
48			},
49	dpavlin	11	_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	dpavlin	8	};
79			};