/[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 370 by dpavlin, Sun Aug 30 11:56:31 2009 UTC revision 371 by dpavlin, Sun Aug 30 12:07:15 2009 UTC
# Line 46  sub create_path { Line 46  sub create_path {
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    
# Line 112  if ( $command eq 'pull' ) { Line 112  if ( $command eq 'pull' ) {
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 {
Legend:
Removed from v.370  
changed lines
  Added in v.371
  ViewVC Help
Powered by ViewVC 1.1.26