var http		= require( "http" ),
	parseXML	= require( "xml2js" ).parseString,
	Cache		= require( "../models/Cache" ),

	// Define regex filters to match against location
	filters		= {
		gps: /^[-+]?([1-8]?\d(\.\d+)?|90(\.0+)?),\s*[-+]?(180(\.0+)?|((1[0-7]\d)|([1-9]?\d))(\.\d+)?)$/,
		pws: /^(?:pws|icao|zmw):/,
		url: /^https?:\/\/([\w\.-]+)(:\d+)?(\/.*)?$/,
		time: /(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2})([+-])(\d{2})(\d{2})/,
		time12: /(\d{1,2}):(\d{2})\s(am|pm)/i,
		timezone: /^()()()()()()([+-])(\d{2})(\d{2})/
	};

// If location does not match GPS or PWS/ICAO, then attempt to resolve
// location using Weather Underground autocomplete API
function resolveCoordinates( location, callback ) {

	// Generate URL for autocomplete request
	var url = "http://autocomplete.wunderground.com/aq?h=0&query=" +
		encodeURIComponent( location );

	httpRequest( url, function( data ) {

		// Parse the reply for JSON data
		data = JSON.parse( data );

		// Check if the data is valid
		if ( typeof data.RESULTS === "object" && data.RESULTS.length ) {

			// If it is, reply with an array containing the GPS coordinates
			callback( [ data.RESULTS[0].lat, data.RESULTS[0].lon ] );
		} else {

			// Otherwise, indicate no data was found
			callback( false );
		}
	} );
}

// When using WxData API, resolve the location name to ID
function resolveWxLocation( location, callback ) {

	// Generate URL for the request
	var url = "http://wxdata.weather.com/wxdata/search/search?where=" +
		encodeURIComponent( location );

	httpRequest( url, function( xml ) {

		parseXML( xml, function( err, result ) {
			if ( err ) {
				callback( null );
				return;
			}

			callback( result.search.loc[0].$.id );
		} );
	} );
}

// Retrieve weather data to complete the weather request using Weather Underground
function getWeatherUndergroundData( location, weatherUndergroundKey, callback ) {

	// Generate URL using Weather Underground yesterday conditions
	var url = "http://api.wunderground.com/api/" + weatherUndergroundKey +
		"/yesterday/conditions/astronomy/q/" + encodeURIComponent( location ) + ".json";

	// Perform the HTTP request to retrieve the weather data
	httpRequest( url, function( data ) {
		try {
			data = JSON.parse( data );

			var weather = {
				icon:		data.current_observation.icon,
				timezone:	data.current_observation.local_tz_offset,
				sunrise:	parseInt( data.sun_phase.sunrise.hour ) * 60 + parseInt( data.sun_phase.sunrise.minute ),
				sunset:		parseInt( data.sun_phase.sunset.hour ) * 60 + parseInt( data.sun_phase.sunset.minute ),
				maxTemp:	parseInt( data.history.dailysummary[0].maxtempi ),
				minTemp:	parseInt( data.history.dailysummary[0].mintempi ),
				temp:		parseInt( data.current_observation.temp_f ),
				humidity:	( parseInt( data.history.dailysummary[0].maxhumidity ) + parseInt( data.history.dailysummary[0].minhumidity ) ) / 2,
				precip:		( parseFloat( data.current_observation.precip_today_in ) || 0 ) + ( parseFloat( data.history.dailysummary[0].precipi ) || 0 ),
				solar:		parseInt( data.current_observation.UV ),
				wind:		parseInt( data.history.dailysummary[0].meanwindspdi ),
				elevation:	parseInt( data.current_observation.observation_location.elevation )
			};

			callback( weather );

		} catch ( err ) {

			// Otherwise indicate the request failed
			callback( false );
		}

	} );
}

// Retrieve weather data to complete weather request using Weather.com's WxData API
function getWxWeatherData( location, callback ) {

	// Generate URL using The Weather Company API v1 in Imperial units
	var url = "http://wxdata.weather.com/wxdata/weather/local/" + encodeURIComponent( location ) + "?cc=*&dayf=1&unit=i";

	// Perform the HTTP request to retrieve the weather data
	httpRequest( url, function( xml ) {

		parseXML( xml, function( err, data ) {
			if ( err ) {
				callback( null );
				return;
			}

			data = data.weather;

			var tz = parseInt( data.loc[0].zone[0] ),
				weather = {
					iconCode:	parseInt( data.cc[0].icon[0] ),
					timezone:	( tz > 0 ? "+" : "" ) + pad( tz ) + "00",
					sunrise:	parse12HourTime( data.loc[0].sunr[0] ),
					sunset:		parse12HourTime( data.loc[0].suns[0] ),
					temp:		parseInt( data.cc[0].tmp[0] ),
					humidity:	parseInt( data.cc[0].hmid[0] ),
					solar:		parseInt( data.cc[0].uv[0].i[0] ),
					wind:		parseInt( data.cc[0].wind[0].s[0] )
				};

			getCache( {
				key: "yesterdayHumidity",
				location: location,
				weather: weather,
				callback: callback
			} );

			updateCache( location, weather );

		} );
	} );
}

// Retrieve weather data to complete the weather request using The Weather Channel
function getWeatherData( location, callback ) {

	// Get the API key from the environment variables
	var WSI_API_KEY = process.env.WSI_API_KEY,

		// Generate URL using The Weather Company API v1 in Imperial units
		url = "http://api.weather.com/v1/geocode/" + location[0] + "/" + location[1] +
			 "/observations/current.json?apiKey=" + WSI_API_KEY + "&language=en-US&units=e";

	// Perform the HTTP request to retrieve the weather data
	httpRequest( url, function( data ) {

		try {
			data = JSON.parse( data );

			var weather = {
					iconCode:	data.observation.icon_code,
					timezone:	data.observation.obs_time_local,
					sunrise:	parseDayTime( data.observation.sunrise ),
					sunset:		parseDayTime( data.observation.sunset ),
					maxTemp:	data.observation.imperial.temp_max_24hour,
					minTemp:	data.observation.imperial.temp_min_24hour,
					temp:		data.observation.imperial.temp,
					humidity:	data.observation.imperial.rh || 0,
					precip:		data.observation.imperial.precip_2day || data.observation.imperial.precip_24hour,
					solar:		data.observation.imperial.uv_index,
					wind:		data.observation.imperial.wspd
				};

			location = location.join( "," );

			getCache( {
				key: "yesterdayHumidity",
				location: location,
				weather: weather,
				callback: callback
			} );

			updateCache( location, weather );
		} catch ( err ) {

			// Otherwise indicate the request failed
			callback( false );
		}

	} );
}

// Retrieve the historical weather data for the provided location
function getYesterdayWeatherData( location, callback ) {

	// Get the API key from the environment variables
	var WSI_HISTORY_KEY = process.env.WSI_HISTORY_KEY,

		// Generate a Date object for the previous day by subtracting a day (in milliseconds) from today
		yesterday		= toUSDate( new Date( new Date().getTime() - 1000 * 60 * 60 * 24 ) ),

		// Generate URL using WSI Cleaned History API in Imperial units showing daily average values
		url = "http://cleanedobservations.wsi.com/CleanedObs.svc/GetObs?ID=" + WSI_HISTORY_KEY +
			 "&Lat=" + location[0] + "&Long=" + location[1] +
			 "&Req=davg&startdate=" +  yesterday + "&enddate=" + yesterday + "&TS=LST";

	// Perform the HTTP request to retrieve the weather data
	httpRequest( url, function( xml ) {
		parseXML( xml, function( err, result ) {
			if ( err ) {
				callback( null );
				return;
			}

			callback( result.WeatherResponse.WeatherRecords[0].WeatherData[0].$ );
		} );
	} );
}

// Retrieve cached record for a given location
// opt is defined as an object with two required items
// opt.location defines the location for the cache record
// opt.key defines the key to return for the location
function getCache( opt, callback ) {

	// Find the cache entry for the provided location
	Cache.findOne( { location: opt.location }, function( err, record ) {

		if ( err ) {
			return;
		}

		// If a record is found for the provided key, return it
		if ( record && record[ opt.key ] !== null ) {
			opt.weather[ opt.key ] = record[ opt.key ];
		}

		callback( opt.weather );
	} );
}

// Update weather cache record in the local database
function updateCache( location, weather ) {

	// Search for a cache record for the provided location
	Cache.findOne( { location: location }, function( err, record ) {

		if ( err ) {
			return;
		}

		// If a record is found update the data and save it
		if ( record ) {

			record.currentHumidityTotal += weather.humidity;
			record.currentHumidityCount++;
			record.save();

		} else {

			// If no cache record is found, generate a new one and save it
			new Cache( {
				location: location,
				currentHumidityTotal: weather.humidity,
				currentHumidityCount: 1
			} ).save();

		}
	} );
}

// Calculates the resulting water scale using the provided weather data, adjustment method and options
function calculateWeatherScale( adjustmentMethod, adjustmentOptions, weather ) {

	// Zimmerman method
	if ( adjustmentMethod === 1 ) {

		// Check to make sure valid data exists for all factors
		if ( !validateValues( [ "temp", "humidity", "precip" ], weather ) ) {
			return 100;
		}

		var temp = ( ( weather.maxTemp + weather.minTemp ) / 2 ) || weather.temp,
			humidityFactor = ( 30 - weather.humidity ),
			tempFactor = ( ( temp - 70 ) * 4 ),
			precipFactor = ( weather.precip * -200 );

		// Apply adjustment options, if provided, by multiplying the percentage against the factor
		if ( adjustmentOptions ) {
			if ( adjustmentOptions.hasOwnProperty( "h" ) ) {
				humidityFactor = humidityFactor * ( adjustmentOptions.h / 100 );
			}

			if ( adjustmentOptions.hasOwnProperty( "t" ) ) {
				tempFactor = tempFactor * ( adjustmentOptions.t / 100 );
			}

			if ( adjustmentOptions.hasOwnProperty( "r" ) ) {
				precipFactor = precipFactor * ( adjustmentOptions.r / 100 );
			}
		}

		// Apply all of the weather modifying factors and clamp the result between 0 and 200%.
		return parseInt( Math.min( Math.max( 0, 100 + humidityFactor + tempFactor + precipFactor ), 200 ) );
	}

	return -1;
}

// Checks if the weather data meets any of the restrictions set by OpenSprinkler.
// Restrictions prevent any watering from occurring and are similar to 0% watering level.
//
// All queries will return a scale of 0 if the current weather indicates rain.
//
// California watering restriction prevents watering if precipitation over two days is greater
// than 0.01" over the past 48 hours.
function checkWeatherRestriction( adjustmentValue, weather ) {

	var californiaRestriction = ( adjustmentValue >> 7 ) & 1;

	if ( californiaRestriction ) {

		// If the California watering restriction is in use then prevent watering
		// if more then 0.01" of rain has accumulated in the past 48 hours
		if ( weather.precip > 0.01 ) {
			return true;
		}
	}

	return false;
}

// Checks if the weather indicates it is raining and returns a boolean representation
function checkRainStatus( weather ) {

	// Define all the weather codes that indicate rain
	var adverseCodes = [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47 ],
		adverseWords = [ "flurries", "sleet", "rain", "sleet", "snow", "tstorms" ];

	if ( ( weather.iconCode && adverseCodes.indexOf( weather.iconCode ) !== -1 ) || ( weather.icon && adverseWords.indexOf( weather.icon ) !== -1 ) ) {

		// If the current weather indicates rain, add a rain delay flag to the weather script indicating
		// the controller should not water.
		return true;
	}

	return false;
}

// API Handler when using the weatherX.py where X represents the
// adjustment method which is encoded to also carry the watering
// restriction and therefore must be decoded
exports.getWeather = function( req, res ) {

	// The adjustment method is encoded by the OpenSprinkler firmware and must be
	// parsed. This allows the adjustment method and the restriction type to both
	// be saved in the same byte.
	var adjustmentMethod		= req.params[0] & ~( 1 << 7 ),
		adjustmentOptions		= req.query.wto,
		location				= req.query.loc,
		weatherUndergroundKey	= req.query.key,
		outputFormat			= req.query.format,
		firmwareVersion			= req.query.fwv,
		remoteAddress			= req.headers[ "x-forwarded-for" ] || req.connection.remoteAddress,

		// Function that will accept the weather after it is received from the API
		// Data will be processed to retrieve the resulting scale, sunrise/sunset, timezone,
		// and also calculate if a restriction is met to prevent watering.
		finishRequest = function( weather ) {
			if ( !weather ) {
				res.send( "Error: No weather data found." );
				return;
			}

			var scale = calculateWeatherScale( adjustmentMethod, adjustmentOptions, weather ),
				rainDelay = -1;

			// Check for any user-set restrictions and change the scale to 0 if the criteria is met
			if ( checkWeatherRestriction( req.params[0], weather ) ) {
				scale = 0;
			}

			// If any weather adjustment is being used, check the rain status
			if ( adjustmentMethod > 0 && checkRainStatus( weather ) ) {

				// If it is raining and the user has weather-based rain delay as the adjustment method then apply the specified delay
				if ( adjustmentMethod === 2 ) {

					rainDelay = ( adjustmentOptions && adjustmentOptions.hasOwnProperty( "d" ) ) ? adjustmentOptions.d : 1440;
				} else {

					// For any other adjustment method, apply a scale of 0 (as the scale will revert when the rain stops)
					scale = 0;
				}
			}

			var data = {
					scale:		scale,
					rd:			rainDelay,
					tz:			getTimezone( weather.timezone ),
					sunrise:	weather.sunrise,
					sunset:		weather.sunset,
					eip:		ipToInt( remoteAddress )
				};

			// Return the response to the client in the requested format
			if ( outputFormat === "json" ) {
				res.json( data );
			} else {
				res.send(	"&scale="		+	data.scale +
							"&rd="			+	data.rd +
							"&tz="			+	data.tz +
							"&sunrise="		+	data.sunrise +
							"&sunset="		+	data.sunset +
							"&eip="			+	data.eip
				);
			}
		};

	// Exit if no location is provided
	if ( !location ) {
		res.send( "Error: No location provided." );
		return;
	}

	// X-Forwarded-For header may contain more than one IP address and therefore
	// the string is split against a comma and the first value is selected
	remoteAddress = remoteAddress.split( "," )[0];

	// Parse weather adjustment options
	try {

		// Parse data that may be encoded
		adjustmentOptions = decodeURIComponent( adjustmentOptions.replace( /\\x/g, "%" ) );

		// Reconstruct JSON string from deformed controller output
		adjustmentOptions = JSON.parse( "{" + adjustmentOptions + "}" );
	} catch ( err ) {

		// If the JSON is not valid, do not incorporate weather adjustment options
		adjustmentOptions = false;
	}

	// Parse location string
    if ( weatherUndergroundKey ) {

		// The current weather script uses Weather Underground and during the transition period
		// both will be supported and users who provide a Weather Underground API key will continue
		// using Weather Underground until The Weather Service becomes the default API

		getWeatherUndergroundData( location, weatherUndergroundKey, finishRequest );
	} else if ( filters.pws.test( location ) ) {

		// If no key is provided for Weather Underground then the PWS or ICAO cannot be resolved
		res.send( "Error: Weather Underground key required when using PWS or ICAO location." );
		return;
	} else if ( filters.gps.test( location ) ) {

		// Handle GPS coordinates by storing each coordinate in an array
		location = location.split( "," );
		location = [ parseFloat( location[0] ), parseFloat( location[1] ) ];

		// Continue with the weather request
		getWeatherData( location, finishRequest );

    } else {

		// Attempt to resolve provided location to GPS coordinates when it does not match
		// a GPS coordinate or Weather Underground location using Weather Underground autocomplete
		resolveCoordinates( location, function( result ) {
			if ( result === false ) {
				res.send( "Error: Unable to resolve location" );
				return;
			}

			location = result;
			getWeatherData( location, finishRequest );
		} );
    }
};

// Generic HTTP request handler that parses the URL and uses the
// native Node.js http module to perform the request
function httpRequest( url, callback ) {
	url = url.match( filters.url );

	var options = {
		host: url[1],
		port: url[2] || 80,
		path: url[3]
	};

	http.get( options, function( response ) {
        var data = "";

        // Reassemble the data as it comes in
        response.on( "data", function( chunk ) {
            data += chunk;
        } );

        // Once the data is completely received, return it to the callback
        response.on( "end", function() {
            callback( data );
        } );
	} ).on( "error", function() {

		// If the HTTP request fails, return false
		callback( false );
	} );
}

// Checks to make sure an array contains the keys provided and returns true or false
function validateValues( keys, array ) {
	var key;

	for ( key in keys ) {
		if ( !keys.hasOwnProperty( key ) ) {
			continue;
		}

		key = keys[key];

		if ( !array.hasOwnProperty( key ) || typeof array[key] !== "number" || isNaN( array[key] ) || array[key] === null || array[key] === -999 ) {
			return false;
		}
	}

	return true;
}

// Accepts a time string formatted in ISO-8601 or just the timezone
// offset and returns the timezone.
// The timezone output is formatted for OpenSprinkler Unified firmware.
function getTimezone( time, format ) {

	// Match the provided time string against a regex for parsing
	time = time.match( filters.time ) || time.match( filters.timezone );

	var hour = parseInt( time[7] + time[8] ),
		minute = parseInt( time[9] ),
		tz;

	if ( format === "minutes" ) {
		tz = ( hour * 60 ) + minute;
	} else {

		// Convert the timezone into the OpenSprinkler encoded format
		minute = ( minute / 15 >> 0 ) / 4;
		hour = hour + ( hour >= 0 ? minute : -minute );

		tz = ( ( hour + 12 ) * 4 ) >> 0;
	}

	return tz;
}

// Function to return the sunrise and sunset times from the weather reply
function parseDayTime( time ) {

	// Time is parsed from string against a regex
	time = time.match( filters.time );

	// Values are converted to minutes from midnight for the controller
	return parseInt( time[4] ) * 60 + parseInt( time[5] );
}

// Function to return the sunrise and sunset times from weather reply using 12 hour format
function parse12HourTime( time ) {

	// Time is parsed from string against a regex
	time = time.match( filters.time12 );

	var hour = parseInt( time[1] ),
		minute = parseInt( time[2] );

	if ( time[3].toLowerCase() === "pm" ) {
		hour += 12;
	}

	// Values are converted to minutes from midnight for the controller
	return parseInt( hour ) * 60 + parseInt( minute );
}

// Pad a single digit with a leading zero
function pad( number ) {
    var r = String( number );
    if ( r.length === 1 ) {
        r = "0" + r;
    }
    return r;
}

// Converts IP string to integer
function ipToInt( ip ) {
    ip = ip.split( "." );
    return ( ( ( ( ( ( +ip[0] ) * 256 ) + ( +ip[1] ) ) * 256 ) + ( +ip[2] ) ) * 256 ) + ( +ip[3] );
}

// Resolves the Month / Day / Year of a Date object
function toUSDate( date ) {
	return ( date.getMonth() + 1 ) + "/" + date.getDate() + "/" + date.getFullYear();
}