23 |
my ( $command, $database, $design ) = @ARGV; |
my ( $command, $database, $design ) = @ARGV; |
24 |
die "usage: $0 [push|pull] database design\n" unless $database && $design; |
die "usage: $0 [push|pull] database design\n" unless $database && $design; |
25 |
|
|
26 |
|
if ( ! -e $design && $command eq 'pull') { |
27 |
|
warn "# create new design $design\n"; |
28 |
|
mkdir $design; |
29 |
|
} |
30 |
|
|
31 |
chdir $design || die "can't find $design: $!"; |
chdir $design || die "can't find $design: $!"; |
32 |
|
|
33 |
my $ua = LWP::UserAgent->new; |
my $ua = LWP::UserAgent->new; |
108 |
find({ no_chdir => 1, wanted => sub { |
find({ no_chdir => 1, wanted => sub { |
109 |
my $path = $File::Find::name; |
my $path = $File::Find::name; |
110 |
return unless -f $path; |
return unless -f $path; |
111 |
|
return if $path =~ m{/\.svn}; |
112 |
|
|
113 |
warn "## $path\n"; |
warn "## $path\n"; |
114 |
|
|