1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
-- Copyright (C) 2007-2016 by Ubaldo Porcheddu <ubaldo@eja.it>
function ejaProcCpuCount()
local cpuCount=0
local cpuInfo=ejaFileRead('/sys/devices/system/cpu/present')
if cpuInfo then
cpuCount=ejaNumber(cpuInfo:match('[^%d](%d+)'))+1
else
cpuInfo=ejaFileRead('/proc/cpuinfo')
if cpuInfo then
_,cpuCount=cpuInfo:gsub('processor','')
end
end
return cpuCount
end
function ejaProcCpuSum()
local procStat=ejaFileRead('/proc/stat')
local procCpu=0
if procStat then
local user,nice,system,idle=procStat:match('[^%d]+ ([%d]+) ([%d]+) ([%d]+) ([%d]+)')
procCpu=user+nice+system+idle
end
return procCpu
end
function ejaProcCpuSumPid(pid)
local procPidStat=ejaFileRead('/proc/'..pid..'/stat')
local procPidCpu=0
local procPidName=''
if procPidStat then
local pid,comm,state,ppid,pgrp,session,tty_nr,tpgid,flags,minflt,cminflt,majflt,cmajflt,utime,stime,cutime,cstime=procPidStat:gsub(' +',' '):match('([^ ]+) ([^ ]+) ([^ ]) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+)')
procPidCpu=utime+stime
procPidName=comm
end
return procPidCpu,procPidName
end
function ejaProcCpuCheck(name)
local a={}
local procPidList=ejaDirList('/proc/')
a.sum=ejaProcCpuSum()
a.time=os.time()
for _,pid in next,procPidList do
if pid:match('[%d]+') then
local pidCpu,pidName=ejaProcCpuSumPid(pid)
if pidName:match(name) then
a[pid]=pidCpu
end
end
end
return a
end
function ejaProcPidChildren(pidCheck, count)
if not count then count=5 else count=count-1 end
if count < 1 then return {} end
local a={}
local procPidList=ejaDirList('/proc/')
for _,pid in next,procPidList do
if pid:match('[%d]+') then
local data=ejaFileRead('/proc/'..pid..'/stat')
if data then
local pidParent=data:gsub(' +',' '):match('[^ ]+ [^ ]+ [^ ] ([^ ]+)')
if ejaNumber(pidParent) == ejaNumber(pidCheck) then
a[#a+1]=pid
local t1=ejaProcPidChildren(pid,count)
if #t1 > 0 then
for k,v in next,t1 do
if not a[v] then a[#a+1]=v end
end
end
end
end
end
end
return a
end
function ejaProcPidStat(pid)
local a={}
local stat=ejaFileRead('/proc/'..ejaNumber(pid)..'/stat') or ''
for v in stat:gmatch('([^ ]+) ?') do
a[#a+1]=v
end
return a
end
function ejaGetELF()
local x=io.open('/proc/self/exe','r')
local out=''
if x then
local data=x:read(24)
if data then out=data:gsub("(.)",function(h) return ejaSprintf('%02X',string.byte(h)) end ) end
x:close()
end
return out
end
function ejaGetMAC(ip)
local mac=nil
if ip then
local data=ejaFileRead('/proc/net/arp')
if data then
for aIp,aMac in data:gmatch('\n(%d+.%d+.%d+.%d+)%s+[^%s]+%s+[^%s]+%s+([^%s]*)') do
if aIp==ip then mac=aMac; break; end
end
end
else
for k,v in next,ejaDirTableSort('/sys/class/net') do
local arphdr=ejaFileRead('/sys/class/net/'..v..'/type')
if not mac and ejaNumber(arphdr)==1 then
mac=ejaFileRead('/sys/class/net/'..v..'/address')
if mac then
mac=mac:gsub('\n','')
end
end
end
end
return mac or ''
end
|
