コメントspam対策
最近またコメントspamがひどい。いちいち消すのも馬鹿馬鹿しいので，24時間以内にapproveしなかったコメントはすべて削除することにした。これでhamを24時間以内に処理しなくてはいけなくなるのだけど，それは大した手間ではない。そのためにケータイにnoticeを飛ばしているのだし。
不定期戯言
2014.06.28 (Sat)
2014.02.01 (Sat)
とりあえず1年
去年の2月からとりあえず1年間，毎日何らかの投稿を続けることができた（アップロードが翌日になったことは何度かあるけど）。ブログのタイトルに「不定期」とつけてあるから，1年間毎日投稿したら「看板に偽りあり」ってことになるかな，と思ってやってみた。反省はしていない。
コメント(0)
コメントの受付は終了しました。
2013.11.25 (Mon)
国際的なspam
このブログにつくコメントの8割か9割はspamで，そういったのはrejectしてるのだが，何語かわからないのがちょこちょこ来るようになった。おお，国際的。
Šis raksts tika uzrakstīts precīzu Tomēr, ja jūs vēlaties, lai varētu apskatīt saistītos rakstus, jūs varat apskatīt informāciju šeit
これとか，
Այս հոդվածը գրվել է ճիշտ, բայց եթե ուզում եք տեսնել հարակից հոդվածները կարող եք տվյալներ դիտելու համար
これもそうだし，
यदि आप यहां जानकारी देख सकते संबंधित लेख देखना चाहते हैं तो यह लेख, हालांकि सटीक लिखा गया था
これもすごい。そういえば最近ロシア語のが来なくなったな。
実はmlterm上のvimに貼り付けようとしたらうまくいかなかったので，kwriteを使った。mltermじゃなくてkonsoleだったら大丈夫っぽい。
コメント(12)
わたやん wrote at 2013-11-25 23:13:
Google翻訳によると，最初のはラトビア語で「この記事は、関連記事を参照したい場合は、ここで詳細を見ることができ、正確なで書かれています」，次がアルメニア語で「この記事は、正しく書かれていたが、あなたは、関連記事を参照したい場合には、情報を表示することができます」，最後はヒンディ語で「あなたはそれがこの記事は正確に書かれた情報に関連する記事を見つけることができるかどうかを確認したい場合は」らしい。コピペしそこねたかな。
わたやん wrote at 2013-11-25 23:15:
さっきクロアチア語で「Ovaj članak napisao je točno, međutim, ako želite vidjeti srodne članke možete vidjeti informacije ovdje」というのが来た。「あなたは関連記事を参照したい場合は、この記事で書かれていたが真である、ただし、ここで見ることができます」ということらしい。
tss wrote at 2013-11-25 23:17:
文字化けしてます > 大丈夫っぽい�
わたやん wrote at 2013-11-25 23:20:
おおっと，そんなところにゴミが入ってましたか。とり急ぎお掃除しました。
わたやん wrote at 2013-11-26 00:16:
「This article was written the exact However, if you want to see related articles you can view the information here」いまさら英語じゃつまらんな。
「Artikulu hau idatzi zehatza Hala ere, nahi duzun erlazionatutako artikuluak informazioa ikusi ahal izango duzu hemen ikusi nahi izanez gero」バスク語。
「আপনি এখানে তথ্য দেখতে পারেন সম্পর্কিত নিবন্ধ দেখতে চান এই নিবন্ধটি, তবে সঠিক লেখা হয়েছিল」ベンガル語。
わたやん wrote at 2013-11-26 00:25:
「Dieser Artikel wurde die genaue jedoch geschrieben, wenn Sie zu verwandten Artikeln Sie die Informationen anzeigen können hier sehen wollen」ドイツ語。
「Artikel ini ditulis tepat Namun, jika Anda ingin melihat artikel terkait Anda dapat melihat informasi di sini」インドネシア語。
意味はだいたいどれも同じようなものっぽい。
わたやん wrote at 2013-11-26 08:05:
チェコ語「Tento článek byl napsán přesně Nicméně, pokud chcete vidět související články si můžete prohlédnout informace zde」
エストニア語「See artikkel on kirjutatud täpne aga kui sa tahad, et näha seotud artikleid saate vaadata infot siit」
ベトナム語「Bài viết này đã được viết chính xác Tuy nhiên, nếu bạn muốn xem các bài viết liên quan đến bạn có thể xem thông tin ở đây」
わたやん wrote at 2013-11-29 17:19:
アイルランド語「Scríobhadh an Airteagal seo an chruinne Mar sin féin, más mian leat chun earraí gaolmhara is féidir leat féachaint ar an eolas anseo a fheiceáil」
トルコ語「Eğer burada bilgileri görüntüleyebilirsiniz ilgili makaleler görmek istiyorsanız bu makalede, Ancak tam yazılmıştır」
わたやん wrote at 2013-11-29 17:20:
Unicodeってすごいなあと思いますね，こういうのがそのまま書けるんだから。
わたやん wrote at 2013-11-30 09:50:
ボスニア語「Ovaj članak je napisan tačno Međutim, ako želite vidjeti srodnih proizvoda možete pogledati na ovdje」
ベンガル語「আপনি এখানে তথ্য দেখতে পারেন সম্পর্কিত নিবন্ধ দেখতে চান এই নিবন্ধটি, তবে সঠিক লেখা হয়েছিল」
イタリア語「Questo articolo è stato scritto l'esatto Tuttavia, se si desidera visualizzare gli articoli correlati è possibile visualizzare le informazioni qui」
ジャワ語「Artikel iki ditulis ing tepat Nanging, yen sampeyan pengin ndeleng artikel sing gegandhengan sampeyan bisa ndeleng informasi」
ギリシャ語「Το άρθρο αυτό γράφτηκε το ακριβές Ωστόσο, αν θέλετε να δείτε σχετικά άρθρα μπορείτε να δείτε τις πληροφορίες εδώ」
ノルウェー語「Denne artikkelen ble skrevet den nøyaktige Men hvis du ønsker å se relaterte artikler du kan se informasjonen her」
デンマーク語「Denne artikel blev skrevet den præcise Men hvis du ønsker at se relaterede artikler kan du se de oplysninger her」
ドイツ語「Dieser Artikel wurde die genaue jedoch geschrieben, wenn Sie zu verwandten Artikeln Sie die Informationen anzeigen können hier sehen wollen」
クジャラト語「તમે અહીં માહિતી જોઈ શકે સંબંધિત લેખો જોવા માંગો છો તો આ લેખ જોકે ચોક્કસ લખેલા」
タガログ語「Ang artikulong ito ay isinulat ang eksaktong Gayunpaman, kung gusto mong makita ang mga kaugnay na artikulo maaari mong tingnan ang mga impormasyon dito」
クレオール語（ハイチ）「Atik sa a te ekri nan Liv la egzak la Sepandan, si ou vle wè atik ki gen rapò ak ou kapab wè enfòmasyon an isit la」
スロバキア語「Tento článok bol napísaný presne Avšak, ak chcete vidieť súvisiace články si môžete prezrieť informácie tu」
ボスニア語「Ovaj članak napisao je točno, međutim, ako želite vidjeti srodne članke možete vidjeti informacije ovdje」
スウェーデン語「Denna artikel skrevs den exakta Men om du vill se relaterade artiklar du kan visa informationen här」
リトアニア語「Šis straipsnis buvo parašyta tiksli Tačiau jei norite pamatyti jo pateiktus straipsnius galite peržiūrėti informacijos rasite čia」
わたやん wrote at 2013-11-30 11:36:
アフリカーンス語「Hierdie artikel is geskryf om die presiese Maar, as jy wil verwante artikels wat jy kan die inligting hier sien om te sien」
バスク語「Artikulu hau idatzi zehatza Hala ere, nahi duzun erlazionatutako artikuluak informazioa ikusi ahal izango duzu hemen ikusi nahi izanez gero」
わたやん wrote at 2013-12-02 10:28:
ラオ語「ມາດຕານີ້ຖຶກລາຍລັກອັກສອນທີ່ແນ່ນອນຢ່າງໃດກໍ່ຕາມ, ຖ້າຫາກວ່າທ່ານຕ້ອງການເບິ່ງບົດຄວາມທີ່ກ່ຽວຂ້ອງທ່ານສາມາດເບິ່ງຂໍ້ມູນດັ່ງກ່າວນີ້」
フランス語「Cet article vives, à partir de laquelle vous pouvez apprendre beaucoup de choses. Si vous voulez comprendre les articles ou les informations pertinentes, vous pouvez visualiser les informations suivantes」
フィンランド語「Tämä artikkeli on kirjoitettu tarkka kuitenkin, jos haluat nähdä aiheeseen liittyviä artikkeleita voit tarkastella tietoja tässä」
スペイン語「Este artículo fue escrito el exacto Sin embargo, si desea ver los artículos relacionados que se pueden ver aquí la información」
ブルガリア語「Тази статия е написана точно Все пак, ако искате да видите статии, свързани можете да видите информацията тук」
オランダ語「Dit artikel levendige, van waaruit u kunt een heleboel dingen leren. Als u wilt dat de relevante artikelen of informatie te begrijpen kunt u de volgende informatie te zien」
アゼルバイジャン語「Siz burada məlumat bilərsiniz Əlaqəli məqalələr görmək istəyirsinizsə Bu maddə Lakin, dəqiq yazılmış」
ポルトガル語「Este artigo vivas, a partir do qual você pode aprender um monte de coisas. Se você quiser entender os artigos e informações relevantes que você pode ver as seguintes informações:Denne artikkelen levende, der du kan lære en masse ting. Hvis du ønsker å forstå de relevante artikler eller informasjon du kan vise følgende informasjon」
韓国語「당신은 많은 것들을 배울 수있는이 문서 생생한. 당신이 관련된 기사 나 정보를 이해하려면 다음과 같은 정보를 볼 수 있습니다」
セブアノ語「Kini nga artikulo gisulat ang eksaktong Apan, kon gusto ka nga tan-awa ang mga artikulo nga may kalabutan sa inyong mahimo na sa mga impormasyon dinhi」
だいぶ既出の言語がかぶってきた。手抜きでけしからん。
コメントの受付は終了しました。
2013.08.03 (Sat)
昨日の「バルス」
昨日のブログ記事のタイトル「バルス」は内容に関係なく，単にバルス祭りに参加したかっただけのこと。ただtwitterで「バルス」と叫ぶだけではつまらないので，そのタイミングでブログに投稿した。このときtwitterにタイトルが投稿されるようにスクリプトを書いてあるので，間接的にバルス祭りに参加できた。
コメント(0)
コメントの受付は終了しました。
2013.06.27 (Thu)
spam対策
blosxomのfeedbackでコメント欄をつけているわけだが，偽ブランド業者からのspamがしつこい。akismetを使ってみたいのだが，さくらのライトでは勝手にモジュール入れられない可能性があっていまいち。そんなわけで，spamにありがちなパターンを手打ちでspam判定に加えてみた。これで漏れるのもいくつかあるけど，半分以上は落とせるはず。
別のWordPressで管理してるブログにもコメントspamがしつこく来るようになった。これこそakismet使いたいところなんだけど，なぜかキーを入力できない…。
コメント(0)
コメントの受付は終了しました。
2013.06.26 (Wed)
ブログ用スクリプト
職場ではWordPressでブログを用意しているのだが，やはりログインして書くのはめんどくさい。そこで，XML::RPCを使ってオフラインで書いたのをアップロードできるようにスクリプトを書いてみた。これで少しは職場ブログも更新頻度が上がるかな。
だいたいこんなコード。ぐぐるとPHPのコードは見つかるんだけど，Perlのがなかなか見つからなかった。
use RPC::XML;
use RPC::XML::Client;
my ($host,$user,$pass,$blogid,$client);
sub register_bloginfo($$$)
{
local ($url,$userid,$password) = @_;
$host = $url;
$user = RPC::XML::string->new($userid);
$pass = RPC::XML::string->new($password);
get_blogid();
}
sub get_blogid()
{
$client = RPC::XML::Client->new($host.'/xmlrpc.php');
$request = RPC::XML::request->new('wp.getUsersBlogs', $user, $pass);
$result = $client->send_request($request);
return 0 if !ref($result) || $result->is_fault;
foreach $v (@$result)
{
while(($a,$b) = each %$v)
{
$blogid = $1 if $a eq 'blogid' && $b->as_string =~ /(\d+)/;
}
}
return $blogid;
}
sub post($$$$$$$$$$)
{
# category と tag は配列のリファレンス
local ($title,$content,$year,$month,$day,$hour,$min,$sec,$category,$tag) = @_;
die "No blogid" if $blogid < 1;
$tags = RPC::XML::array->new(@$tag);
$categories = RPC::XML::array->new(@$category);
$title = RPC::XML::string->new($title);
$content = RPC::XML::string->new($content);
$date = RPC::XML::datetime_iso8601->new(
sprintf("%04d%02d%02dT%02d:%02d:%02d", $year,$month,$day,$hour,$min,$sec));
$request = RPC::XML::request->new(
'wp.newPost',
RPC::XML::int->new($blogid), $user, $pass,
RPC::XML::struct->new(
post_type => RPC::XML::string->new('post'),
post_status => RPC::XML::string->new('publish'),
post_title => $title,
post_content => $content,
post_date_gmt => $date,
terms_names => RPC::XML::struct->new(
category => $categories,
post_tag => $tags
)
)
);
$result = $client->send_request($request);
return 0 if !ref($result) || $result->is_fault;
return 1;
}
1;
コメント(1)
わたやん wrote at 2013-06-27 14:39:
時刻のところはpost_date_gmtじゃなくてpost_date。それと末尾に+09つけなきゃいけない。
コメントの受付は終了しました。
2013.02.28 (Thu)
とりあえず1ヶ月
2月はブログに穴を開けなかった。とりあえず書いただけという日もだいぶあったけどまあいいや。
3月は冒頭から大忙し。東京に行ったり宮城に行ったり原稿書いたり採点したり。大丈夫かな。
コメント(0)
コメントの受付は終了しました。
2013.01.20 (Sun)
とりあえず1ヶ月
46歳の誕生日にあたって，しばらくブログを毎日続けてみようと思った。とりあえず1ヶ月は続いたかな（アップロードは翌日になった，というケースはあるけど）。さて，どこまで続くかな。1月いっぱいくらいはなんとかしてみたい気もする。
コメント(0)
コメントの受付は終了しました。
2012.12.05 (Wed)
途切れちゃったなあ
12月に入ってすぐに連続投稿が途切れてしまった。誕生日まで1ヶ月続けてみようと思っていたのだが…まあ仕方ない。
コメント(3)
だきわ wrote at 2012-12-06 09:05:
1,2,5,10,17,26と続ければ数学的には連続していると思われ。
だきわ wrote at 2012-12-11 08:20:
1,2,5,14,41,122,365...とやればいいと思います。
a1=1
a(n+1)=an+3^(n-1)
すぐに天文学的な数字になりますけどね。
わたやん wrote at 2012-12-11 09:44:
やっぱり鬱がいかんのや。
コメントの受付は終了しました。
2012.10.08 (Mon)
ああ，途切れてしまった
10月は1ヶ月連続でブログを書こうと思っていたのだが，土曜日の仕事が終わったところでひどく疲れてしまっていて，どうにもならなかった。今は体調もひどいから，無理しないでおこう。新しい薬がうまく効いている感じがしないのに，副作用のせいか体重が増えてしまっている。もうしばらく様子を見ることにはなるけど，たぶん薬を替えることになるんじゃないかな。
コメント(0)
コメントの受付は終了しました。
わたやん wrote at 2014-07-04 18:25:
コメントの受付は終了しました。