unknownplace.org

これも購入。

バイオリン曲の中でも多分一番すきなんじゃないかなってくらいのブラームスのバイオリンとピアノのためのソナタ第一番。繊細な演奏家ムローヴァがかなり良い感じに弾きこなしてます。

高校の文化祭で視聴覚室借りてこれ弾いたなぁ。立ち見出るくらい人集まってびびった、良い思い出。

POE::Component::Proxy::TCP が、手持ちのWin、OSXマシンにはいらん＞＜

ゲッツ。

pillows、en.wikipedia.org にのってんだな。。

出社。

sekimura さんが Net::Rendezvous::Publish::Backend::BonjourWin32 とかいうアツイモジュールを作っているのを見てこんなの思いついた。

実行できる環境にないので適当に書いてみただけで多分動きませんが、

#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Long;
use FindBin;
use lib "$FindBin::Bin/../lib";

use POE qw/Component::Proxy::TCP/;
use Net::Rendezvous::Publish;
use Net::Rendezvous::Publish::Backend::BonjourWin32;

my $server_name   = 'daap proxy';
my $server_port   = 9999;
my $remote_server = 'localhost';
my $remote_port   = 3689;

GetOptions(
    'n|server-name=s'   => \$server_name,
    'p|port=i'          => \$server_port,
    'r|remote-port=i'   => \$remote_port,
    's|remote-server=s' => \$remote_server,
);

POE::Component::Proxy::TCP->new(
    Alias       => "ProxyServerSessionAlias",
    Port        => $server_port,
    OrigPort    => $remote_port,
    OrigAddress => $remote_server,
);

my $service = Net::Rendezvous::Publish->new->publish(
    name => $server_name,
    type => '_daap._tcp',
    port => $server_port,
);

$poe_kernel->run;

目的はLANの外にあるDAAP ServerをiTunesの共有で聞きたい、てのがしたいということ。

家にも会社にも音楽ファイル置いててめんどいのでこゆのほしかった。

これで動くといいけどなぁ。詳しくは明日。

退社。