uses sys


procedure Main
var fh:integer
var CO2:integer
CO2:=val(getquerystring('CO2'))
cgiwriteln('content-type: text/plain')
cgiwriteln('')
cgiclosebuffer
if CO2
	cgiwriteln('CO2='+str(CO2))
	fh:=tappend('../data.csv')
	//fh:=rewrite('../data.csv')
	writeln(fh,UNIXTIME_TO_STR(UNIX_NOW)+';'+str(CO2)+';'+getquerystring('temperature')+';'+getquerystring('humidity')+';'+getquerystring('mc'))
end
endproc