Kill WebDAV entirely; now only the PUT and OPTIONS are left.

[pr0n] / perl / pr0n-upload.pl

diff --git a/perl/pr0n-upload.pl b/perl/pr0n-upload.pl
index 901760f7ec241fd5b5ebc031fd373c410824349a..ca5ff76bbb69ea5a4e128a235c7e40f7ada58c47 100755 (executable)
--- a/perl/pr0n-upload.pl
+++ b/perl/pr0n-upload.pl
@@ -86,7 +86,7 @@ sub init_ua {
        $ua->credentials($hostport, 'pr0n.sesse.net', $user, $pass);
 
        # Check that it works.
-       my $req = HTTP::Request->new(PROPFIND => $url);
+       my $req = HTTP::Request->new(OPTIONS => $url);
        my $res = $ua->request($req);
        die "$url: " . $res->status_line if (!$res->is_success);