From: Steinar H. Gunderson <sesse@debian.org>
Date: Sun, 12 Sep 2010 09:46:16 +0000 (+0200)
Subject: Do some changes to the uploader script that seemingly newer versions of the Perl... 
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=3e8c04921f4bcfa4fa9963e271ffd6539351ccac

Do some changes to the uploader script that seemingly newer versions of the Perl modules need.
---

diff --git a/perl/pr0n-upload.pl b/perl/pr0n-upload.pl
index 6d5aacc..95ac047 100755
--- a/perl/pr0n-upload.pl
+++ b/perl/pr0n-upload.pl
@@ -26,10 +26,6 @@ $queue->enqueue(@ARGV);
 # Fetch username and password, and check that they actually work.
 my ($user, $pass) = get_credentials();
 my $dav = init_dav($url, $user, $pass);
-my $r = $dav->propfind(-url => $url, -depth => 0);
-if ($r == 0) {
-	die "Couldn't open $url: " . $dav->message . "\n";
-}
 
 # Fire up the worker threads, and wait for them to finish.
 my @threads = ();
@@ -61,7 +57,7 @@ sub init_dav {
 	my $ua = HTTP::DAV::UserAgent->new();
 	$ua->agent('pr0n-uploader/v1.0 (perldav)');
 	my $dav = HTTP::DAV->new(-useragent=>$ua);
-	$dav->credentials(-user=>$user, -pass=>$pass, -url=>$url);
+	$dav->credentials(-user=>$user, -pass=>$pass, -url=>$url, -realm=>'pr0n.sesse.net');
 	$dav->open(-url => $url)
 		or die "Couldn't open $url: " . $dav->message . "\n";
 	return $dav;