[plamo:22808] Re: Fw: cron 登録用のPerl Script

[KOJIMA Mitsuhiro]

突っ込みどころが多すぎて，どこから突っこめばいいのか悩んでしまいます
が，，(苦笑)

From: "Tadashi Nakamura" <tn_mls@hotmail.com>
Subject: [plamo:22805] Fw: cron 登録用の Perl Script
Date: Sat, 22 May 2004 07:20:16 +0900

> # 22804 のメールを HTML 形式で発送してしまいました。
> # Plain Text で再送させていただきます。

このメールにも HTML なパートが付いているようです．

> adsl-restart などでは決して接続が回復しません。
> 仕方なく PC の Reboot を手動でやっています。

roaring Penguin とかは試したことないんだけど，PPP 回りを使うなら，ドラ
イバ類をモジュール化できると思うので，モジュールにしておいて reset し
たい時は unload すればシステム全体を reboot しなくても済みそうな気はし
ます．

> 手動でやるよりは cron に登録しようか、と
> Perl Script を書いてみました。

これは Perl じゃなくて shell スクリプトでしょう．

> ----------------------------------------------------
> #!/bin/sh
> /usr/sbin/adsl-status>${Result};
> if(index(${Result},"218",0)==-1 ) {
>   sleep 360;
>   reboot;
> }
> ----------------------------------------------------
> こんなので期待通りの動作となるでしょうか。

/usr/sbin/adsl-status のコマンドがどういうエラーコードを返すのかよく知
らないんだけど，接続が切れているならエラー(0 以外)を返す，というのであれば

#!/bin/sh
/usr/sbin/adsl-status 1> /dev/null 2> /dev/null
if [ $? != 0 ]; then
  sync; sync; sync
  reboot
fi

みたいになるんじゃないかな？

# 先に書いたように sync -> reboot よりは rmmod ppp.o とかして modprobe 
# し直す方がいいように思いますが．

---------
こじま