「コンピュータ」カテゴリーアーカイブ

自宅サーバでは以前仕入れていた、USBで制御できる小型の電光掲示板 (eabadge)を動かしている。

データの書き込み方法は、解析して自作した Perl プログラムなんだけど、 最近掲示板の表示内容が変わっていないので色々試していたけど、 以前のプログラムが動かなくっていた。 サーバを再起動したときに、一時的に動くようになっていたので、 デバイス名などを疑っていたけど、ようやく原因が分かった。

Device::SerialPort (ver.1.04)になったために動かなくなったようだ。 シリアルポートの初期化の部分を変更したら動くようになった。

  # シリアルデバイスを初期化
- $port = Device::SerialPort->new( $device ) ;
+ $port = new Device::SerialPort( $device , 0 ) ;
$port->baudrate( 1200 ) ;
$port->databits( 8 ) ;
$port->parity( "none" ) ;
$port->stopbits( 1 ) ;
+ # ver 1.04から必須
+ $port->handshake( "none" ) ;

朝のめざましテレビ、見ていたら「めざましじゃんけん」の時間が変わるって アナウンス。ふと、学習リモコン送信機 Tira があるのを思い出し、 サーバ上でプログラム。

来週からは、6:58,7:30,7:58になるらしい。であれば、スクリプトをこれに合わせて起動しよう。

(( /etc/cron.d/tira-tv-meza ))
58 6 * * 1,2,3,4,5 user [ -x /path/tira-tv-meza.sh ] && /path/tira-tv-meza.sh
30 7 * * 1,2,3,4,5 user [ -x /path/tira-tv-meza.sh ] && /path/tira-tv-meza.sh
58 7 * * 1,2,3,4,5 user [ -x /path/tira-tv-meza.sh ] && /path/tira-tv-meza.sh

bashだと$RANDOMなんて便利な変数があるんだ….

(( /path/tira-tv-meza.sh ))
#!/bin/bash
TIRA2="/usr/local/bin/Tira-2.py"
DEVICE="--remote=regza"
SG="/usr/bin/sg"
GROUP="dialout"
if [ -x $TIRA2 ]; then
$SG $GROUP -c "$TIRA2 $DEVICE --transmit=8,8" > /dev/null 2>&1
sleep 10
RAND=$(( RANDOM%3 ))
case $RAND in
0 ) $SG $GROUP -c "$TIRA2 $DEVICE --transmit=blue,blue" > /dev/null 2>&1 ;;
1 ) $SG $GROUP -c "$TIRA2 $DEVICE --transmit=green,green" > /dev/null 2>&1 ;;
2 ) $SG $GROUP -c "$TIRA2 $DEVICE --transmit=red,red" > /dev/null 2>&1 ;;
esac
fi

muninで arp の出力を観測し、自宅内で動いているネットワーク機器の観測をしているけど、 よく電源をつけっぱなしにしてしまうレコーダ都チューナ。 ちょっとだけ節電させようと、Tira2を活用してみた。

以前Tira2を制御させていた時のソースが見つからないので、改めてTira2で検索したら、 Pythonで書かれた Tira-2.py を見つける。 設定のデフォルトを以下のように書き換え。

# リモコン学習情報の保存先
configs="/usr/local/etc/tira"
# Tira2のデバイス名。実体は/dev/ttyUSB1だが他のUSBと誤認をしないように
port="/dev/serial/by-id/usb-Home_Electronics_Tira-2_HE000001-if00-port0"

んで、ping の返答があるようなら、デバイスが生きているので、 "Tira-2.py –remote=デバイス –capture"で保存しておいた、電源ON/OFFのリモコン信号を送出。 仕上げで crontab を使い、夜中の2時に電源を切らせる。

#!/bin/bash
TIRA2="/usr/local/bin/Tira-2.py"
PING="/bin/ping"
# AV機器の電源が入っていたら、電源を切る
for device in vardia catvstb ; do
if $PING -q -c 1 $device >/dev/null 2>&1 ; then
$TIRA2 --remote=$device --transmit=power > /dev/null 2>&1
sleep 1
fi
done