#!/bin/sh
#
# ortalamainternet
#
# pppd loglarını tarayarak ortalama internet kullanımı hakkında istatistiki
# bilgiler verir.
# 
# günlük, saatlik internet harcamasını indirimli gün ve saatler dahil hesaplar
#
# log'lardan internet kullanım gün saat ve sürelerine bakarak
# internette ne kadar sürede ne kadarlık harcama yapıldığını
# indirimli saat ve günleri de hesaba kaarak bulur. 
# 1 saatte internete ortalama ne kadar harcadığınızı hesaplar
#
# Ağustos 2002
#
# ilker FIÇICILAR
# ilkerf@geocities.com
# https://ilkerf.tripod.com/teknik/
# http://ekitap.kolayweb.com/
#
#
#
echo
(gzip -dc `ls -tr /var/log/messag*gz | tail -1` ; cat /var/log/messages) | \
grep "Connect time" | grep -v "-" > /tmp/.internet_kullanimi
gun1=`head -1 /tmp/.internet_kullanimi | cut -b5-6  `
gun2=`tail -1 /tmp/.internet_kullanimi | cut -b5-6  `
if [ "$gun2" -gt "$gun1" ];then
gun=`expr $gun2 - $gun1`
gun=`expr $gun + 1`
else
gun=`expr $gun2 + 32`
gun=`expr $gun - $gun1`
fi
echo "$gun gün boyunca ortalama günlük internet kullanımı:"
top=0
msf=0
cat /tmp/.internet_kullanimi | while read qw
do
set $qw
idx=0
if [ "$1" == "Jul" ];then
idx=0
elif [ "$1" == "Aug" ];then
idx=3
elif [ "$1" == "Sep" ];then
idx=6
elif [ "$1" == "Oct" ];then
idx=1
elif [ "$1" == "Nov" ];then
idx=4
elif [ "$1" == "Dec" ];then
idx=6
fi
j=`expr $2 + $idx`
i=`expr $j / 7`
i=`expr $i "*" 7`
i=`expr $j - $i`
nrm=750000
ind=525000
if [ "$i" == "0" ];then
nrm=450000
ind=450000
elif [ "$i" == "6" ];then
nrm=525000
fi
#echo "$1 $2 : $j $i"
saat=`echo $3 | cut -f1 -d: `
dak=`echo $8"." | cut -f1 -d\. `
if [ "$saat" -lt "07" ];then
ucret=`expr $dak "*" 450000`
ucret=`expr $ucret / 60`
elif [ "$saat" -lt "09" ];then
ucret=`expr $dak "*" $ind`
ucret=`expr $ucret / 60`
elif [ "$saat" -lt "20" ];then
ucret=`expr $dak "*" $nrm`
ucret=`expr $ucret / 60`
elif [ "$saat" -lt "22" ];then
ucret=`expr $dak "*" $ind`
ucret=`expr $ucret / 60`
elif [ "$saat" -lt "24" ];then
ucret=`expr $dak "*" 450000`
ucret=`expr $ucret / 60`
fi
msf=`expr $msf + $ucret`
#echo "Saat $saat'te $dak dakika, $ucret TL ediyor."
top=`expr $top + $dak`
echo $top > /tmp/.internet_dakika
echo $msf > /tmp/.internet_masraf
done
top=`cat /tmp/.internet_dakika`
ort=`expr $top / $gun`
echo "$ort dakika/gün"
msf=`cat /tmp/.internet_masraf`
or=`expr $msf / $gun`
echo "$or TL/gün"
ucr=`expr $or "*" 60`
ucr=`expr $ucr / $ort`
echo "$ucr TL/saat"
echo
rm /tmp/.internet_dakika /tmp/.internet_kullanimi /tmp/.internet_masraf