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"; |
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; |