Revisión 52eab9aa
Añadido por Martin Cuellar hace casi 5 años
| bin/system/si.bash | ||
|---|---|---|
|
# v0.0.6 - 2018-07-18 - nelbren@nelbren.com
|
||
|
# v0.0.7 - 2018-09-06 - nelbren@nelbren.com
|
||
|
# v0.0.8 - 2018-10-15 - nelbren@nelbren.com
|
||
|
# v0.0.9 - 2019-05-15 - nelbren@nelbren.com - replace bc -> perl
|
||
|
#
|
||
|
|
||
|
use() {
|
||
| ... | ... | |
|
|
||
|
approximation() {
|
||
|
num=$1
|
||
|
echo "scale=1;i=$num/1;scale=0;j=$num/1;j +(i-j>=.5)" | bc
|
||
|
#echo "scale=1;i=$num/1;scale=0;j=$num/1;j +(i-j>=.5)" | bc
|
||
|
printf "%.*f\n" 0 $num
|
||
|
}
|
||
|
|
||
|
cpu_get() {
|
||
| ... | ... | |
|
uptime=$(echo $uptime | sed "s/^0d//")
|
||
|
uptime=$(echo $uptime)
|
||
|
uptime=$(echo $uptime | cut -d"d" -f1)
|
||
|
raw="U${uptime}d"
|
||
|
lu=${#uptime}; lu=$((lu-1))
|
||
|
raw="U${uptime}"
|
||
|
[ "${uptime:$lu:1}" != "s" ] && raw="${raw}d"
|
||
|
|
||
|
cmf=/sys/devices/system/cpu/cpu0/cpufreq/cpuinfo_max_freq
|
||
|
if [ -r $cmf ]; then
|
||
|
hz=$(cat $cmf)
|
||
|
mhz=$(echo $hz/1000 | bc)
|
||
|
#mhz=$(echo $hz/1000 | bc)
|
||
|
mhz=$(echo print $hz/1000 | perl)
|
||
|
else
|
||
|
data_in=$(grep -E "^cpu MHz" /proc/cpuinfo | head -1)
|
||
|
regex="^cpu MHz\s*:\s*([0-9]+.[0-9]+)"
|
||
| ... | ... | |
|
#echo $memused
|
||
|
fi
|
||
|
|
||
|
pmem=$(echo -e "scale=2\n($memused/$memtotal)*100" | bc)
|
||
|
#pmem=$(echo -e "scale=2\n($memused/$memtotal)*100" | bc)
|
||
|
pmem=$(echo print "($memused/$memtotal)*100" | perl)
|
||
|
pmem=$(approximation $pmem)
|
||
|
|
||
|
raw="$raw R$pmem%"
|
||
| ... | ... | |
|
regex="^Swap:\s*[0-9]+\s*([0-9]+)"
|
||
|
swapused=$(regex_get "$regex" "$data_in")
|
||
|
|
||
|
pswap=$(echo -e "scale=2\n($swapused/$swaptotal)*100" | bc)
|
||
|
#pswap=$(echo -e "scale=2\n($swapused/$swaptotal)*100" | bc)
|
||
|
pswap=$(echo print "($swapused/$swaptotal)*100" | perl)
|
||
|
pswap=$(approximation $pswap)
|
||
|
fi
|
||
|
if [ "$pswap" != "-1" ]; then
|
||
| ... | ... | |
|
# Mib tested on:
|
||
|
# http://www.matisse.net/bitcalc/?input_amount=1000&input_units=megabits
|
||
|
case $measure in
|
||
|
Mib) bytes=$(echo -e "($numbers/8)*$mult*$mult\n" | bc);;
|
||
|
#Mib) bytes=$(echo -e "($numbers/8)*$mult*$mult\n" | bc);;
|
||
|
Mib) bytes=$(echo print "($numbers/8)*$mult*$mult" | perl);;
|
||
|
B) bytes=$numbers;;
|
||
|
KiB) bytes=$(echo -e "$numbers*$mult\n" | bc);;
|
||
|
MiB) bytes=$(echo -e "$numbers*$mult*$mult\n" | bc);;
|
||
|
GiB) bytes=$(echo -e "$numbers*$mult*$mult*$mult\n" | bc);;
|
||
|
#KiB) bytes=$(echo -e "$numbers*$mult\n" | bc);;
|
||
|
KiB) bytes=$(echo print "$numbers*$mult" | perl);;
|
||
|
#MiB) bytes=$(echo -e "$numbers*$mult*$mult\n" | bc);;
|
||
|
MiB) bytes=$(echo print "$numbers*$mult*$mult" | perl);;
|
||
|
#GiB) bytes=$(echo -e "$numbers*$mult*$mult*$mult\n" | bc);;
|
||
|
GiB) bytes=$(echo print "$numbers*$mult*$mult*$mult" | perl);;
|
||
|
esac
|
||
|
echo $bytes
|
||
|
}
|
||
| ... | ... | |
|
bytes_interface=$(convert_to_bytes ${speed}Mib)
|
||
|
bytes1=$(convert_to_bytes ${subsubvalue1})
|
||
|
bytes2=$(convert_to_bytes ${subsubvalue2})
|
||
|
bytes_usage=$(echo -e "$bytes1+$bytes2\n" | bc)
|
||
|
p=$(echo -e "scale=2\n$bytes_usage/$bytes_interface\n" | bc)
|
||
|
p=$(echo -e "$p*100\n" | bc)
|
||
|
#bytes_usage=$(echo -e "$bytes1+$bytes2\n" | bc)
|
||
|
bytes_usage=$(echo print "$bytes1+$bytes2" | perl)
|
||
|
#p=$(echo -e "scale=2\n$bytes_usage/$bytes_interface\n" | bc)
|
||
|
p=$(echo print "$bytes_usage/$bytes_interface" | perl)
|
||
|
#p=$(echo -e "$p*100\n" | bc)
|
||
|
p=$(echo print "$p*100" | perl)
|
||
|
nvalue=$(echo $p | cut -d"." -f1)
|
||
|
#echo $bytes_usage $bytes_interface $p $nvalue
|
||
|
color_msg $STATE_INFO ${label} $value=
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
pkg_check() {
|
||
|
if [ ! -x /usr/bin/bc ]; then
|
||
|
echo -e "${iy}Please install bc$S\n${cOK}apt -y install bc$S"
|
||
|
if [ ! -x /usr/bin/perl ]; then
|
||
|
echo -e "${iy}Please install perl$S\n${cOK}apt -y install perl$S"
|
||
|
exit 1
|
||
|
fi
|
||
|
}
|
||
Exportar a: Unified diff
bc -> perl