scripts/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;
        }
|;

my $reduce_join = qq|
        function (k, v, c) {
                if ( c ) {
                        a = v.shift();
                        //log( a ); log( v );
                        while ( v.length ) {
                                //log( v.length );
                                e = v.shift();
                                //log( e );
                                a.concat( e );
                        }
                        return a;
                } else {
                        return v;
                }
        }
|;

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(q#
                                        function(doc) {
                                                emit(
                                                        [ doc.feed_title, doc.feed_link || doc.feed_url ],
                                                        [ doc.title, doc.link ]
                                                );
                                        }
                                #),
                                'reduce' => strip($reduce_join),
                        },
                        'by_feed_html' => {
                                'map' => strip(qq|
                                        function(doc) {
                                                emit(
                                                        [ doc.feed_title, doc.feed_link ],
                                                        '<a href="' + doc.link + '">' + doc.title + '</a>'
                                                );
                                        }
                                |),
                                'reduce' => strip($reduce_join),
                        },
                        'by_date' => {
                                'map' => strip(qq|
                                        function(doc) {
                                                emit(
                                                        [ doc.insert_timestamp, doc.feed_title, doc.feed_link ],
                                                        [ doc.title, doc.link ]
                                                );
                                        }
                                |),
                        }
                },
        };
};
1	dpavlin	19	#!/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			my $reduce_join = qq\|
20			function (k, v, c) {
21			if ( c ) {
22			a = v.shift();
23			//log( a ); log( v );
24			while ( v.length ) {
25			//log( v.length );
26			e = v.shift();
27			//log( e );
28			a.concat( e );
29			}
30			return a;
31			} else {
32			return v;
33			}
34			}
35			\|;
36
37			db 'reblog/', containing {
38			# doc {
39			# _id => '_sync',
40			# key => '_sync',
41			# last_row_id => 0,
42			# };
43			design {
44			_id => '_design/count',
45			language => 'javascript',
46			views => {
47			'feed_items' => {
48			'map' => strip(qq\|
49			function(doc) {
50			emit(doc.feed_title, 1);
51			}
52			\|),
53			'reduce' => strip($reduce_count),
54			},
55			'tags' => {
56			'map' => strip(qq\|
57			function(doc) {
58			var tags = doc.category.split(/[\\s\/]/);
59			for(var i in tags) {
60			emit(tags[i], 1);
61			}
62			}
63			\|),
64			'reduce' => strip($reduce_count),
65			}
66			},
67			_id => '_design/items',
68			language => 'javascript',
69			views => {
70			'by_feed' => {
71	dpavlin	23	'map' => strip(q#
72	dpavlin	19	function(doc) {
73			emit(
74	dpavlin	23	[ doc.feed_title, doc.feed_link \|\| doc.feed_url ],
75	dpavlin	19	[ doc.title, doc.link ]
76			);
77			}
78	dpavlin	23	#),
79	dpavlin	19	'reduce' => strip($reduce_join),
80			},
81			'by_feed_html' => {
82			'map' => strip(qq\|
83			function(doc) {
84			emit(
85			[ doc.feed_title, doc.feed_link ],
86			'<a href="' + doc.link + '">' + doc.title + '</a>'
87			);
88			}
89			\|),
90			'reduce' => strip($reduce_join),
91			},
92			'by_date' => {
93			'map' => strip(qq\|
94			function(doc) {
95			emit(
96			[ doc.insert_timestamp, doc.feed_title, doc.feed_link ],
97			[ doc.title, doc.link ]
98			);
99			}
100			\|),
101			}
102			},
103			};
104			};