I am using ActivePerl 5.10.1.1007

I used ppm to install the following packages
SOAP::Lite
NTLM
LWP

I then created a subroutine, called as follows with a hash of the name->value form data:

&sendFormSP(\%data);

In the subroutine the form data is loaded as follows:

my $params = shift;
my %data = %$params;

Then I create dynamic SOAP variables for each of the fields and load onto an array:

my @fieldvars = ();

foreach my $k (keys (%data)){
${’field_’ . $k} = SOAP::Data->name(’Field’, $data{$k})->attr({ Name => $k });
push(@fieldvars, ${’field_’ . $k});
}

Finally the $method SOAP variable is assigned as follows.

my $method = name(’Method’=> \@fieldvars)->attr({ ID => “anything”, Cmd => ‘New’});

And then the final few lines of code same as in the original post.

If anyone has any code to share please do so.

Thanks,
K

My SharePoint is using HTTPS, so I had to change the the $sp_domain value to “my_domain.com:443″, and it worked well.

Doing more with less,

@InvoiceGuy

http://rt.cpan.org/Public/Bug/Display.html?id=9521

my @credentials = ($sp_domain, “”, $sp_endpoint, $sp_password);

to

my @credentials = ($sp_domain, “”, $sp_username, $sp_password);

Now it works great!

I am using Perl 5.8.8 with SOAP::Lite 0.710.08 - all built from source - on CentOS 5.3

1. Escape the backslash in $sp_username = ‘DOMAIN\\username’;

2. The update would NOT work with a Library Document Item - you need to supply the ID *AND* FileRef - uses spaces - not %20 - for example:

$sp_ref = “http://sp.example.com/sites/mysite/My Library/file 1.txt”;

my $field_id = name(’Field’, $sp_id)->attr({ Name => ‘ID’});
my $field_ref = name(’Field’, $sp_ref)->attr({ Name => ‘FileRef’});
my $field_something = name(’Field’, $something_else)->attr({ Name => ‘Something_x0020_Else’});
my $method = name(’Method’, [$field_id, $field_appname])->attr({ ID => 1, Cmd => ‘Update’});

FYI - FileRef was NOT required when updating a List Item

3. Not sure what the $jira_name was set to in the example above - but all other examples (mostly VB/.NET based) I saw on the web had ID = 1 - this worked for me

4. I also had to make the change in comment #9 above to get the authentication to work - using Authen::NTLM 1.05

bbye
Great Work!!!!

$domain = substr($challenge, $c_info->{domain}{offset}, $c_info->{domain}{len});

with:

$domain = &unicode($domain);

If that doesn’t help, you’re going to have to turn on debugging on LWP and get the full headers and see if you work out what’s going wrong. Feel free to email them directly to me and I may be able to provide some insight.

James

This info is really useful… i’m almost there, but keep hitting the dreaded “401.1 Unauthorised” error.

I’m running this code against an IIS 6.0 server and using the perl module Authen::Ntlm version 1.05. I noticed that you commented on a defect that is supposedly fixed in this version because you were having some problems accessing an IIS/60 server. (http://rt.cpan.org/Public/Bug/Display.html?id=9521)

Could you provide more information about the patch you applied because I think i’m having the same problem and no matter what I do, it doesn’t change the outcome

Thanks in advance for any help!