CMWK

フィード。
I feed you.

Google Blog Search Pinging Service API

#!/usr/bin/perl

use strict;
use warnings;

use XMLRPC::Lite;

my $result =  XMLRPC::Lite
         ->proxy('http://blogsearch.google.com/ping/RPC2')
         ->call('weblogUpdates.extendedPing',
                'Official Google Blog',
                'http://googleblog.blogspot.com/',
                'http://googleblog.blogspot.com/',
                'http://googleblog.blogspot.com/atom.xml')
         ->result;

use Data::Dumper;
print Dumper($result);

1;

colinux:~# perl google_ping.pl
$VAR1 = {
          'flerror' => '0',
          'message' => 'Thanks for the ping.'
};

#!/usr/bin/perl

# Auto login to TypePad and post the entry.

use strict;
use warnings;

use WWW::Mechanize;

# TypePad login
my $mech = WWW::Mechanize->new();
$mech->get('https://www.typepad.jp/t/app');
$mech->field('username', 'yourusername');
$mech->field('password', 'yourpassword');
$mech->submit();

# Post the entry
$mech->get('https://www.typepad.jp/t/app/weblog/post?blog_id=yourblog_id');
$mech->form_name('entry_form');
$mech->field('title', 'WWW::Mechanize');
$mech->field('text', 'This entry is generated by WWW::Mechanize.');
$mech->submit();

1;

This entry is generated by WWW::Mechanize.

Please see my side bar. I have a widget of Vox Bling . Is it cool?

Download mov00019.3gp

モバイル

モバイルからできますか？

TypePad Mobile

This entry was posted by Windows Live Writer. It's easy to post an entry.