moxyがエラーで転けてた
最新のmoxyを実行すると転けるのでソース辿ってみたら、最後のcommitが原因だった。
diff --git a/lib/Moxy.pm b/lib/Moxy.pm index e788ffa..adc1fb6 100644 --- a/lib/Moxy.pm +++ b/lib/Moxy.pm @@ -276,6 +276,7 @@ sub _make_response { (my $url = $req->uri->path_query) =~ s!^/!!; - $url = uf_uristr($url); + $url = uf_uristr( uri_unescape $url); if ($url) { # do proxy my $res = $self->_do_request(
URIはuri_escapeされた文字列を使うと、正規表現に当てはまらずURIオブジェクトがうまく作成されないらしい。
今回の$req->uri->path_queryに含まれるurlはuri_escapeされていたため、escapeされた文字列をベースにuf_uristrが実行されてescape状態でのURLとなり、結果正規表現から外れたためにURIオブジェクトがうまく作成されず、hostが取得できていなかったためエラーとなっていた模様。
WassrにiTunesで再生してるタイトルを送信する
AppleScriptで何気なしに書いてみた。再生が始まったとたんに送信する形のほうが楽な気もするけど、それも微妙だとおもったので手動に。
リファレンスの類いがあまり落ちてないから複雑なのは書きづらいけど、ちょっとしたやつなら割と書きやすい感じ。Macでしか動かないから応用しようがないのも事実。
AirStationの設定をValueDomainに定期的につっこむ
AirStation WHR-HP-GNという前提での、ValueDomain定期更新スクリプト。各AirStationの型番毎にqueryが判明すれば汎用化できるんだろうけど、そこまでやる意味があるか分からないので。
AirStationにもAPI備わってればいいのになぁとはよくおもう。
#!/usr/local/bin/perl use strict; use warnings; use Regexp::Common qw/net/; use Encode qw(decode encode); use WWW::Mechanize; use URI; use Net::DNS::ValueDomain::DDNS; my $user = <id>; my $pass = <pass>; my $url = "http://192.168.11.1/cgi-bin/cgi?"; my $ip = ''; my $airstation = URI->new($url); my $mech = WWW::Mechanize->new( autocheck => 1 ); $mech->credentials($user,$pass); $airstation->query_form( req => 'twz' ); $mech->get( $airstation->as_string ); $airstation->query_form( req => 'tfr', id => '41' ); $mech->get( $airstation->as_string ); $airstation->query_form( req => 'frm', frm => 'info.html' ); $mech->get( $airstation->as_string ); my $content = $mech->content; my @content = split(/\n/, $content); foreach my $line ( @content ) { $line =~ s/\s//g; if ( $ip eq '' && $line =~ /$RE{net}{IPv4}/o ) { $ip = encode('utf-8', $line); } } $ip =~ s/<td>//; $airstation->query_form( req => 'twz', frm => 'logout.html' ); $mech->get( $airstation->as_string ); my $ddns = Net::DNS::ValueDomain::DDNS->new; $ddns->update( domain => 'haoyayoi.net', password => $ddns_pass, host => '*', ip => $ip, );
簡単な掲示板というかフレームワークの設計をはじめてみた
色々な事情で機能縮小した掲示板を、縮小時の手間と変わらないままで、かつての機能を維持した上で、ユーザ情報をメッセージから分離させて管理できるようにする、という、ちょっと無茶っぽい条件を成立させるスクリプトの作成を勉強がてら行ってる。…使うかどうかは微妙だけど。
現状
- 元々の掲示板
- 現在の掲示板
- ソースについては、現在編集ができる立場にいるためか伺い知る事はできる。とりあえず、テーブル設計や諸処のロジック設計から、拡張した後の手間が大きく増えるのだけは分かっている。
掲示板を一から設計したことがないのもあって、とりあえずアプリのベースを作り、そこに掲示板として必要な機能を突っ込んでいくことにした。PSYRENなる同類アプリも書いてたけど、本質的ではない部分で色々悩んだ挙句一旦停止した。
cgiとして処理をするしかない環境のため、コストパフォーマンスのいいモジュールということで cgi-extlib-perl のモジュールに依存する形。
かつsql片を直使うためにDBIx::Skinnyをいれてみた。DBI使うほうが速度早いのは確かなんだけど、あえて設計面を採ってみた。
archnameのこと
私製アプリを作ってる時に、cpanmを使ってモジュールを非root権限にて入れておく作業をたまに行うのだけれど、lib以下に収まる際の
などのサブディレクトリについて余り考えたことがなかったので、確認してみた。
これはオペレーションシステムのアーキテクチャ依存のモジュールが収まる場所であり、OSXのシステムに依存するものであれば、darwin-2level以下にモジュールがインストールされるようになっている。
現在使用しているアーキテクチャ名が何かを確認したい場合は、
#!/usr/local/bin/perl use strict; use warnings; use Config; print "$Config{archname}\n";
とかで。
アーキテクチャ依存モジュールの呼び出しを抽象化したい場合は、
BEGIN { unshift @INC, "/path/to/perl5/$Config{archname}"; }
ということになるけれど、各アーキテクチャ別にインストール作業しない場合は余り意味がないので、Configを使わずに直接パスを埋め込んだ方が早い。
CPAN::shellからcpanmにしてみた
さくらインターネットにTokyoTyrantをいれてみる
TokyoTyrantを実際にさくらインターネット上で動かしてみようと思い、インストールしてみた。TokyoTyrantを入れる前に、予めTokyoCabinetを入れる必要があるため先に導入する。
TokyoCabinet
cd ~/tmp wget http://1978th.net/tokyocabinet/tokyocabinet-1.4.44.tar.gz tar xfz tokyocabinet-1.4.44.tar.gz cd tokyocabinet-1.4.44 ./configure --prefix=/home/haoyayoi/local gmake gmake install
TokyoTyrant
mkdir ~/local/sbin cd ~/tmp wget http://1978th.net/tokyotyrant/tokyotyrant-1.1.40.tar.gz tar xfz tokyotyrant-1.1.40.tar.gz cd tokyotyrant-1.1.40 ./configure --prefix=/home/haoyayoi/local --with-tc=/home/haoyayoi/local --enable-static gmake gmake install
perl APIを入れる前に、ttservctlを動かす。ただ、そのまま実行しようとしてもこけるため、ttservctlを弄る。
- ~/local/sbin/ttservctl
prog="ttservctl" cmd="ttserver" -basedir="/var/ttserver" +basedir="/home/haoyayoi/var/ttserver" port="1978"
cd local/sbin/ttservctl start
API for Perl
wget http://1978th.net/tokyotyrant/perlpkg/tokyotyrant-perl-1.16.tar.gz tar xfz tokyotyrant-perl-1.16.tar.gz cd tokyotyrant-perl-1.16 make && make test make install
