Hiya,

I replied to this yesterday but it doesn't seem to have made it through (?).

I said something like: This will take me a few days, because I will have to install and learn Ethereal or Wireshark.

In the meantime, I'll post my code here, so anyone else who wants can have a shot at making it work.

### Code Starts

# Test of Google's Blogger API # by Stephen Downes # April 7, 2007 # Much borrowing from Simon Wistow > Net-Google-Calendar-0.6 # Released under the same license as Perl # Define the variables

use LWP::UserAgent;

my $username = 'step...@downes.ca'; my $password = 'davidhume'; my $PostURI = 'http://www2.blogger.com/feeds/11679714/posts/default';

my $xml = qq|<?xml version="1.0" encoding="utf-8"?><entry xmlns='http://www.w3.org/2005/Atom'> <title type='text'>Marriage!</title> <content type='xhtml'> <div xmlns="http://www.w3.org/1999/xhtml"> <p>Mr. Darcy has <em>proposed marriage</em> to me!</p> <p>He is the last man on earth I would ever desire to marry.</p> <p>Whatever shall I do?</p> </div> </content> <author> <name>Stephen Downes</name> <email>$username</email> </author> </entry>|;

# First we authenticate

# Send the request

my $url = 'https://www.google.com/accounts/ClientLogin'; my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->env_proxy; my $response = $ua->post( $url, { Email => $username,Passwd => $password,service => 'blogger', source => 'Edu-RSS 0.2'});

# Extract the Authentication

my $auth = ""; if ($response->is_success) { my $resp = $response->content; if ($resp =~ /Auth=(.*?)\n/) { $auth = $1; } else { $auth = "failure"; } } else { $auth = "failure"; }

if ($auth eq "failure") { die "Authentication failure $response->errstring) "; }

my $authtoken = qq|AuthSub token="$auth"|;

# Set up request parameters

my $bua = LWP::UserAgent->new;

while (1) { # use while for redirects

my %params = {Authorization => $auth};

my $reqlength = length $xml; my $ct = 'Content-Type'; my $cl = 'Content-length';

$bua->default_header($ct => 'application/atom+xml'); $bua->default_header(Authorization => $authtoken); $bua->default_header(Content => $xml); $bua->default_header($cl => $reqlength); $bua->default_header(chunked => "false");

my $r = HTTP::Request->new( "POST", $PostURI );

# Yes there is some redundancy here - I haven't figured out which way is # best -- tried any number of combinations

$params{'Content-Type'} = 'application/atom+xml; charset=UTF-8'; $params{'Content-length'} = length $xml; $params{Content} = $xml;

# make the actual request

my $rq = $r, %params; $rq->header($cl => length $xml); my $resp = $bua->request( $rq );

# catch redirects if (302 == $resp->code) {

$PostURI = $resp->header('location'); next; }

if (!$resp->is_success) { print "Request Failed<br> ".$resp->status_line." - ".$resp-

exit; }

my $c = $resp->content; if (defined $c && length($c)) { print "Yay!!".$c; exit; } else { print "???"; exit; } }

### Code Ends

On Apr 6, 7:43 pm, "Pete Hopkins ☠" <phop...@google.com> wrote: