Option explicit
Option default none
Dim a$,b$,c$
Dim integer i,j,rlen
Dim m%(4000)
Dim MYID$="enter city code here"
Dim APIKEY$="enter your APIKEY here"
'
' get the IP address of openweathermap and open a client connection to it
'
a$=GetIP$("api.openweathermap.org")
TCP client a$,80
'
' construct the request for a weather report and send it
'
b$= "GET /data/2.5/weather?id="+MYID$+"&APPID="+APIKEY$
b$=b$+" HTTP/1.0"+Chr$(13)+Chr$(10)+Chr$(13)+Chr$(10)
TCP send b$
'
'set up a longstring variable and read the return message into it
'
LongString clear m%()
Do
TCP receive c$
If c$<>"" Then LongString append m%(),c$
Loop While c$<>""
'
' trim off the HTTP header
'
LongString trim m%(),LInStr(m%(),"{")-1
rlen=LLen(m%())
'
' process the message, in this case just print it out
'
i=1
Do While rlen>0
If rlen>240 Then
j=240
Else
j=rlen
EndIf
rlen=rlen-j
Print LGetStr$(m%(),i,j);
i=i+j
Loop
Print ""
TCP close

'MMserver
'Michael Ogden
'October 2017
'PicroMite WebServer
'Original web interrupt and webparse code by matherp of "thebackshed.com"
'
'v0.5


option explicit
option default none
Const maxargs = 32
Dim a%(1000),i%
Dim s$,pg$
Dim security$=""
Dim arg$(1,maxargs-1)

'
'Define I/O
setpin 13, dout 'ActLed


pin(13)=1


'

Open "socket,data_arrival,100" As #2

'main program loop
Do

Pause 2000

Loop




'********************************* Web routines *****************************

'data arrival
Sub data_arrival
Local p%=0, t%=0
Local g$
pin(13)=0 'flash the Activity LED
pause 50
pin(13)=1
print "data arrival.."
Do While Not Eof(2) 'read the data from socket
LongString append a%(),Input$(10,2)
Loop
p%=LInStr(a%(),"GET",1) 'check for GET and HTTP
t%=LInStr(a%(),"HTTP",1)
print p%;" ";t%
If p%<>0 And t%<>0 Then 'full request received
s$=LGetStr$(a%(),p%,t%-p%+4)'filter out request string
print s$
LongString trim a%(),t%+4 'trim off used portion, keep the rest in buffer
pg$= parserequest$(s$,i%) 'Parse args from request
If i% Then 'if there are arguments
if security$<>"" then 'if there is a security password
If arg$(0,0)="Security" And arg$(1,0)<>security$ Then 'Not valid update
pg$=""
goto Response
end if
UserArgs
EndIf
EndIf
'
Response:
If pg$="index.html" Then
Transmit page "index.html"
Else
Transmit code 404
EndIf
EndIf
End Sub

sub UserArgs
' If arg$(0,1)="R" Or arg$(0,2)="R" Then
' cp(checked)=""
' If arg$(0,1)="R" Then checked=Asc(arg$(1,1))-Asc("A")
' If arg$(0,2)="R" Then checked=Asc(arg$(1,2))-Asc("A")
' cp(checked)=check$
' ' updateheater
' EndIf
end sub

'Function to parse an HTML GET request'
' Assumes that the request starts with "GET /"
' and ends with "HTTP"
'
Function parserequest$(req$, paramcount As integer)
Local a$,b$
Local integer inpos,startparam,processargs,isequal
For inpos=0 To maxargs-1
arg$(0,inpos)=""
arg$(1,inpos)=""
Next inpos
paramcount=0
a$=Mid$(req$,6,Len(req$)-10) 'starts from char after GET / , ends before HTTP
inpos=Instr(a$,"?")
isequal=Instr(a$,"=")
If inpos<>0 and isequal<>0 Then 'parameters found both ? and =
processargs=1
parserequest$=Left$(a$,inpos-1)
a$=Mid$(a$,inpos+1) 'get rest of line after ?
Do 'loops through recovering args and values
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
parserequest$=a$
print "parserequest:";a$
EndIf
If a$="" Then
parserequest$="index"
EndIf
If Instr(parserequest$,".html")=0 And Instr(parserequest$,".HTML")=0 Then 'add html if missing
parserequest$=parserequest$+".html"
end if
End Function

Option explicit
Option default none
Dim a$,b$,c$
Dim integer i,j,rlen
Dim m%(4000)
Dim MYID$="2638878"
Dim APIKEY$="Your APIKEY here"
Dim report$="weather"
a$=GetIP$("api.openweathermap.org")
TCP client a$,80
b$= "GET /data/2.5/"+report$+"?id="+MYID$+"&APPID="+APIKEY$
b$=b$+" HTTP/1.0"+Chr$(13)+Chr$(10)+Chr$(13)+Chr$(10)
TCP send b$
LongString clear m%()
Do
TCP receive c$
If c$<>"" Then LongString append m%(),c$
Loop While c$<>""
LongString trim m%(),LInStr(m%(),"{")-1
rlen=LLen(m%())
i=1
Open report$+".json" For output As #1
Do While rlen>0
If rlen>240 Then
j=240
Else
j=rlen
EndIf
rlen=rlen-j
Print #1,LGetStr$(m%(),i,j);
' Print LGetStr$(m%(),i,j);
i=i+j
Loop
Print ""
TCP close
Close #1
Print "Weather for "+json$(m%(),"name")
Print "Temperature is ",val(json$(m%(),"main.temp"))-273
Print "Pressure is ",json$(m%(),"main.pressure")
Print json$(m%(),"weather[0].description")