use HTML::Entities; use LWP::UserAgent; use LWP::Debug; use SOAP::Transport::HTTP; use SOAP::Lite on_action => sub { "$_[0]$_[1]"; }; import SOAP::Data 'name', 'value'; our $sp_endpoint = 'http://oursharepointsite.aspx'; our $sp_domain = 'http://oursharepointdomain:80'; our $sp_username = "my valid account"; our $sp_password = "my account password"; if ($debug) { LWP::Debug::level('+'); SOAP::Lite->import(+trace => 'all'); } my @ua_args = (keep_alive => 1); my @credentials = ($sp_domain, "", $sp_username, $sp_password); my $schema_ua = LWP::UserAgent->new(@ua_args); $schema_ua->credentials(@credentials); $soap = SOAP::Lite->proxy($sp_endpoint, @ua_args, credentials => \@cre +dentials); my $ie="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"; my $ua = LWP::UserAgent->new; $ua->agent($ie); my $url = 'http://oursharepointsite.aspx'; my $response = $ua->get ($url); my $content; if ($response->is_success) { print "$response->content\n"; } else { die "DIE!!!:". $response->status_line; } exit;
In reply to Re^4: using perl to read in details from a sharepoint site
by rodneyrods
in thread using perl to read in details from a sharepoint site
by rodneyrods
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |