Edited davtest.pl to point to /usr/share/davtest/
for the tests and backdoors directories.

--- a/davtest.pl
+++ b/davtest.pl
@@ -311,7 +311,7 @@
     foreach my $type (keys %tests) {
         if ($tests{$type}->{'execute'} eq 1) {
             if (($OPTIONS{'sendbackdoors'} eq $type) || ($OPTIONS{'sendbackdoors'} eq 'auto')) {
-                my @files = dirlist("backdoors/", ".*\.$type");
+                my @files = dirlist("/usr/share/davtest/backdoors/", ".*\.$type");
                 if ($files[0] eq '') {
                     print STDERR "** ERROR: Unable to find a backdoor for $type **\n"
                       unless $OPTIONS{'quiet'};
@@ -323,7 +323,7 @@
                             my $txtfile = $filesid . $files[$i];
                             if ($filesid ne '') { $txtfile = $filesid . "_" . $txtfile; }
                             $txtfile =~ s/\.$oext$/_$oext\.txt/;
-                            if (put_local_file("$OPTIONS{'url'}/$txtfile", "backdoors/$files[$i]"))
+                            if (put_local_file("$OPTIONS{'url'}/$txtfile", "/usr/share/davtest/backdoors/$files[$i]"))
                             {
                                 print "PUT\ttxt\tSUCCEED:\t$OPTIONS{'url'}/$txtfile\n"
                                   unless $OPTIONS{'quiet'};
@@ -349,7 +349,7 @@
                         else {
                             my $putfile = $files[$i];
                             if ($filesid ne '') { $putfile = $filesid . "_" . $putfile; }
-                            if (put_local_file("$OPTIONS{'url'}/$putfile", "backdoors/$files[$i]"))
+                            if (put_local_file("$OPTIONS{'url'}/$putfile", "/usr/share/davtest/backdoors/$files[$i]"))
                             {
                                 print "PUT Shell:\t$type\tSUCCEED:\t$OPTIONS{'url'}/$putfile\n"
                                   unless $OPTIONS{'quiet'};
@@ -537,9 +537,9 @@
     my $sid = $_[0];
     my %tests;
 
-    my @files = dirlist("tests/", ".*\.txt");
+    my @files = dirlist("/usr/share/davtest/tests/", ".*\.txt");
     foreach my $file (@files) {
-        open(TESTFILE, "<tests/$file") || die print "Unable to open '$file': $!\n";
+        open(TESTFILE, "</usr/share/davtest/tests/$file") || die print "Unable to open '$file': $!\n";
         my $type = $file;
         $type =~ s/\.txt$//;
         $tests{$type}->{'filename'} = "davtest_" . $sid . "." . $type;
@@ -554,7 +554,7 @@
             my $value = $2;
             if (($key eq '') || ($value eq '')) {
                 delete $tests{$type};
-                print STDERR "** ERROR: 'tests/$file' is not a valid test file **\n";
+                print STDERR "** ERROR: '/usr/share/davtest/tests/$file' is not a valid test file **\n";
                 next;
                 }
 
@@ -568,7 +568,7 @@
             }
         close(TESTFILE);
         if (($tests{$type}->{'content'} eq '') || ($tests{$type}->{'execmatch'} eq '')) {
-            print STDERR "** ERROR: 'tests/$file' is not a valid test file **\n";
+            print STDERR "** ERROR: '/usr/share/davtest/tests/$file' is not a valid test file **\n";
             delete $tests{$type};
             }
         }
