/[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 366 by dpavlin, Sat Aug 29 14:43:32 2009 UTC revision 367 by dpavlin, Sun Aug 30 11:56:31 2009 UTC
# Line 43  sub create_path { Line 43  sub create_path {
43                  #warn "# dir $dir";                  #warn "# dir $dir";
44          }          }
45  }  }
46    
47    sub svn {
48            my $path = shift;
49            return if $path =~ m{(_rev|.*\.(push|pull)\.js)$};
50            system "svn add --parents $path";
51    }
52    
53  sub write_file {  sub write_file {
54          my ( $path, $content ) = @_;          my ( $path, $content ) = @_;
55          $path =~ s{^/+}{};          $path =~ s{^/+}{};
56          create_path $path;          create_path $path;
57          File::Slurp::write_file $path, $content;          File::Slurp::write_file $path, $content;
58          print "$path ", -s $path, " bytes created\n";          print "$path ", -s $path, " bytes created\n";
59            svn $path;
60  }  }
61    
62  sub write_attachment {  sub write_attachment {
# Line 57  sub write_attachment { Line 65  sub write_attachment {
65          create_path $file;          create_path $file;
66          $ua->mirror( "$url/$path", $file );          $ua->mirror( "$url/$path", $file );
67          print "detached $file ", -s $file, " bytes\n";          print "detached $file ", -s $file, " bytes\n";
68            svn $file;
69  }  }
70    
71    

Legend:
Removed from v.366  
changed lines
  Added in v.367

  ViewVC Help
Powered by ViewVC 1.1.26