WEB tcp interrupt TCPinterrupt
do
' main loop
loop
;
sub TCPinterrupt
 local req%
 for req%=1 to mm.info(max connections)
   if not mm.info(TCP request req%) then continue for
   longstring clear r_buff%()
   web tcp read req%, r_buff%()
' now process the data and always make some response
   web transmit [PAGE/FILE/CODE] req%, ........
 next req%
end sub

Option explicit
Option default integer
Dim myfloat!=16.123
Dim myint%=999
Dim mystring$="The PicoMite Web is GO!!!"
Dim buff%(512)
Dim pp$="INDEX"
Const maxargs=20
Const ds18B20pin = 4
Const relaypin = 2
Const stemp=17 'setting for lowest temperature on radio buttons
Const heatingoff$=" BGCOLOR='#00ff00'>Off"
Const heatingon$=" BGCOLOR='#ff0000'>On "
Const check$="checked='checked' "
Const hysteresis=0.5
'
Dim checked$(11)
Dim integer setpointb=4 'setting for default temperature
Dim integer setpointt=stemp+setpointb-1
Dim notstarted=1,notended=0
Dim float currenttemp,readtemp
Dim float maxtemp, mintemp
Dim heating$=heatingon$
checked$(setpointb)=check$
SetPin relaypin,dout
currenttemp=TEMPR(ds18b20pin)
maxtemp=currenttemp
mintemp=currenttemp
updateheater
On error skip
WEB ntp
WEB tcp interrupt TCPrequest
Do
 If Right$(Time$,1)="0" And notstarted=1 Then
   TEMPR START ds18b20pin,3
   notstarted=0
   notended=1
 EndIf
 If Right$(Time$,1)="2" And notended=1 Then
   readtemp=TEMPR(ds18b20pin)
   If readtemp<1000 Then currenttemp=readtemp
   notstarted=1
   notended=0
   maxmin
   updateheater
 EndIf
'  poll
Loop
Sub TCPrequest
 Local a%,s$,page$,i,nparams%
 Local arg$(1,maxargs-1)
 For a%=1 To MM.Info(max connections)
   If Not MM.Info(TCP request a%) Then Continue For
   LongString clear buff%()
   WEB tcp read a%,buff%()
   If LLen(buff%()) Then
'    Print "Received ",LLen(buff%())," bytes on PCB ",a%-1
'    LongString print buff%()
   page$=parsehtmldata$(nparams%,buff%(), arg$())
   Print page$
   For i=0 To nparams%
     Print arg$(0,i),"=",arg$(1,i)
     If arg$(0,i)="RB" Then ' setting for radio button
       checked$(setpointb)=""
       Print Val(Right$(arg$(1,i),Len(arg$(1,i))-1))
       setpointb=Val(Right$(arg$(1,i),Len(arg$(1,i))-1))
       setpointt=setpointb+stemp-1
       checked$(setpointb)=check$
       updateheater
     EndIf
     If arg$(0,i)="RESET" And arg$(1,i)="YES" Then 'Reset maxmin
       maxtemp=currenttemp
       mintemp=currenttemp
     EndIf
   Next
   If UCase$(page$)="INDEX"  Then
     Print "sending test page"
     pp$=page$
     WEB transmit page a%,"test4.html"
   ElseIf UCase$(page$)="THERMO" Then
     Print "sending thermostat page"
     pp$=page$
     WEB transmit page a%,"thermo.html"
   ElseIf page$="small.jpg" Then
     Print "Sending picture"
     WEB transmit file a%,"small.jpg","image/jpeg"
   ElseIf page$="favicon.ico" Then
      Print "sending favicon"
      WEB Transmit FILE a%,"favicon.ico","image/vnd.microsoft.icon"
   Else
       s$=LGetStr$(buff%(),1,Min(255,LLen(buff%())))
       Print s$
       WEB transmit code a%, 404
   EndIf
 EndIf
 Next a%
End Sub
'
Function parsehtmldata$(paramcount As integer, inbuf() As integer, arg$())
 Const starttext$="HTTP"
 Local a$,b$
 Local integer buf(Bound(inbuf()))
 Local integer inpos,startparam,processargs
 paramcount=0
 inpos=LInStr(inbuf(),"GET /",1)
 If inpos=0 Then
   parsehtmldata$=""
 Else
   LongString MId buf(),inbuf(),inpos+5
   inpos=LInStr(buf(),starttext$,1)
   If inpos>2 Then 'page request found
     inpos=inpos-2
     a$=LGetStr$(buf(),1,inPos)
     inpos=Instr(a$,"?")
     If inpos<>0 Then 'parameters found
       processargs=1
       parsehtmldata$=Left$(a$,inpos-1)
       a$=Mid$(a$,inpos+1)
       Do
         arg$(0,paramcount)=""
         arg$(1,paramcount)=""
         inpos=Instr(a$,"=")
         startparam=1
         arg$(0,paramcount)=Mid$(a$,startparam,inpos-startparam)
         startparam=inpos+1
         inpos=Instr(a$,"&")
         If inpos<>0 Then
           arg$(1,paramcount)=Mid$(a$,startparam,inpos-startparam)
           a$=Mid$(a$,inpos+1)
           paramcount=paramcount+1
         Else
           arg$(1,paramcount)=Mid$(a$,startparam)
           paramcount=paramcount+1
           processargs=0
         EndIf
       Loop While processargs
     Else
       parsehtmldata$=a$
     EndIf
   Else ' no page requested
     parsehtmldata$="INDEX"
   EndIf
 EndIf
End Function
Sub maxmin
 If currenttemp>maxtemp Then
   maxtemp=currenttemp
 EndIf
 If currenttemp<mintemp Then
   mintemp=currenttemp
 EndIf
End Sub
Sub updateheater
'  Print "current setpoint is    ",setpointt
'  Print "current temperature is ",currenttemp
 Local float hcalc
 If setpointt=stemp+11 Then
   Pin(relaypin)=1
   heating$=heatingon$
 ElseIf setpointt=stemp Then
   Pin(relaypin)=0
   heating$=heatingoff$
 Else
   hcalc = setpointt + hysteresis
   If currenttemp>=hcalc Then 'turn heating off
     Pin(relaypin)=0
     heating$=heatingoff$
   EndIf
   hcalc = setpointt - hysteresis
   If currenttemp<=hcalc Then 'turn heating on
     Pin(relaypin)=1
     heating$=heatingon$
   EndIf
 EndIf
End Sub