WWW::HatenaStar 0.04 をリリースしました - woremacxの日記
id:otsune さんが、WWW::HatenaStar 0.03 を使ってスターを付けている(WWW::HatenaStarでうごメモにスターを付けまくる - otsune’s SnakeOil - subtech)そうです。ただ、数が多くなると DoS とされてしまうようで、Forbidden されるとのことでした。その対策として wait を入れれるようにパッチをコミットしていただきました！また、コールバックを渡して、プログレスバー等を表示できると良いとのことで、それを実装しました！コールバックを渡す例として fetch-video.pl を教えていただきました。WWW::HatenaStar では、目標スターが何個で、現在そのうち何個までつけれたかを知れればいいので、コールバックに渡すパラメータは単純に現在値、目標値の2個になっています。使い方は、サンプルスクリプトをご覧ください
Plagger の assets 読み込み時に sort するようにする - woremacxの日記
PlaggerFilter::EntryFullText で、zzz_google_adsense からコードをパクって body をいじる処理を追加した pl を書いて zzz より辞書的に若い名前をつけて保存しても、zzz_google_adsense が実行されたりしてへんだなーと思ったら、長い Filter::EntryFullText の歴史の中で、自前で sort せずに読む期、自前で sort して読む期、コールバックを渡して読む期等があり、現在の Plagger::Plugin の load_assets では sort してないことが分かったので、手元の環境では sort するようにしてみたということを、1 文で書き記したわけだけど、とても読みにくくてワロス。 Index: lib/Plagger/Plugin.pm ===========================
tiarra のログを mysql に突っ込む Log::DBI を作った - woremacxの日記
Web アプリで permalink 付けたり、なんかあといろいろ検索とかやってみたいよねという話になったので、まずはログを取る子から。Log::Channel をコピって作ってて、現状 PRIVMSG と NOTIFY しかログをとってない。今実際に動かしていて、まあまあそれなりおｋな感じでログられている。 package Log::DBI; use strict; use warnings; use IO::File; use File::Spec; use Tiarra::Encoding; use base qw(Module); use Module::Use qw(Tools::DateConvert Log::Logger Log::Writer); use Tools::DateConvert; use Log::Logger; use Log::Writer; use C
OpenPNE のコミュニティ書き込みを IRC で Notify - woremacxの日記
それPla!ちなみに、DBIx::Simple で JOIN したときに複数テーブルに同じカラムがある場合、どう取り出せばいいのか困ってました。IRC で質問したところ knagano さんに解決法を速効教えていただきました。select foo.name, bar.name としているところを select foo.name fooname, bar.name barname とすれば、ちゃんと取り出せるということを教えていただきました。ありがとうございます！ RewriteEngine On RewriteRule ^/([0-9]+)$ index.php?m=pc&a=page_c_topic_detail&target_c_commu_topic_id=$1 [R=302,L] plugins: - module: Subscription::Config config: fee
をれをれ subversion リポジトリを作って外部のリポジトリを使いやすいように料理しよう！ - woremacxの日記
coderepos や lazy-people や vaginarepos といろんな subversion リポジトリにアカウントもらって、さらにはプライベートな subversion リポジトリがあったりすると、どこになにがあったのかさっぱりです。そんなときは、をれをれ subversion リポジトリを作って自分が使うものだけを集約すると、快適な生活を送れるかと思います。やり方はカンタンです！プライベートなリポジトリ( http://example.com/repos/private/ )を用意して、svn:externals をセットするだけです！ # checkout する $ svn co http://example.com/repos/private/ $ cd private # coderepos 用ディレクトリを作る $ svn mkdir coderepos $ s
Flickr の feed の画像を upgrade する Filter::FindEnclosures - woremacxの日記
Plaggerなんか、フィードに普通に元画像へのリンクあるので、基本的にいらない子みたいです。＞＜あえて使う場面があるとすれば、画像の大きさを label で指定して、必要な大きさの画像を取る場合のみです。＞＜ woremacx flickr の API 使って、feed の画像を original 画像に upgrade する filter 書くと幸せになれそうな気がしてきた。http://twitter.com/woremacx/statuses/360564352otsune @woremacx TruePermalinkかFindEnclosureあたりで出来そう lang:jahttp://twitter.com/otsune/statuses/360602382woremacx @otsune FindEnclosure で検討してみます！http://twitter.com/
Publish::Gmail でスレッド情報を付加 - woremacxの日記
すでにどこかにあるのかもしれないのをぐぐらずに書き始めてみたり、DBIC の Schema 触りたくないという理由だけで DBI つかってたり、途中からエラー処理してなかったり、Message-Id 全部格納してるのに localpart という変なカラム名になってたり、無関係な diff が数行あったり、いろいろ不適切かもしれません。あと、べつに SQLite とか MySQL とかが必須というわけでなくて、$feed->url をキーに Message-Id 保存して、適当に expire すればいいだけなんだよね。 CREATE TABLE thread ( id INTEGER NOT NULL PRIMARY KEY , feed INTEGER NOT NULL, localpart TEXT, created_on INTEGER ); global: timezone: A
perl でニコニコ動画から flv を取ってくる - woremacxの日記
なんとなく flv だけ取る最小限のものを書いてみた。Cookie の処理に Plagger::Cookies を使ったので、いろんな Cookie を Share して使える。(new に cookie => "cookies.txt" とか)気が向いたらタイトルとか字幕とかを取るようにしてみるつもり。http://pub.woremacx.com/nicovideo/20070723-1/ 参考にさせていただいたソース ruby 版: http://d.hatena.ne.jp/nkoz/20070609/1181372641python 版: http://nanabit.net/softwares/python/dlnico/追記 (7/24)すでに perl でまともなモジュールがあることがわかりました。http://blog.perl.tv/2007/07/_flvperl.h
woremacxの日記 - yaml で簡単なレシピを書ける CustomFeed プラグイン
Plaggeryaml で簡単なレシピを書ける CustomFeed プラグインを書いてみました。P::P::C::GoogleNews や P::P::F::EntryFullText のコードをベースにしました。名前は、適当に Plagger::Plugin::CustomFeed::Config としました。Plagger::Plugin::CustomFeed::Config package Plagger::Plugin::CustomFeed::Config; use strict; use base qw( Plagger::Plugin ); use DirHandle; use YAML; use Encode; use HTML::TokeParser; use Plagger::UserAgent; use Plagger::Util qw( decode_conte
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
AutoPagerize + Filter::EntryFullText の実験 - woremacxの日記