1998-05-09 13:57:46 1998-05-09 14:15:09 00:17:23
mdmlog1.batはmdm.logを元に、今月の接続回数、接続時間（日中、夜間別）、 通話料（タイムプラスを使用した場合の料金）、 月平均接続時間に対する今月の割合を表示します。
- list mdmlog.bat
-
if not exist c:\windows\modemlog.txt goto end
cat c:\windows\modemlog.txt >>c:\windows\modemlog.bak
sed -f mdmlog.sed c:\windows\modemlog.txt >$mdmlog.bat
call $mdmlog
del $mdmlog.bat
del c:\windows\modemlog.txt
:end
- list mdmlog.sed
-
/ATDT\#/{
s/\(..\)\-\(..\)\-\(....\) \(..\):\(..\):\(..\).*/\3 \1 \2 \4 \5 \6/
h
:loop
${
x
s/\(....\) \(..\) \(..\) \(..\) \(..\) \(..\)/echo \1\-\2\-\3 \4:\5:\6 error\>\>mdm.log/
q
}
N
s/.*\n//
/ATDT\#/{
s/\(..\)\-\(..\)\-\(....\) \(..\):\(..\):\(..\).*/\3 \1 \2 \4 \5 \6/
x
s/\(....\) \(..\) \(..\) \(..\) \(..\) \(..\)/echo \1\-\2\-\3 \4:\5:\6 error\>\>mdm.log/
p
d
b loop
}
/NO CARRIER/{
s/\(..\)\-\(..\)\-\(....\) \(..\):\(..\):\(..\).*/ \3 \1 \2 \4 \5 \6/
H
x
s/\n//
s/^/command \/c lap \-l /
s/$/ \>\>mdm.log/
b
}
b loop
}
d
- list mdmlog1.bat
-
jgawk -f mdmlog1.awk mdm.log >$mdmlog1.txt
start mdmlog1.vbs
- list mdmlog1.awk
-
BEGIN{
FS=" "
day=8*60
night=23*60
bm=0
totaltime=0
totalcount=0
}
{
m=substr($1,6,2)*1
d=substr($1,9,2)*1
if(bm == 0){
bm=m
by=substr($1,1,4)*1
}
if(bm != m){
totalcount++
totaltime=totaltime+monthtime
by=substr($1,1,4)*1
bm=m
nosum1=0
tpsum2=0
daytime=0
nighttime=0
monthtime=0
d_count=0
}
if($2 != "error"){
d_count++
mm0=substr($3,1,2)*60+substr($3,4,2)+sgn(substr($3,7,2)*1)
smm0=substr($1,12,2)*60+substr($1,15,2)
emm=substr($2,33,2)*60+substr($2,36,2)
count1=0
mm=mm0
smm=smm0
rate=0
while(sgn(mm) > 0){
if((smm >= day) && (smm < night)){
rate=3
daytime=daytime+rate
}else{
rate=4
nighttime=nighttime+rate
}
smm=smm+rate
if(smm >=1440)smm=smm-1440
mm=mm-rate
count1++
}
mm=mm0
smm=smm0
count2=0
rate=0
while(sgn(mm) > 0){
if((smm >= day) && (smm < night)){
rate=7
}else{
rate=5
}
smm=smm+rate
if(smm >=1440)smm=smm-1440
mm=mm-rate
count2++
}
nosum1=nosum1+count1*10
tpsum2=tpsum2+count2*10
monthtime=daytime+nighttime
}else{
}
}
END{
printf "%4d年%2d月%2d日現在\n接続回数 %2d回\n接続時間 %s（Day %s / Night %s）\n通話料 %4d円（ﾀｲﾑﾌﾟﾗｽ使用時 %4d円）\n",by,bm,d,d_count,hhmmss(monthtime),hhmmss(daytime),hhmmss(nighttime),nosum1,tpsum2
printf "対月平均接続時間(%s)率%3d%%\n",hhmmss(sprintf("%d",totaltime / totalcount)),(monthtime / sprintf("%d",totaltime / totalcount))*100
}
function sgn(n){
if(n == 0){
return 0
}else if(n > 0){
return 1
}else{
return -1
}
}
function hhmmss(n){
hh=n / 60
mm=n % 60
return sprintf("%2d:%02d",hh,mm)
}
- list mdmlog1.vbs
-
Set objFS=CreateObject("Scripting.FileSystemObject")
Set objText=objFS.OpenTextFile("$mdmlog1.txt")
myText=objText.ReadAll
MsgBox(myText)
objText.Close
2000-12-05 01:06:35 2000-12-05 01:23:39 00:17:04
次にアクセス時間を集計するmodemlog1.bat。集計作業はjgawkにお任せ(笑)。 で、何をやっているのかというと．．． 興味のある方はスクリプトを追ってくださいね！ （自分も何をやらせたのかよく覚えてない(苦笑)）。そうそう、 ちなみにアクセスポイントは区域内にあることを前提にしています。 そして結果を$mdmlog1.txtに出力し、mdmlog1.vbsで表示させます。
まずlist1。BUで日付などのデータを環境変数に取得します。なお、
LUPIN.EXEには全角文字がよいそうなので
（True Typeフォントで見栄えを良くするためにもね．．．）
環境変数の値を全角文字に変換しなければいけません。
ダラダラとif文を使って変換する強引な力技でもいいんですが、
ここはsedを使って変換し、
さらに子バッチからLUPIN.EXEを起動する手順で行く事にします。