はい、タイトル通り。
weechatを使ってる環境というかパソコンは、サードPC。
weechatのほうでなんかあったらすぐに切り替える事ができるように、
ググったりして、適当に簡単にプラグイン作った。
通知音とモジュールにちょっと困った。
ログインしたらすぐfbtermとuim-fepを起動して使えるようにしてあって、
何故か、それだと、
perl -e 'print "\a"'
ってやっても鳴らないんだよね。
beep音鳴らすことができるようにしてあるから、
fbterm上じゃなければ、ちゃんと音がなるんだけどね。
beepっていうパッケージがあって、
sudo apt-get install beep
ってやればインスコできて、fbterm上でもちゃんとbeep音が鳴るんだけど、
どういう仕組みなんだろう。
僕はまだ、C言語で書かれたコードを大体理解できるってほどじゃないから、よく分からん
メインPC(Ubuntu)やサブPC(Windows)でやると、
beep音はヘッドホンからでも出るからいいんだけど、
サードPC(UbuntuServer)だと、何故か出ずに、ヘッドホン挿してあってもパソコンから出るっていうね。
ハードにもよるのかなぁ・・・。
ハードに関しては僕はあまり詳しくはないからなぁ・・・。
ヘッドホン買ってから、ヘッドホンかけることが多くて、
ヘッドホンからbeep音出てくれたほうが、個人的に、通知音とかテスト的にも便利なんだけどねー。
まぁそれはともかく、コード
use warnings; use Audio::Play::MPG123; $player = new Audio::Play::MPG123; weechat::register('notify','baku','1','GPL3','何かあったら音で通知するプラグイン','',''); weechat::hook_print('','','',1,'notify',''); sub notify{ $player->load('a.mp3'); until($player->state == 0){$player->poll(1)} }
GPL3じゃなくてNoLicenseにしたかったけどね
'No License'にして読み込んだ時にweechatに警告された
ライセンスの規約守るのとか正直面倒くさい_(:3」∠)_
use strict;忘れてるって？
myやるの面倒くさい_(:3」∠)_
もし\aをやるとしたら、こんな感じかな
use warnings; weechat::register('notify','baku','1','GPL3','何かあったら音で通知するプラグイン','',''); weechat::hook_print('','','',1,'notify',''); #sub notify{print "\a"} #このブログ記事を投稿した日から数日後、僕のメインPCでやってみたらダメだったけど、STDERRを追加してみたら成功した sub notify{print STDERR "\a"}
beepっていうパッケージをインスコしてbeepコマンド使うならこんな感じかな
use warnings; weechat::register('notify','baku','1','GPL3','何かあったら音で通知するプラグイン','',''); weechat::hook_print('','','',1,'notify',''); sub notify{system 'beep'}
参考にしたサイト
WeeChat スクリプト作成ガイド
Ubuntu+WeechatでもIRCで呼ばれたら通知したい！ - Qiita
一応こちらも貼っとく
WeeChat :: scripts
WeeChat ユーザーズガイド
