/[pxelator]/couchdb/design-couch.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /couchdb/design-couch.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 387 by dpavlin, Sun Aug 30 13:33:09 2009 UTC revision 388 by dpavlin, Mon Sep 7 10:30:19 2009 UTC
# Line 111  sub pull_design { Line 111  sub pull_design {
111    
112  }  }
113    
114  sub push_database_design {  sub push_design {
115          $design = shift;          $design = shift;
116    
117          $ua->request( HTTP::Request::Common::PUT( "http://localhost:5984/$database" ) ) && warn "# created database $database\n";          $ua->request( HTTP::Request::Common::PUT( "http://localhost:5984/$database" ) ) && warn "# created database $database\n";
# Line 196  warn "## $path\n"; Line 196  warn "## $path\n";
196    
197  if ( $command eq 'push' ) {  if ( $command eq 'push' ) {
198    
199          my @designs = map { (split(m{/},2))[0] } @{ glob '*/views' };          my @designs = map { s{/.+$}{}; $_ } glob '*/views';
200          @designs = ( $design ) if $design;          @designs = ( $design ) if $design;
201    
 warn "XX ",dump( @designs );  
   
202          foreach my $design ( @designs ) {          foreach my $design ( @designs ) {
203    
204                  chdir $design;                  chdir $design;

Legend:
Removed from v.387  
changed lines
  Added in v.388

  ViewVC Help
Powered by ViewVC 1.1.26