如何使用 Perl SOAP::Lite 将文件从本地计算机上传到 Sharepoint？

Question

#use SOAP::Lite ( +trace => all, maptype => {} );
use SOAP::Lite maptype => {};
use LWP::UserAgent;
use HTTP::Request::Common;

#credentials' file
require "c:\\test\\pass.pl";
my $userAgent = LWP::UserAgent->new(keep_alive => 1);

sub SOAP::Transport::HTTP::Client::get_basic_credentials {
    return $username => $password;
}
my $soap
  = SOAP::Lite
  ->uri('<mysite>/_vti_bin/lists.asmx')
  ->on_action(sub {join '/', 'http://schemas.microsoft.com/sharepoint/soap/CopyIntoItemsLocal', $_[1]})
  ->proxy('<mysite>/_layouts/viewlsts.aspx?BaseType=0', keep_alive => 1);

# my $method = SOAP::Data->name('CopyIntoItemsLocal')
# ->attr({xmlns => 'http://schemas.microsoft.com/sharepoint/soap/'});
# my @params =  (SOAP::Data->name(SourceUrl => $source),
# SOAP::Data->name(DestinationUrl => $destination) );
# print $soap->call($method => @params)->result;

my $fileName = 'c:\test\abc.txt';
my $destDir  = "<mysite>/Lists/sharepoint1/";

#load and encode Data
my $data;
open(FILE, $fileName) or die "$!";

#read in chunks of 57 bytes to ensure no padding in the middle (Padding means extra    space for large files)
while (read(FILE, $buf, 60 * 57)) {
    $data .= encode_base64($buf);
}
close(FILE);

#make the call
print "uploading $fileName...";
$lists = $soap->GetList();
my $method = SOAP::Data->name('CopyIntoItemsLocal')->attr({xmlns => 'http://schemas.microsoft.com/sharepoint/soap/'});
my @params = (
    SOAP::Data->name('SourceUrl')->value($fileName)->type(''),
    SOAP::Data->name('DestinationUrls')->type('')->value(
        \SOAP::Data->name('string')->type('')->value($destDir . $fileName)
    ),
    SOAP::Data->name('Fields')->type('')->value(
        \SOAP::Data->name('FieldInformation')->type('')->attr({Type => 'File'})->value('')
    ),
    SOAP::Data->name('Stream')->value("$data")->type('')

);

#print Results
print $soap->call($method => @params)->result;

#print $response->headerof('//CopyResult')->attr->{ErrorCode};

#use SOAP::Lite ( +trace => all, maptype => {} );
use SOAP::Lite maptype => {}; 
use LWP::UserAgent;
use HTTP::Request::Common;
use MIME::Base64 qw(encode_base64);
require "c:\\test\\pass.pl";
my $userAgent = LWP::UserAgent->new(keep_alive=>1);
#setup connection
sub SOAP::Transport::HTTP::Client::get_basic_credentials { 
 return $username => $password;
}
my $soap = SOAP::Lite
       -> uri('http://<mysite>')
       -> on_action( sub{ join '/', 'http://schemas.microsoft.com/sharepoint/soap',  $_[1] })
       -> proxy('http://<mysite>/_vti_bin/lists.asmx',keep_alive => 1);

$lists = $soap->GetListCollection();
quit(1, $lists->faultstring()) if defined $lists->fault();
my @result = $lists->dataof('//GetListCollectionResult/Lists/List');
foreach my $data (@result) {
    my $attr = $data->attr;
    foreach my $a qw'Title Description DefaultViewUrl Name ID WebId ItemCount' {
        printf "%-16s %s\n", $a, $attr->{$a};
    }
    print "\n";
}

身份验证似乎正在发挥作用。首先，我认为 GetlistCollection Web 服务正在工作，因为当我使用该 Web 服务进行调用时，它返回了一个页面。但我认为该调用正在返回我在 proxy 参数中指定的页面。

我能够获取共享点上特定站点上的列表集合。

我用过 GetListCollection。但是我并没有真正理解打印列表的代码。我刚刚从 squish.net 复制它。现在我尝试使用 CopyIntoItemsLocal Web 服务。

我们在一台服务器 (SVN) 上有一个文件存储库，我必须编写一个 Perl 脚本，该脚本在执行时会将文件和目录以及目录结构从 SVN 复制到共享点。

我将不胜感激任何帮助或提示。由于这是一项艰巨的任务，我以模块的形式进行。

Answer 1

我首先使用 soapUI （以前由 eviware 开发，现在由 smartbear 开发），这是一个开源的soapUI 测试工具。这将允许您来回发送肥皂交易，而无需任何其他用户界面。一旦您确定您的事务有效并且可以解析数据以获得您想要的内容，那么我将采取行动使用 Perl 来自动化这些事务。

这可以帮助您尽早消除请求中的错误、弄清楚如何解析响应并熟悉 API。