<%@LANGUAGE="JSCRIPT"%><%
	//
	// Generate a Clarity I/II snapshot - manual refresh
	//
	// 06-Nov-06	rbd	Initial edit
	// 10-Nov-06    rbd Corrected ProgID, works!
	// 10-Apr-07    rbd From Ajai Sehgal, now supports Clarity 1 also
	//              nice items and style changes from Ajai as well.
	// 28-Sep-10    rbd GEM:391 Per Paul Luckas, change SkyCondition 
	//              to CloudCondition for peoper readouton Clarity II.
	//              Retain Clarity I compatibility.
	//
	
	Response.ContentType = "text/plain";				                // Plain text -> wikitext
	var C;
	var c1 = false;
	var sky;
	
	try {
		C = new ActiveXObject("ClarityII.CloudSensorII");
	} catch(ex) {
	    C = null;
	}
	if(C === null) {
    	try {
    		C = new ActiveXObject("Clarity.CloudSensor");
    		c1 = true;                                                  // Remember this is Clarity 1
    	} catch(ex) {
    	    C = null;
    		Response.Write("Clarity is not available.\n\n");
    		Response.End();
    	}
    }
	//
	// We have Clarity and it's connected
	//
	Response.Write("For generic data, see the [[Weather]] item.\n");
	Response.Write("|!Sky Temp|");
	switch(C.RelSkyT)
	{
		case 999:
			Response.Write("Sensor saturated hot");
			break;
		case -999:
			Response.Write("Sensor saturated cold");
			break;
		case -998:
			Response.Write("N/A - sensor wet");
			break;
		default:
			Response.Write(Util.FormatVar(C.RelSkyT, "0.0"));
			break;
	}
	Response.Write(" deg C");
	Response.Write("|!Ambient Temp|");
	switch(C.AmbientT)
	{
		case 999:
			Response.Write("Saturated hot");
			break;
		case -999:
			Response.Write("Saturated cold");
			break;
		default:
			Response.Write(Util.FormatVar(C.AmbientT, "0.0"));
			break;
	}
	Response.Write(" deg C");
	Response.Write("|!Sensor Temp|");
	switch(C.SensorT)
	{
		case 999:
			Response.Write("Saturated hot");
			break;
		case -999:
			Response.Write("Saturated cold");
			break;
		default:
			Response.Write(Util.FormatVar(C.SensorT, "0.0"));
			break;
	}
	Response.Write(" deg C|\n");
	Response.Write("|!Sky Condition|");
	if (c1)                                                             // Different properties CI/CII
	    sky = C.SkyCondition;
	else
	    sky = C.CloudCondition;
	switch(sky)
	{
		case 1:
			Response.Write("@@background:green;color:black;Clear@@");
			break;
		case 2:
			Response.Write("@@background:yellow;color:black;Cloudy@@");
			break;
		case 3:
			Response.Write("@@background:red;color:black;Very Cloudy@@");
			break;
		default:
			Response.Write("Unknown");
			break;
	}
	Response.Write("|!Sensor wet?|" + (C.WetF ? "Yes" : "No"));
	Response.Write("|!Drops detected?|"+ (C.RainF ? "Yes" : "No") + "|\n");
	Response.Write("Last good data from sensor " + Util.FormatVar(C.SecondsSinceGoodData, "0.0") + " sec. ago.\n\n");
	
%>