--[[ ●LAN 側回線使用率監視スクリプト 　　一定の監視間隔毎に LAN 側回線使用率（送信/受信）を監視し、設定した閾値を超え 　　たら管理者にメールを送信して知らせるスクリプトです。 　　送信/受信の負荷が閾値を指定回数だけ連続して超えた場合にメールを送信します。 　　その後、負荷が閾値を指定回数だけ連続して下回った場合には、正常値に戻ったと 　　判断します。設定値 down_mail を true に設定している場合には、正常値に戻った 　　際にもメールを送信します。 ＜説明＞ ・このファイルを RTFS か外部メモリに保存してください。 ・本項目の config の設定では schedule at コマンドでルーター起動時に Lua スク 　リプトが実行されるように設定しています。 ・スクリプトを停止するときは terminate lua コマンドを実行してください。 ・再度、Lua スクリプトを実行する場合は lua コマンドで実行してください。 ・★マークの付いた設定値は変更が可能です。 ＜ノート＞ 　・メールの送信失敗時に出力する SYSLOG レベルを指定可能です。 　　SYSLOG のレベルを指定するには、log_level を設定してください。 　　debug レベル、notice レベルの SYSLOG を出力するためには、それぞれ以下の設定 　　が必要です。 　　　debug レベル ･･･ syslog debug on 　　　notice レベル･･･ syslog notice on 　・本スクリプトファイルを編集する場合、文字コードは必ず Shift-JIS を使用してく 　　ださい。 ]] --------------------------## 設定値 ##-------------------------------- -- 監視間隔（1 - 864000 秒） idle_time = (監視間隔) -- ★ -- 回線使用率を計測する時間（1, 2 .. ） avr_sec = (計測時間) -- ★ -- 監視する LAN インターフェースの番号 lan_num = (LAN インターフェースの番号) -- ★ -- 送信負荷率の閾値（1 - 99 %） snd_th = (負荷率) -- ★ -- 受信負荷率の閾値（1 - 99 %） rcv_th = (負荷率) -- ★ -- 連続で閾値を超えたら異常と判断する回数、または正常な状態に復帰したと判断する回数（1, 2 ..） count = (回数) -- ★ -- 正常な状態に復帰した場合にもメールを送るか否か（送る: true / 送らない: false） down_mail = (true / false) -- ★ -- メールの設定 mail_tbl = { -- ★ smtp_address = "(SMTP サーバのアドレス)", from = "(送信元メールアドレス)", to = "(宛先メールアドレス)" } -- メールの送信に失敗したときに出力する SYSLOG のレベル (info, debug, notice) log_level = "(SYSLOG レベル)" -- ★ ----------------------## 設定値ここまで ##---------------------------- ------------------------------------------------------------ -- LAN インターフェースの速度を求める関数 -- ------------------------------------------------------------ function interface_speed(num) local rtn, str, val, rt_name local cmd = "show config" local ptn = "speed lan" .. tostring(num) .. " (%d+%a)" rtn, str = rt.command(cmd) if (rtn) and (str) then str = str:match(ptn) if (str) then val = unitstr2num(str) end end if (not val) or (val == 0) then rt_name = string.match(_RT_FIRM_REVISION, "(%w+) ") if ((rt_name == "RTX5000") or (rt_name == "RTX3510") or (rt_name == "RTX3500") or (rt_name == "RTX1300") or (rt_name == "RTX1220") or (rt_name == "RTX1210") or (rt_name == "RTX1200") or (rt_name == "RTX830") or (rt_name == "RTX810") or (rt_name == "NVR700W") or (rt_name == "NVR510") or (rt_name == "NVR500")) then val = unitstr2num("1000m") elseif (rt_name == "SRT100") then val = unitstr2num("100m") end end return val end ------------------------------------------------------------ -- 回線速度を数値に変換する関数 -- ------------------------------------------------------------ function unitstr2num(str) local val, unit val = tonumber(str:match("%d+")) unit = str:sub(-1):lower() if (unit == "k") then val = val * 1024 elseif (unit == "m") then val = val * 1024 * 1024 else val = 0 end return val end ------------------------------------------------------------ -- show status lan コマンドの実行結果 -- -- から回線使用率を求める関数 -- ------------------------------------------------------------ function lan_load_info(num, sec) local rtn, str1, str2, rcv, snd local t = {} local cmd = "show status lan" .. tostring(num) local ptn = "%((%d+)%s+オクテット" rtn, str1 = rt.command(cmd) if (rtn) and (str1) then rt.sleep(sec) rtn, str2 = rt.command(cmd) if (rtn) and (str2) then str1 = str1 .. str2 n = 1 for w in string.gmatch(str1, ptn) do t[n] = w n = n + 1 end if (t[1]) and (t[3]) then snd = ((tonumber(t[3]) - tonumber(t[1])) * 8) /sec else rtn = false str1 = "使用帯域（送信）の取得失敗\r\n" end if (t[2]) and (t[4]) then rcv = ((tonumber(t[4]) - tonumber(t[2])) * 8) /sec else rtn = false str1 = "使用帯域（受信）の取得失敗\r\n" end else str1 = str2 end else str1 = cmd .. "コマンドの実行失敗\r\n" end return rtn, rcv, snd, str1 end ---------------------------------------------------------------- -- 回線使用率が閾値を超えたとき、または正常に復帰したときに -- -- メッセージを返す関数 -- ---------------------------------------------------------------- function make_lanmsg(tbl, val, th, down) local rtn local str = "" if (val) then rtn = count_proc(tbl, val, th) if (rtn < 0) then if (down) then str = tbl.title .. "負荷率が閾値以下の値に下がりました。\r\n" end elseif (rtn > 0) then str = tbl.title .. "負荷率が閾値を超えました。\r\n" str = str .. string.format(" %s負荷率: %d%%\r\n 閾値: %d%%\r\n\r\n", tbl.title, val, th) end end return str end ------------------------------------------------------------ -- 閾値を超えた、または下回った連続回数をカウントする関数 -- ------------------------------------------------------------ function count_proc(t, val, th) local rtn = 0 if (val > th) then if (not t.flag) then t.over = t.over + 1 if (t.over == count) then rtn = 1 t.flag = true end else if (t.down > 0) then t.down = 0 end end else if (t.flag) then t.down = t.down + 1 if (t.down == count) then rtn = -1 t.flag = false t.over = 0 t.down = 0 end else if (t.over > 0) then t.over = 0 end end end return rtn end ------------------------------------------------------------ -- 現在の日時を取得する関数 -- ------------------------------------------------------------ function time_stamp() local t t = os.date("*t") return string.format("%d/%02d/%02d %02d:%02d:%02d", t.year, t.month, t.day, t.hour, t.min, t.sec) end ------------------------------------------------------------ -- メインルーチン -- ------------------------------------------------------------ local rtn, str, max local snd, rcv local cnt_tbl = { rcv = {over = 0, down = 0, flag = false, title = "受信"}, snd = {over = 0, down = 0, flag = false, title = "送信"} } max = interface_speed(lan_num) while (true) do mail_tbl.text = "" rtn, rcv, snd, str = lan_load_info(lan_num, avr_sec) if (rtn) then snd = 100*snd/max rcv = 100*rcv/max mail_tbl.text = mail_tbl.text .. make_lanmsg(cnt_tbl.rcv, rcv, rcv_th, down_mail) mail_tbl.text = mail_tbl.text .. make_lanmsg(cnt_tbl.snd, snd, snd_th, down_mail) else mail_tbl.text = str end if (mail_tbl.text:len() > 0) then mail_tbl.subject = string.format("[LAN %d] transmit/receive load watch (%s)", lan_num, time_stamp()) rtn = rt.mail(mail_tbl) if (not rtn) then rt.syslog(log_level, "failed to send mail. utilization.lua") end end rt.sleep(idle_time) end