#!c:/perl/bin/perl.exe

# Command line WebDAV client


use strict;
use warnings;

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

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

GetOptions    ('source=s'         => \$source,
         'destination=s'       => \$destination,
         'username=s'     => \$username,
         'password=s'        => \$password,
        );
        
unless ( $source && $destination && $username && $password ) {
    
    print "Error: Missing parameters\n\n";
    get_help();
    exit(1);
    
}

my $dav = new HTTP::DAV;

$dav->credentials(     -user        =>$username,
            -pass        =>$password,
            -url        =>$destination,  
            );
            
$dav->open( -url=>$destination )
    or die("Couldn't 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";
}












sub get_help {
    
    print <<"HEREDOC";    
Perl WebDAV client. 

Usage:

webdav.exe --source [path to source file(s), accepts regex] --destinat
+ion [url to WebDAV server]
    --username [your username, prefix with domain. e.g. domain\usernam
+e] --password [your password]


HEREDOC

    
    
}
[download]