[[sensors-1-h-class]] command: set readInterval=3600000 command: set sendInterval=0 command: program daily program: dim dataTable program: dim columnLabel program: dim rowLabel program: dim devname program: dim ave program: dim avemax program: dim avemin program: devname(0)="pir": devname(1)="lux": devname(2)="temp":devname(3)="humid":devname(4)="co2":devname(5)="dst" program: ex("service","clear sendBuffer") program: output="" program: url="http://www.yama-lab.org/adk-wiki-1/index.php?sensors-1-h-" program: for j=0 to 5 program: dx=devname(j) program: ave(dx)=0 program: avemax(dx)=0 program: avemin(dx)=60000 program: next j program: for i=0 to 23 program: page=ex("connector" , "getpage "+url+i) program: rpart=getResultPart(page) program: ex("service","println "+rpart) program: ’ex("service","println "+rpart) program: parseCsv(rpart,dataTable,rowLabel,columnLabel) program: for j=0 to 5 program: dname=devname(j) program: y0=sumif(dataTable,rowLabel,columnLabel("device"),"=",dname,columnLabel("v")) program: c0=countif(dataTable,rowLabel,columnLabel("device"),"=",dname) program: ave(dname)=1.0*y0/c0 program: if ave(dname)>avemax(dname) then avemax(dname)=ave(dname) program: if ave(dname)<avemin(dname) then avemin(dname)=ave(dname) program: dataline="device="+dname+", Date="+dataTable(0,columnLabel("Date"))+",ave="+ave(dname) program: ex("service","println "+dataline) program: ex("service","putSendBuffer "+dataline) program: next j program: next i program: for j=0 to 5 program: dname=devname(j) program: dataline="dev-max-min="+dname+",Data="+dataTable(0,columnLabel("Date")) program: dataline=dataline+",max="+avemax(dname)+",min="+avemin(dname) program: ex("service","println "+dataline) program: ex("service","putSendBuffer "+dataline) program: next j program: ex("service","sendResults.") command: end daily command: run daily command: set pageName="sensors-1-d-<day>"