/[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 340 by dpavlin, Tue Aug 18 14:30:06 2009 UTC revision 341 by dpavlin, Sat Aug 29 14:43:32 2009 UTC
# Line 23  use Media::Type::Simple; Line 23  use Media::Type::Simple;
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;

Legend:
Removed from v.340  
changed lines
  Added in v.341

  ViewVC Help
Powered by ViewVC 1.1.26