tiarraのAuto::Notifyに喋らせる
tiarraは自宅サーバーで動かしていて、サウンドドライバも入れていてスピーカーにもつないでいるので、notifyするときのユーザー名を喋らせてみることにした。
喋らせるの(Text to Speachだっけ)はespeakとかいうのを入れた。
$ sudo apt-get install gespeaker xsel
それで tiarra/module/Auto/Notify.pm の適当な使ってるところに(自分だとここでいじった send_nma の中 )
my $username = $msg->prefix;
$username =~ s/[!@].*//;
$username =~ s/[\W\s]//g;
system "/usr/bin/espeak '".$username."'";
こんな感じで追加。Perlもtiarraのオブジェクトがどうなってるのかもよくわからないので適当だけど動いている。
Comments