3月に フリー写真素材 :: Free.Stocker という無料写真素材サイトをオープンし、このサイトのサイドバーに クックパッド みたいに気軽にメッセージを送れるフォームを設置しました。 しばらくは何事も無かったのですが、ある日突然大量のSPAMメッセージが送られてくるように…(●´⌓`●) 酷い時には3分〜5分に1通送られてくるし、試しに送り元のIPアドレスとホストを調べてみたら毎回バラバラなので困りました。 こんな時、多くのサイトでは CAPTCHA と呼ばれる読みづらい英数字の羅列の画像を入力させることが多いと思いますが、それでは「気軽にメッセージを送れるフォーム」とは言いづらいですし、サーバーにもページを表示させるたびに毎回余計な負担がかかってしまいます。 試しにWordPressのSPAM防止などに広く使われている Akismet というSPAM防止APIをメール送信スクリプ

必要に駆られて作ってみました・・・。モジュールの使いかたがよくわかっていない人が作っているので、そのつもりでお使いください。 使いかた はじめに「[Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合」で、FeedPP.pmとTreePP.pmを手に入れて、以下のCGIを置くフォルダの下に「XML」というフォルダを作り、そこにおいてください。 下記ソースを用途と環境に合わせて編集し、サーバーにアップロードしてパーミッションを適切に設定し、WWWブラウザから実行してください。「出力完了」と表示されたら、CGIを置いたフォルダに「feed.rdf」というファイルができています。pingの送信先として当CGIを指定すれば、ブログの更新すると自動的にフィードも更新されるようになります。 ソース 「[Perl] XML::FeedPP - RSS・RDF・

404 Blog Not Found:perl - mail to twitter gateway をみて触発されて（？）、メールの本文にクエリを書いてメールするとWikipediaの内容が返信されてくるメールゲートウェイをPerlで書いてみた。ほぼ生まれて初めてCPANを駆使したから内容的にはかなり適当。まだ文字化けが残ってるけど一応ちょこっと調べたいときとかには使えそう。 ソースを公開しておく。 #!/usr/bin/perl -w use warnings; use strict; use Net::POP3; use Net::SMTP; use WWW::Wikipedia; use utf8; use Encode qw(from_to); use Encode; use MIME::Base64; my $smtp_server = 'SMTPサーバ'; my $pop_se

もういくつ寝ると 今年のはじめにやりたいことリストを作った。今見たら50項目あるリストのうち25個が達成済みだった。ちょうど半分やりたいことをやったということだ。私にしてはまあまあの結果だと思う。満足。 やりたいことリストにあるもののうち、「〜を食べたい」系は概ねクリアし…

https://uzulla.hateblo.jp こっちを見てね！ スーパーシンプルやな…。 そうそう、見出し置くと記事が切れるんだった。 http://d.hatena.ne.jp/hatenadiary/20181113/1542071987 はてだとはてぶろを両立させようかと思ったこともありましたが、結局もどってきませんでしたね。 ああ、いろいろと思い出がある…。 ベータなんだし、もうちょっとガンガン機能追加されるのかなーっておもってたんだけど、割とあんまり機能追加されないので微妙な気分になってる。 一旦戻ろうかしら。 Panasonic Lumix GX1買ったんですよ http://uzulla.hateblo.jp/entry/2011/11/27/230731 XMailをつかってみないか？ http://uzulla.hateblo.jp/entry/2011/11/26