- $dav->put(-local => $filename, -url => $url)
- or warn "Couldn't upload $filename: " . $dav->message . "\n";
+ my (undef, undef, $basename) = File::Spec->splitpath($filename);
+ my $newurl = $url . $basename;
+ my $req = HTTP::Request->new(PUT => $newurl);
+ {
+ local $/ = undef;
+ open my $fh, "<", $filename
+ or die "Couldn't find $filename: $!";
+ $req->content(<$fh>);
+ close $fh;
+ }
+
+ my $res = $ua->request($req);
+ if ($res->is_success) {
+ push @succeeded, $filename;
+ } else {
+ push @failed, $filename;
+ warn "Couldn't upload $filename: " . $res->message . "\n";
+ }