#!/usr/bin/perl

use HTTP::DAVServer;

$HTTP::DAVServer::WARN = defined $ENV{DAVSERVER_WARN} ? $ENV{DAVSERVER_WARN} : 0;
$HTTP::DAVServer::TRACE = defined $ENV{DAVSERVER_TRACE} ? $ENV{DAVSERVER_TRACE} : 0;

HTTP::DAVServer->handle;


