| Subject: | Undefined method "get_response" |
Perl speaks better than English on this, i think:
use HTTP::DAV;
my $uri = 'http://edms/EASA/common/si2 supporting documents/COM/L1/EASA.1310';
my $uri_dir = 'http://edms/EASA/common/si2 supporting documents/COM/L1/XXXXXX';
my $ua = HTTP::DAV->new;
$ua->credentials( # Will inherit from marc
-uri => $uri,
-user => 'goddale',
-pass => 'welcome1',
-realm => 'EDMS',
);
$ua->open( -url=>$uri_dir ) or confess("Couldn't open $uri_dir:\n\n\n" .$ua->message."\n\n\n".Dumper($ua->get_lastresponse() ));
Can't locate object method "get_lastresponse" via package "HTTP::DAV" at C:\temp.pl line 29.