DavProxy.pl

package ProxyDav;

use strict;
use ModPerl::Util ();
use Apache2::RequestRec ();
use APR::Table ();
use URI;
use Apache2::Const -compile => qw(OK);
sub handler {
	my $request = shift;
	my $method = $request->method();
	if($method eq 'MOVE' || $method eq 'COPY') {
		my $destination = $request->headers_in()->get('Destination');
		my $new_destination = URI->new($destination);
		$new_destination->scheme('http');
		$request->headers_in()->set('Destination', $new_destination);
	}
	return Apache2::Const::OK();
}

1;