46 |
|
|
47 |
sub svn { |
sub svn { |
48 |
my $path = shift; |
my $path = shift; |
49 |
return if $path =~ m{(_rev|.*\.(push|pull)\.js)$}; |
return if $path =~ m{(_.*|.*\.(push|pull)\.js)$}; |
50 |
system "svn add --parents $path"; |
system "svn add --parents $path"; |
51 |
} |
} |
52 |
|
|
112 |
|
|
113 |
} elsif ( $command eq 'push' ) { |
} elsif ( $command eq 'push' ) { |
114 |
|
|
115 |
|
$ua->request( HTTP::Request::Common::PUT( "http://localhost:5984/$database" ) ) && warn "# created database $database\n"; |
116 |
|
|
117 |
my $json; |
my $json; |
118 |
|
|
119 |
find({ no_chdir => 1, wanted => sub { |
find({ no_chdir => 1, wanted => sub { |