[MarsEdit] 関連エントリー作成AppleScriptを修正 - ピンバックしないように修正

320254606 bd28caba3c
先日、てぃかさん(@thikasa)のエントリーで知った、WordPressでピンバックさせないやり方。

WordPress で自サイトへのピンバックを防ぐ２つの方法 | thikasa note
ただ引っかかるとすれば、自分のサイトのリンクなのに自分で承認をしないといけないわけで、これをウザい！となる向きもきっとありますよね。 …

自分のBlogに対してピンバックさせないには良い方法。

このやり方をMarsEditの関連エントリー作成のAppleScriptに適応。

ご自身のBlogに対する関連エントリー作成時のみに有効かと思います。

MarsEdit – the blog editor for WordPress, Tumblr, Blogger and more. 3.5.4（￥3,450）

カテゴリ: ソーシャルネットワーキング, 仕事効率化
販売元: Red Sweater Software – Red Sweater Software（サイズ: 6.2 MB）
全てのバージョンの評価:

（4件の評価）

そもそもなぜ修正をしようと思ったか

エントリーの最後に関連エントリーを載せています。
もちろん当Blogの関連エントリーです。

そのためURLも当Blogのになってしまいます。

そのURLをエントリーに記載し公開をすると何が起こるのかというと、ピンバックが跳んでくるのです。
ピンバックがくると管理画面で承認をしないといけません。

他の方のBlogからのピンバックであれば喜んで承認をしますが、自分のBlogのピンバックだと面倒です。

で、てぃかさんのエントリーにヒントを得て修正を決断。

ピンバックさせないやり方

今回はURLからドメイン名を除去するやり方を適応。

AppleScriptからRubyをコールしてURLをドメイン名で分割。
分割した結果、ドメインが含まれてない方のURLを使用する流れです。

AppleScript

以下に修正したAppleScriptの一部を抜粋。

tell application &quot;MarsEdit&quot;
	
	set insert_text to {&quot;&lt;ul&gt;&quot; &amp; return}
	repeat with select_index in select_indexes
		set site_info to (item select_index) of site_infos
		set site_title to title_key of site_info
		set site_url to url_key of site_info
		
		set domain_url to &quot;http://stryh.com&quot; -- 追加１
		set noping_url to do shell script &quot;ruby -e &#039;u=\&quot;&quot; &amp; site_url &amp; &quot;\&quot;;us=u.split(\&quot;&quot; &amp; domain_url &amp; &quot;\&quot;);puts us[1].strip;&#039; &quot; -- 追加2
		
		set split_title to do shell script &quot;ruby -e &#039;t=\&quot;&quot; &amp; site_title &amp; &quot;\&quot;;ts=t.split(\&quot;|\&quot;);puts ts[0].strip;&#039; &quot;
		set encoded_title to replace_html_entity(split_title) of me
		
		set the end of insert_text to &quot;&lt;li&gt;&lt;a href=\&quot;&quot; &amp; noping_url &amp; &quot;\&quot; title=\&quot;&quot; &amp; encoded_title &amp; &quot;\&quot; target=\&quot;_blank\&quot;&gt;&quot; &amp; encoded_title &amp; &quot;&lt;/a&gt;&quot; &amp; make_tweetbuzz_url(site_url) of me &amp; make_hateb_url(site_url) of me &amp; &quot;&lt;/li&gt;&quot; &amp; return
	end repeat
	
	set the end of insert_text to {&quot;&lt;/ul&gt;&quot;}
	try
		set selected text in document 1 to insert_text as text
	end try
	
end tell

修正箇所は追加1、追加2とコメントが書かれている行。
追加1の箇所でドメイン名を使用しています。
この部分はこのAppleScriptを使われる方のドメインに合わせて修正して下さい。

↑のコードでは私のBlogのドメインを指定しています。