#!/usr/bin/perl -w

use strict;
use warnings;

use Getopt::Long;
use HTTP::DAV;

my $debug = '1';
if ($debug) {
    LWP::Debug::level('+');
    SOAP::Lite->import(+trace => 'all');
    
}
my @ua_args = (keep_alive => 1);

#my ( $source, $destination, $username, $password );

my $source = "/home/jadli_r/sharepoint_test/test.txt";
my $destination = "https://fddld.com/sites/A055/files/";
my $username = "uname";
my $password = "passwd";

my $dav = new HTTP::DAV;

$dav->credentials(     -user        =>$username,
            -pass        =>$password,
            -url        =>$destination,
            );
            
my $ua = LWP::UserAgent->new( keep_alive => 1 );

$dav->open( -url=>$destination )
    or die("Couldnt open $destination: " .$dav->message . "\n");

#if ( $dav->put( -local => "$source", -url => $destination ) ) {
#    print "\nSuccessfully uploaded $source to $destination\n";
#}
#else {
#      print "Put failed: " . $dav->message . "\n";
#}
$dav->put( -local => "$source", -url => $destination )