omgdav 0.0.0

data/ChangeLog

@@ -0,0 +1,185 @@
+ChangeLog from http://bogomips.org/omgdav.git
+
+   commit 678249295f8d03b85073f157a6e91318942c439e
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Thu Nov 15 01:37:52 2012 +0000
+   
+       doc: more updates
+       
+       Ensure README readers can easily refer back to the README
+       file.  Also include a link to MogileFS in case users need
+       MogileFS knowledge.
+   
+   commit e728bd23000dc3bb9c99d281aefa903c6af2985c
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Thu Nov 15 01:23:04 2012 +0000
+   
+       pkg: ensure bin/* is properly installed
+       
+       We need setup commands for users.
+   
+   commit ff98f5bd1664d35e801945ef09647bc232f669a9
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Thu Nov 15 00:59:40 2012 +0000
+   
+       README: flesh this out with basic information
+       
+       Hopefully it's enough for folks to get started.
+   
+   commit 1a66258801b9fffd937464445cccf57197425f58
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Thu Nov 15 00:45:07 2012 +0000
+   
+       import -> sync: import is now bidirectional
+       
+       Deleted keys on the MogileFS side may now be reflected
+       by the omgdav database after running "omgdav-sync".
+   
+   commit d62d85f0c282d91b292c092601e36aece371c892
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Wed Nov 14 23:27:41 2012 +0000
+   
+       gemspec: add sequel dependency
+       
+       We generally want the latest Sequel, but we do not enforce
+       database drivers.
+   
+   commit 93e8dda9f0e082ba70cd798824b22b401db6721a
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Wed Nov 14 23:14:28 2012 +0000
+   
+       GNUmakefile: "make check" runs all tests
+       
+       This might be slightly more familiar to folks used to the same
+       target from autotools.
+   
+   commit d0088069b48b0ce5abdf4c49805546c63e8b35b8
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Wed Oct 31 23:00:53 2012 +0000
+   
+       documentation cleanups
+       
+       Namely, there is no internal API documentation, this
+       is a front-facing Rack application.
+   
+   commit 5bf0ea2fec1eafd169a84365212f405761758fe0
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Fri Oct 26 21:45:36 2012 +0000
+   
+       force HTTP/1.0 keepalive connections with kcar
+       
+       This reduces the number of TIME-WAIT sockets and should improve
+       performance on high-latency networks.  We force HTTP/1.0 instead
+       of 1.1 to avoid the possibility of a server sending us chunked
+       responses (saving us the trouble of parsing)
+       
+       Unlike net-http-persistent or curb, this keepalive
+       implementation is built to allow sharing of idle sockets between
+       multiple threads, improving socket reusability in multi-threaded
+       servers.
+       
+       Also unlike net-http-persistent or curb, kcar was designed to
+       stream HTTP response bodies as a Rack response body.  I could
+       not figure out a way to stream response bodies via nhp or curb
+       without resorting to Fibers or Threads.
+   
+   commit 406bb0ba5bf51df583b792c7ef987e018226359d
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Fri Oct 26 01:35:46 2012 +0000
+   
+       omgdav/app: fix shadow bug with error logging
+       
+       Oops :x
+   
+   commit 2c6b607ed55629ebc5d12580fe4ddb1d84201f7b
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Thu Oct 25 21:20:48 2012 +0000
+   
+       app: support for :worm mode (write-once, read-many)
+       
+       I find write-once, read-many filesytems a good compromise
+       between read-only and full read-write systems.
+   
+   commit d4aad422e0d19b7626f09ac87741105186c0bf6c
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Wed Oct 24 21:56:22 2012 +0000
+   
+       app: allow methods: argument to limit HTTP methods
+       
+       This means it's easy for users to setup a read-only instance
+       for sharing files to users they do not trust to write.
+       
+       	OMGDAV::App.new(db, mogc, methods: :ro)
+   
+   commit ddb98ea8df8f577bc7c4debbf12f7fec0e39be3b
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Wed Oct 24 08:53:27 2012 +0000
+   
+       get: remove If-Modified-Since handling
+       
+       We already track mtime in our database, so we could potentially
+       handle If-Modified-Since without ever hitting the tracker.  We
+       can live without If-Modified-Since for now since WebDAV clients
+       like cadaver/fusedav do not seem to use it...
+   
+   commit faed5bf668d2ae6eb47259637632c4fc39a468c4
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Wed Oct 24 08:44:21 2012 +0000
+   
+       omgdav/app: common logger method
+       
+       We hope rack.logger to exists, but it is an optional part
+       of the Rack SPEC, so just log to stderr if we must.
+   
+   commit 326f6a661b1974f1d72edb324fd5c38b4e116c02
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Wed Oct 24 08:41:09 2012 +0000
+   
+       omgdav/app: make the rack app fork-friendly
+       
+       Some of our users may use unicorn...
+   
+   commit e860ab06b39819fa571e9dc579cdc598986d4956
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Tue Oct 23 02:45:55 2012 +0000
+   
+       support for the getcontenttype attribute
+       
+       This live attribute may be overridden by the user using
+       PROPPATCH.  fusedav supports this attribute as user.mime_type.
+   
+   commit cdf97ba819da87f84c6440a7b1331a3469efe568
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Tue Oct 23 00:17:07 2012 +0000
+   
+       use IO.copy_stream wherever available for PUT/COPY
+       
+       We've never cared about about Ruby 1.8, so we don't need
+       to worry about IO.copy_stream being unavailable.  This saves
+       us the trouble of having to worry about writing our own copy
+       loops and managing our own buffers.
+   
+   commit 0c353ce9e9637206ecebf5d8f44b6c84bd4633b4
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Mon Oct 22 22:59:24 2012 +0000
+   
+       app: stream large file uploads by default
+       
+       This means we won't have to buffer large files in memory
+       and possibly OOM ourselves in the process.
+   
+   commit 0eaedefc69ce6be31161e1cbb9e314dffc6ac809
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Mon Oct 22 22:47:46 2012 +0000
+   
+       uri_request: cache packed addresses
+       
+       Packing addresses generates a bit of garbage and costs
+       us several system calls on glibc for netlink, so cache
+       that result.
+   
+   commit ab74d32ab68391aa6dac0472ee4aa8e64c9a9057
+   Author: Eric Wong <normalperson@yhbt.net>
+   Date:   Fri Oct 19 19:36:33 2012 +0000
+   
+       initial commit

data/GIT-VERSION-FILE

@@ -0,0 +1 @@
+GIT_VERSION = 0.0.0

data/GIT-VERSION-GEN

@@ -0,0 +1,33 @@
+#!/usr/bin/env ruby
+CONSTANT = "OMGDAV::VERSION"
+RVF = "lib/omgdav/version.rb"
+GVF = "GIT-VERSION-FILE"
+DEF_VER = "v0.0.0"
+vn = DEF_VER
+
+# First see if there is a version file (included in release tarballs),
+# then try git-describe, then default.
+if File.exist?(".git")
+  describe = `git describe --abbrev=4 HEAD 2>/dev/null`.strip
+  case describe
+  when /\Av[0-9]*/
+    vn = describe
+    system(*%w(git update-index -q --refresh))
+    unless `git diff-index --name-only HEAD --`.chomp.empty?
+      vn << "-dirty"
+    end
+    vn.tr!('-', '.')
+  end
+end
+
+vn = vn.sub!(/\Av/, "")
+new_ruby_version = "#{CONSTANT} = '#{vn}'\n"
+cur_ruby_version = File.readlines(RVF)[0] rescue nil
+if new_ruby_version != cur_ruby_version
+  File.open(GVF, "w") { |fp| fp.write("GIT_VERSION = #{vn}\n") }
+  File.open(RVF, "w") do |fp|
+    fp.write("# :enddoc:\n")
+    fp.write(new_ruby_version)
+  end
+end
+puts vn if $0 == __FILE__

data/GNUmakefile

@@ -0,0 +1,35 @@
+all::
+RSYNC_DEST := bogomips.org:/srv/bogomips/omgdav
+rfproject := rainbows
+rfpackage := omgdav
+pkg_extra += lib/omgdav/version.rb
+include pkg.mk
+
+LITMUS_VER = 0.13
+LITMUS_TAR = litmus-$(LITMUS_VER).tar.gz
+LITMUS_DIR = litmus-$(LITMUS_VER)
+LITMUS_URL = http://www.webdav.org/neon/litmus/$(LITMUS_TAR)
+LITMUS_SHA1 = 42ad603035d15798facb3be79b1c51376820cb19
+CURL = curl
+
+$(LITMUS_TAR):
+	$(CURL) -vsSf $(LITMUS_URL) > $@+
+	test $$(expr "$$(sha1sum $@+)" : '\([a-f0-9]\{40\}\)') = $(LITMUS_SHA1)
+	mv $@+ $@
+
+
+$(LITMUS_DIR)/.omgdav: $(LITMUS_TAR)
+	tar xvf $<
+	> $@
+$(LITMUS_DIR)/basic: $(LITMUS_DIR)/.omgdav
+	cd $(@D) && ./configure --prefix=$$PWD/i
+	$(MAKE) -C $(@D)
+
+test-litmus: $(LITMUS_DIR)/basic
+	$(MAKE) LITMUS_DIR=$(LITMUS_DIR) MAKE="$(MAKE)" test/test_litmus.rb
+
+check: test test-litmus
+
+RSYNC = rsync --exclude '*.html' --exclude '*.html.gz' \
+        --exclude images --exclude '*.css' --exclude '*.css.gz' \
+	--exclude created.*

data/LATEST

@@ -0,0 +1 @@
+Currently unreleased

data/NEWS

@@ -0,0 +1 @@
+No news yet.

data/README

@@ -0,0 +1,154 @@
+= omgdav - Rack app for bridging WebDAV and MogileFS
+
+omgdav exposes an existing MogileFS domain over WebDAV.  There is
+absolutely no commitment or modification needed to your existing
+MogileFS installation to try omgdav in read-only mode.
+
+omgdav uses its own database and can import key listings from with an
+existing MogileFS domain.
+
+omgdav (barely :P) meets class 1 WebDAV compliance according to
+litmus[1].  Class 2 compliance is planned.
+
+*** WARNING ***
+---------------
+
+Locking of any type is not yet implemented.  Thus:
+
+1) Do not attempt concurrent invocations of COPY/MOVE commands.
+
+2) Do not use PUT or DELETE while a COPY or MOVE command is running.
+
+Read-only operation is currently the safest way to use omgdav.
+
+Features
+--------
+
+* Allows read-only access to existing MogileFS data with a WebDAV client.
+
+* Infers WebDAV collections based on existing MogileFS keys which
+  look like path names (e.g. "/parts/separated/by/slashes").
+
+* Implemented for Rack, so it is compatible with existing middlewares
+  (for authentication, logging, etc...) and Rack web servers.
+
+Requirements
+------------
+
+* an existing MogileFS instance
+
+* Ruby 1.9.3 or later (any Ruby implementation compatible with C extensions)
+
+* a Free, Unix-like operating system (GNU/Linux preferred)
+
+* a Free database supported by Sequel[2]
+
+Install (via RubyGems)
+----------------------
+
+	gem install omgdav
+
+Usage
+-----
+
+1. Setup your database:
+
+	# You may substitute the sqlite:/// database for any other
+	# Free database type Sequel supports.  Be sure to have the
+	# appropriate database driver installed (e.g. "sqlite3").
+	omgdav-setup sqlite://test.sqlite
+
+omgdav-setup runs idempotently.  It will automatically upgrade your
+schema as new versions of omgdav may require database updates
+
+2. Sync metadata from your existing MogileFS domain:
+
+	omgdav-sync -t $TRACKER_HOST_PORT -d $DOMAIN sqlite://test.sqlite
+
+omgdav-sync runs idempotently.  It may be used to resync changes
+to the omgdav database if keys are added/removed from MogileFS.
+
+3. Configure your rackup config file, below is an example config.ru:
+
+------------------------------------- 8<------------------------------------
+require "omgdav/app"
+# replace hosts: and domain: with values suitable for your cluster
+mogc = MogileFS::MogileFS.new(hosts: %w(127.0.0.1:7001), domain: "test")
+db = Sequel.connect("sqlite://test.sqlite")
+
+# for the brave: :ro ("read-only") may be swapped for :rw ("read-write")
+# :worm is also supported ("write-once, read-many")
+run OMGDAV::App.new(db, mogc, methods: :ro)
+------------------------------------- 8<------------------------------------
+
+4. Start your Rack HTTP server and point your WebDAV client at it.
+
+	rackup -s webrick -p $PORT config.ru
+
+Code
+----
+
+Source code is available via git:
+
+	git clone git://bogomips.org/omgdav.git
+	git clone git://repo.or.cz/omgdav.git
+
+And viewable with a WWW browser via cgit or gitweb:
+
+	http://bogomips.org/omgdav.git (cgit)
+	http://repo.or.cz/w/omgdav.git (gitweb)
+
+Contact
+-------
+
+Bug reports, user/development discussion, patches, pull requests are
+greatly appreciated via plain-text email.
+
+We currently piggy-back onto the public MogileFS
+mailing list at mailto:mogile@googlegroups.com for feedback.
+
+If you do not want to deal with the corporate host of the MogileFS
+mailing list or if you wish to keep your issue secret, feel free to
+email Eric Wong directly at mailto:normalperson@yhbt.net
+
+HTML email will be mercilessly deleted.
+
+License
+-------
+omgdav is copyrighted Free Software by all contributors, see logs in
+revision control for names and email addresses of all of them.
+
+You can redistribute omgdav and/or modify it under the terms of the GNU
+Affero General Public License, version 3 or later as published by the
+Free Software Foundation.
+
+omgdav is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General Public
+License for more details.
+
+You should have received a copy of the GNU Affero General Public License
+along with omgdav; if not, see https://www.gnu.org/licenses/agpl.txt
+
+fusedav
+-------
+
+Some testing and use of omgdav is done on fusedav[3].  Since fusedav
+upstream appears dormant, we have publicized some bug reports and
+patches on the Debian bug tracker[4].  Our fusedav patches are
+also available via various branches in our git repository:
+
+	git clone git://bogomips.org/fusedav
+
+Links
+-----
+MogileFS - http://mogilefs.org/
+omgdav homepage - http://bogomips.org/omgdav/README
+omgdav Atom feed - http://bogomips.org/omgdav/NEWS.atom.xml
+
+References
+----------
+[1] litmus - http://www.webdav.org/neon/litmus
+[2] Sequel - http://sequel.rubyforge.org/
+[3] fusedav - http://0pointer.de/lennart/projects/fusedav/
+[4] fusedav (Debian BTS) - http://bugs.debian.org/fusedav

data/bin/omgdav-setup

@@ -0,0 +1,4 @@
+#!/usr/bin/env ruby
+$stderr.sync = $stdout.sync = true
+require 'omgdav/setup'
+OMGDAV::Setup.run

data/bin/omgdav-sync

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+$stderr.sync = $stdout.sync = true
+require "optparse"
+require "sequel"
+require "mogilefs"
+require "omgdav/sync"
+
+mfs_opts = { hosts: %w(127.0.0.1:7001), domain: "test" }
+
+opts = OptionParser.new do |opts|
+  opts.banner = "Usage: omgdav-sync [options] <uri|path>"
+  opts.separator "Examples:"
+  opts.separator "  omgdav-sync -t 127.0.0.1:7001 -d domain sqlite://foo.db"
+
+  opts.on('-t', '--trackers=host1[,host2]', '--hosts=host1[,host2]', Array,
+         'hostnames/IP addresses of trackers') do |hosts|
+    mfs_opts[:hosts] = hosts
+  end
+  opts.on('-d', '--domain=s', 'domain') do |domain|
+    mfs_opts[:domain] = domain
+  end
+  opts.parse!
+end
+
+db = ARGV.shift
+db = Sequel.connect(db)
+db.pragma_set(:synchronous, :off) if db.respond_to?(:pragma_set)
+db.transaction_mode = :immediate if db.respond_to?(:transaction_mode=)
+mogc = MogileFS::MogileFS.new(mfs_opts)
+db.transaction do
+  OMGDAV::Sync.new(db, mogc).sync
+end

data/lib/omgdav/app.rb

@@ -0,0 +1,70 @@
+# -*- encoding: binary -*-
+# :stopdoc:
+# Copyright (C) 2012, Eric Wong <normalperson@yhbt.net>
+# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
+require 'logger'
+require 'omgdav'
+require 'omgdav/db'
+require 'omgdav/http_get'
+# :startdoc:
+
+class OMGDAV::App # :nodoc:
+  include OMGDAV::DB
+
+  attr_accessor :create_full_put_path
+  attr_accessor :new_file_opts
+  attr_accessor :get_path_opts
+
+  # Example (for Rack config.ru):
+  #
+  #   db = Sequel.connect("sqlite://foo.sqlite")
+  #   mogc = MogileFS::MogileFS.new(hosts: %w(127.0.0.1:7001), domain: "test")
+  #   run OMGDAV::App.new(db, mogc, methods: :worm)
+  def initialize(db, mogc, opts = {})
+    @call_map = {}
+    @db = db
+    @mogc = mogc
+    @domain_id = ensure_domain(mogc.domain)
+    @create_full_put_path = opts[:create_full_put_path] || false
+    @new_file_opts = opts[:new_file_opts] || { largefile: :stream }
+    @get_path_opts = opts[:get_path_opts] || {}
+    @sql_limit = 100
+    @root_node = nil
+
+    # avoid contention by loading this first
+    root_node
+    @db.disconnect # unicorn may load this before forking, don't share
+    @worm = false
+
+    ro_methods = %w(GET PROPFIND OPTIONS)
+    rw_methods = %w(PUT DELETE MKCOL COPY MOVE PROPPATCH)
+    case opts[:methods]
+    when nil, :rw
+      rmethods = ro_methods + rw_methods
+    when :ro
+      rmethods = ro_methods
+    when :worm
+      @worm = true
+      rmethods = ro_methods + %w(PUT MKCOL COPY)
+    else
+      rmethods = opts[:methods]
+    end
+    rmethods.each do |m|
+      m = m.to_s
+      require "omgdav/#{m.downcase}"
+      extend OMGDAV.const_get(m.capitalize)
+      @call_map[m.upcase] = method("call_#{m.downcase}")
+    end
+    get = @call_map["GET"] and @call_map["HEAD"] = get
+    @call_map.default = proc { |_| r(405) }
+  end
+
+  def call(env) # :nodoc:
+    @call_map[env["REQUEST_METHOD"]].call(env)
+  rescue => e
+    l = logger(env)
+    l.error("#{e.message} (#{e.class})")
+    e.backtrace.each { |line| l.error(line) }
+    r(500)
+  end
+end

data/lib/omgdav/copy.rb

@@ -0,0 +1,100 @@
+# -*- encoding: binary -*-
+# :enddoc:
+# Copyright (C) 2012, Eric Wong <normalperson@yhbt.net>
+# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
+require "omgdav/copy_move"
+require "omgdav/rack_util"
+require "omgdav/db"
+
+module OMGDAV::Copy
+  include OMGDAV::DB
+  include OMGDAV::RackUtil
+  include OMGDAV::CopyMove
+
+  def call_copy(env)
+    src, dst = {}, {}
+    err = copy_move_prepare!(env, src, dst) and return err
+
+    if src[:node][:collection]
+      case env["HTTP_DEPTH"]
+      when "0"
+        dst_node = col_ensure(dst[:parent][:id], dst[:basename])
+      when nil, "infinity"
+        dst_node = col_ensure(dst[:parent][:id], dst[:basename])
+        copy_collection(src[:node], dst_node)
+      else
+        r(400, "invalid Depth: #{env['HTTP_DEPTH']}")
+      end
+    else
+      copy_to_col(src[:node], dst[:parent], {}, dst[:basename])
+    end
+
+    # overwrite or new file?
+    r(dst[:node] ? 204 : 201)
+  end
+
+  # recursively copies src_node to dst_node
+  def copy_collection(src_node, dst_node)
+    cache = {}
+    paths = @db[:paths]
+    queue = [ [ 0, src_node, dst_node ] ]
+    max_id = paths.max(:id)
+    q = { domain_id: @domain_id }
+
+    while cur_job = queue.pop
+      min_id, cur_src, dst_col = cur_job
+      q[:parent_id] = cur_src[:id]
+      next if min_id == max_id
+      begin
+        continue = false
+        q[:id] = ((min_id+1)..max_id)
+        paths.order(:id).where(q).limit(@sql_limit).each do |child_node|
+          min_id = child_node[:id]
+          if child_node[:collection]
+            queue << [ min_id, cur_src, dst_col ]
+            dst_parent = col_ensure(dst_col[:id], child_node[:name])
+            queue << [ 0, child_node, dst_parent ]
+            continue = false
+            break
+          else
+            copy_to_col(child_node, dst_col, cache)
+            continue = true
+          end
+        end
+      end while continue
+    end
+  end
+
+  def copy_to_col(src_file, dst_col, cache, dst_name = src_file[:name])
+    src_key = node_to_key(src_file, cache)
+
+    dst_parts = node_to_parts(dst_col, cache) << dst_name
+    dst_key = dst_parts.join("/")
+
+    opts = @new_file_opts.dup
+    info = @mogc.file_info(src_key)
+    opts[:content_length] = src_file[:length]
+    opts[:class] = info["class"]
+    checksum = info["checksum"] and opts[:checksum] = checksum
+    bytes = @mogc.new_file(dst_key, opts) do |io|
+      @mogc.get_uris(src_key, @get_path_opts).each do |uri|
+        case res = OMGDAV::HttpGet.run(nil, uri)
+        when Array
+          res[2].stream_to(io)
+          break
+        else
+          logger(env).error("#{uri}: #{res.message} (#{res.class})")
+        end
+      end
+    end
+
+    if src_file[:length] != bytes
+      warn "length mismatch copying(#{src_key.inspect}>#{dst_key.inspect})" \
+           "(expected(#{src_file[:length]}) != copied(#{bytes}))"
+    end
+
+    info = { "length" => bytes }
+    dst_node = file_ensure(dst_col[:id], dst_name, info)
+    dst_node
+  end
+end

data/lib/omgdav/copy_move.rb

@@ -0,0 +1,54 @@
+# -*- encoding: binary -*-
+# :enddoc:
+# Copyright (C) 2012, Eric Wong <normalperson@yhbt.net>
+# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
+require "omgdav/rack_util"
+require "omgdav/db"
+require "omgdav/delete"
+
+module OMGDAV::CopyMove
+  include OMGDAV::DB
+  include OMGDAV::RackUtil
+  include OMGDAV::Delete
+
+  def copy_move_prepare!(env, src, dst)
+    dst_uri = env["HTTP_DESTINATION"] or return r(400)
+    dst_uri = URI(dst_uri)
+    req_uri = URI(Rack::Request.new(env).url)
+    return r(502) if dst_uri.host != req_uri.host
+    return r(502) if dst_uri.port != req_uri.port
+
+    script_name = Regexp.quote(env["SCRIPT_NAME"])
+    dst_path = dst_uri.path.dup
+    return r(502) unless dst_path.gsub!(%r{\A#{script_name}/}, "/")
+
+    dst[:parts] = path_split("PATH_INFO" => dst_path)
+    dst[:basename] = dst[:parts].pop
+    dst[:parent] = col_resolve(dst[:parts]) or return r(409)
+    dst[:node] = node_lookup(dst[:parent][:id], dst[:basename])
+    dst[:parts] << dst[:basename]
+    dst[:key] = dst[:parts].join("/")
+
+    case env["HTTP_OVERWRITE"]
+    when "F"
+      dst[:node] and return r(412)
+    when "T", nil
+      (@worm && dst[:node]) and return r(409)
+    else
+      return r(400, "Overwrite: #{env['HTTP_OVERWRITE']} not understood")
+    end
+
+    src[:parts] = path_split(env)
+    src[:basename] = src[:parts].pop
+    src[:parent] = col_resolve(src[:parts]) or return r(404)
+    src[:parts] << src[:basename]
+    src[:node] = node_lookup(src[:parent][:id], src[:basename]) or return r(404)
+    src[:key] = src[:parts].join("/")
+
+    return r(403) if src[:key] == dst[:key]
+
+    delete_entry(dst[:node], {}) if dst[:node]
+
+    nil
+  end
+end