Many Pies

Many Pies

Monday, December 20, 2004

My first Perl script to use Soap. On the way I discovered that the FTP client built into IE uses binary mode for transfers, so edit your files in an editor that can use Unix format, like PFE, or use a better FTP client.

#!/usr/bin/perl


use CGI qw(:standard);
use Data::Dumper;

use SOAP::Lite;
use SOAP::Lite +autodispatch =>
uri => 'http://www.allconsuming.net/AllConsumingAPI',
proxy => 'http://www.allconsuming.net/soap.cgi',
on_fault => sub {
my($soap, $res) = @_;
die ref $res ? $res->faultstring : $soap->transport->status, "\n";
};

$AllConsumingObject = AllConsumingAPI->new('12','20','12','2004');

$tmpl_var = $AllConsumingObject->GetCurrentlyReadingList('paulm');

print "Content-type: text/html\n\n";
print Dumper($tmpl_var);

No comments: