WordPress へ自動投稿

WordPress サイトへの「リンク」を自動投稿するだけのスクリプトです。
期待どおりの動作にはなったのですが以下のような問題がありボツ。

  • リンク数が多くなると表示されなくなる 1000 ~ 数千件前後(テンプレートによっては表示できるかも)
  • WP のテーブル wp_links は同一リンク名、同一 URL での重複登録を許可しているためダブリが発生する

    ちなみに、投稿も同じように自動化できますね。この辺の 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__
    
  • スポンサーリンク

    シェアする

    フォローする

    スポンサーリンク