WordPress サイトへの「リンク」を自動投稿するだけのスクリプトです。
期待どおりの動作にはなったのですが以下のような問題がありボツ。
ちなみに、投稿も同じように自動化できますね。この辺の API とかあってもよいとおもうんだがないんだろうか WP…
#!c:\strawberry\perl\bin\perl
use strict;
use WWW::Mechanize;
use utf8;
my $link_name = 'Neoflow. Co., Ltd.';
my $link_url = 'https://blog.neoflow.jp/';
my $link_description = 'Neoflow へのリンク';
my $link_category = '';
my $link_target = '_blank'; # null = 同じウインドウ、_blank = 新規ウインドウ、_top = 閲覧中のウインドウ
my $identity = 'me';
my $link_image = 'https://blog.neoflow.jp/wp-content/uploads/2015/07/favicon.ico';
my $link_rss = 'https://blog.neoflow.jp/rss.xml';
my $link_notes = '';
my $link_rating = '0'; # 0-10 評価しない場合は0
my $mech = WWW::Mechanize->new;
$mech->get('http://your-wp-site.com/wp-login.php');
$mech->submit_form(
form_name => 'loginform',
fields => {
log => 'username',
pwd => 'password',
},
);
$mech->get('http://your-wp-site.com/wp-admin/link-add.php');
$mech->submit_form(
form_name => 'addlink',
fields => {
link_name => $link_name,
link_url => $link_url,
link_description => $link_description, # Show description when Mouse Over
'link_category[]' => $link_category,
link_target => $link_target,
identity => $identity,
link_image => $link_image,
link_rss => $link_rss,
link_notes => $link_notes,
link_rating => $link_rating,
},
button => 'save',
);
__END__
