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