remove messages from CRON

[pxelator] / couchdb / design-couch.pl

diff --git a/couchdb/design-couch.pl b/couchdb/design-couch.pl
index 866b47b..7a8b544 100755 (executable)
--- a/couchdb/design-couch.pl
+++ b/couchdb/design-couch.pl
@@ -111,7 +111,7 @@ sub pull_design {
 
 }
 
-sub push_database_design {
+sub push_design {
        $design = shift;
 
        $ua->request( HTTP::Request::Common::PUT( "http://localhost:5984/$database" ) ) && warn "# created database $database\n";
@@ -196,11 +196,9 @@ warn "## $path\n";
 
 if ( $command eq 'push' ) {
 
-       my @designs = map { (split(m{/},2))[0] } @{ glob '*/views' };
+       my @designs = map { s{/.+$}{}; $_ } glob '*/views';
        @designs = ( $design ) if $design;
 
-warn "XX ",dump( @designs );
-
        foreach my $design ( @designs ) {
 
                chdir $design;