X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2Fpr0n-upload.pl;h=ca5ff76bbb69ea5a4e128a235c7e40f7ada58c47;hp=901760f7ec241fd5b5ebc031fd373c410824349a;hb=3b2c7786062de33fd427f8b30556570cab9d4349;hpb=8f134ac2c4309260db7e2ede5814e30427467c3b

diff --git a/perl/pr0n-upload.pl b/perl/pr0n-upload.pl
index 901760f..ca5ff76 100755
--- 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);