不管是 Linux 或是 BSD 下所使用的 PPPoE 撥號程式,在遇到很多奇怪的斷線狀況似乎並不能很自動的自己重撥,所以我寫了這個 Script , 相信很多人都用的上.
[quote]
星期六, 三月 19, 2005
FreeBSD 的 PPPoE ADSL 斷線自動重撥
不管是 Linux 或是 BSD 下所使用的 PPPoE 撥號程式,在遇到很多奇怪的斷線狀況似乎並不能很自動的自己重撥,所以我寫了這個 Script , 相信很多人都用的上.
因為後來新版的 Perl 對 system/exec 等指令的傳回值處理方式似乎已經不同,最好的偵測方式是用 Perl Module,而不是呼叫系統指令,所以需要先裝 Net::Ping::External
用 CPAN 來安裝的話請依照以下步驟 ( CPAN 還沒設定過的請先設定):
perl -MCPAN -e shell
cpan shell -- CPAN exploration and modules installation (v1.7601)
ReadLine support enabled
cpan> install Net::Ping::External
裝好用就可以使用下面這個 script . 我使用的環境是 FreeBSD , 如果不是這個環境請自行修裡面有用到的系統指令的路徑,還有修改 $PPPoE_command 變數.
在跟 PC Zone 阿土站長 討論過以後,我稍微改了一下程式並附上我自己的 ppp.conf
不使用 killall 來砍掉 ppp 的 pid 是顧慮到這個 command 在 Linux 可能沒有,所以我採用比較傳統的方式處理.
-------------------------------------------------------------
以下是我的 /etc/ppp.conf 內容 (參考 FreeBSD Handbook):
default:set log Phase tun command # you can add more detailed logging if you wishset ifaddr 10.0.0.1/0 10.0.0.2/0hinet:set device PPPoE:rl0set authname 你的帳號@hinet.netset authkey 你的密碼set dialset loginadd default HISADDRnat enable yes
啟動 PPPoE 的方式我是建議寫在 /etc/rc.local ,加上一行:
/usr/sbin/ppp -ddial hinet
---------------------------------------------------------
以下為 Script 內容:
##############################################
#!/usr/local/bin/perl
$|=1;
#=============================================
# Programming by Dekuo Kuo in 2005/02/13
# [url]http://www.dekuo.com/[/url]
#
# This script is running on FreeBSD.
# When you run it on other Unix like OS,
# modify below variable $PPPoE_command and
# system command path used in this script
$PPPoE_command = '/usr/sbin/ppp -ddial hinet';
#=============================================
if (ping_basic('168.95.1.1') != 1 && ping_basic('192.72.80.36') != 1) {
$pid_reference = get_pid("$PPPoE_command");
print "ADSL Link Down\n";
foreach $pid (@$pid_reference) {
print "Kill pid=$pid ...\n";
system("/bin/kill $pid") if $pid != '';
}
system("$PPPoE_command");
system("/bin/date >> /var/log/check_pppoe.log");
} else {
print "ADSL Link Up\n";
}
sub get_pid {
$process_string = $_[0];
$process_string = "\'" . $process_string . "\'";
@ps_data = grep {!/grep/} `ps -ax | grep $process_string`;
my @pid_list;
foreach (@ps_data) {
@ps_line = grep { $_ ne ''} split(/\s+/,$_);
push(@pid_list,$ps_line[0]);
}
return \@pid_list;
}
sub ping_basic {
use Net::Ping::External qw(ping);
my $device_ipv4 = $_[0];
my $alive = ping(hostname => "$device_ipv4", timeout => 5, count => 5, size => 1024);
return $alive;
}
##############################################
最後 ,當然不要忘了在 crontab 裡加一行 ... 大概 5 分鐘檢查一次應該夠了
crontab 範例 (當然要先建立 /root/script 這個目錄) :
*/5 * * * * /root/script/check_pppoe.pl
如果您用的是 FreeBSD 5.x 的版本, 請在 crontab 最上面放下面這兩行敘述:
SHELL=/bin/tcsh
PATH=/etc:/usr/local/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin
否則會讓 perl 找不到相關 module
也就是說,如果您用的是 FreeBSD 5.x 以上的版本, 您的 crontab 內容就必須是這樣:
SHELL=/bin/tcsh
PATH=/etc:/usr/local/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin
*/5 * * * * /root/script/check_pppoe.pl
為什麼 FreeBSD 5.x 不能夠使用 /etc/crontab 的 Shell 參數,這點我還不明白,如果有人瞭解的還請麻煩留言告知
另外, 如果有人在 Linux 環境下使用, 也請告訴我, 我想知道 Linux 下的 Command 路徑有沒有變
[/quote]
