var Errors = require('./errors');

var fs   = require('fs');
var q    = require('q');
var tls  = require('tls');
var net  = require('net');
var sysu = require('util');
var util = require('./util');
var Device = require('./device');
var events = require('events');
var debug = function() {};
if(process.env.DEBUG) {
	try {
		debug = require('debug')('apn');
	}
	catch (e) {
		console.log("Notice: 'debug' module is not available. This should be installed with `npm install debug` to enable debug messages", e);
		debug = function() {};
	}
}

/**
 * Create a new connection to the APN service.
 * @constructor
 * @param {Object} [options]
 * @config {Buffer|String} [cert="cert.pem"] The filename of the connection certificate to load from disk, or a Buffer/String containing the certificate data.
 * @config {Buffer|String} [key="key.pem"] The filename of the connection key to load from disk, or a Buffer/String containing the key data.
 * @config {Buffer[]|String[]} [ca] An array of trusted certificates. Each element should contain either a filename to load, or a Buffer/String to be used directly. If this is omitted several well known "root" CAs will be used. - You may need to use this as some environments don't include the CA used by Apple (entrust_2048).
 * @config {Buffer|String} [pfx] File path for private key, certificate and CA certs in PFX or PKCS12 format, or a Buffer/String containing the PFX data. If supplied will be used instead of certificate and key above.
 * @config {String} [passphrase] The passphrase for the connection key, if required
 * @config {Boolean} [production=(NODE_ENV=='production')] Specifies which environment to connect to: Production (if true) or Sandbox. (Defaults to false, unless NODE_ENV == "production")
 * @config {Number} [port=2195] Gateway port
 * @config {Boolean} [rejectUnauthorized=true] Reject Unauthorized property to be passed through to tls.connect()
 * @config {Boolean} [enhanced=true] Whether to use the enhanced notification format (recommended)
 * @config {Function} [errorCallback] A callback which accepts 2 parameters (err, notification). Use `transmissionError` event instead.
 * @config {Number} [cacheLength=100] Number of notifications to cache for error purposes (See doc/apn.markdown)
 * @config {Boolean} [autoAdjustCache=false] Whether the cache should grow in response to messages being lost after errors. (Will still emit a 'cacheTooSmall' event)
 * @config {Number} [maxConnections=1] The maximum number of connections to create for sending messages.
 * @config {Number} [connectionTimeout=0] The duration the socket should stay alive with no activity in milliseconds. 0 = Disabled.
 * @config {Boolean} [buffersNotifications=true] Whether to buffer notifications and resend them after failure.
 * @config {Boolean} [fastMode=false] Whether to aggresively empty the notification buffer while connected.
 * @config {Boolean} [legacy=false] Whether to use the old (pre-iOS 7) protocol format.
 */
function Connection (options) {
	if(false === (this instanceof Connection)) {
        return new Connection(options);
    }
	this.options = {
		cert: 'cert.pem',
		key: 'key.pem',
		ca: null,
		pfx: null,
		passphrase: null,
		production: (process.env.NODE_ENV === "production"),
		address: null,
		port: 2195,
		rejectUnauthorized: true,
		enhanced: true,
		cacheLength: 100,
		autoAdjustCache: true,
		maxConnections: 1,
		connectionTimeout: 0,
		buffersNotifications: true,
		fastMode: false,
		legacy: false,
		disableNagle: false
	};

	for (var key in options) {
		if (options[key] == null) {
			debug("Option [" + key + "] set to null. This may cause unexpected behaviour.");
		}
	}

	util.extend(this.options, options);

	if (this.options.gateway != null) {
		this.options.address = this.options.gateway;
	}

	if (this.options.address == null) {
		if (this.options.production) {
			this.options.address = "gateway.push.apple.com";
		}
		else {
			this.options.address = "gateway.sandbox.push.apple.com";
		}
	}

	if (this.options.pfx || this.options.pfxData) {
		if (!options.cert) {
			this.options.cert = null;
		}
		if (!options.key) {
			this.options.key = null;
		}
	}

	this.initializationPromise = null;
	this.deferredConnection = null;

	this.sockets = [];
	this.notificationBuffer  = [];

	this.socketId = 0;

	this.failureCount = 0;

	// when true, we end all sockets after the pending notifications reach 0
	this.shutdownPending = false;

	events.EventEmitter.call(this);
}

sysu.inherits(Connection, events.EventEmitter);

/**
 * You should never need to call this method, initialization and connection is handled by {@link Connection#sendNotification}
 * @private
 */
Connection.prototype.initialize = function () {
	if (this.initializationPromise) {
		return this.initializationPromise;
	}

	debug("Initialising module");
	var readFile = q.nfbind(fs.readFile);

	// Prepare PKCS#12 data if available
	var pfxPromise = null;
	if(this.options.pfx != null || this.options.pfxData != null) {
		if(this.options.pfxData) {
			pfxPromise = this.options.pfxData;
		}
		else if(Buffer.isBuffer(this.options.pfx)) {
			pfxPromise = this.options.pfx;
		}
		else {
			pfxPromise = readFile(this.options.pfx);
		}
	}

	// Prepare Certificate data if available.
	var certPromise = null;
	if (this.options.certData) {
		certPromise = this.options.certData;
	}
	else if(Buffer.isBuffer(this.options.cert) || checkPEMType(this.options.cert, "CERTIFICATE")) {
		certPromise = this.options.cert;
	}
	else if(this.options.cert){
		// Nothing has matched so attempt to load from disk
		certPromise = readFile(this.options.cert);
	}

	// Prepare Key data if available
	var keyPromise = null;
	if (this.options.keyData) {
		keyPromise = this.options.keyData;
	}
	else if(Buffer.isBuffer(this.options.key) || checkPEMType(this.options.key, "PRIVATE KEY")) {
		keyPromise = this.options.key;
	}
	else if(this.options.key) {
		keyPromise = readFile(this.options.key);
	}

	// Prepare Certificate Authority data if available.
	var caPromises = [];
	if (this.options.ca != null && !sysu.isArray(this.options.ca)) {
		this.options.ca = [ this.options.ca ];
	}
	for(var i in this.options.ca) {
		var ca = this.options.ca[i];
		if(Buffer.isBuffer(ca) || checkPEMType(ca, "CERTIFICATE")) {
			caPromises.push(ca);
		}
		else if (ca){
			caPromises.push(readFile(ca));
		}
	}
	if (caPromises.length == 0) {
		caPromises = undefined;
	}
	else {
		caPromises = q.all(caPromises);
	}

	this.initializationPromise = q.all([pfxPromise, certPromise, keyPromise, caPromises]);
	return this.initializationPromise;
};

function checkPEMType(input, type) {
	if (input == null) {
		return;
	}
	var matches = input.match(/\-\-\-\-\-BEGIN ([A-Z\s*]+)\-\-\-\-\-/);
	
	if (matches != null) {
		return matches[1].indexOf(type) >= 0;
	}
	return false;
}

/**
 * You should never need to call this method, initialisation and connection is handled by {@link Connection#pushNotification}
 * @private
 */
Connection.prototype.connect = function () {
	if (this.deferredConnection) {
		return this.deferredConnection.promise;
	}

	debug("Initialising connection");
	this.deferredConnection = q.defer();
	this.initialize().spread(function (pfxData, certData, keyData, caData) {
		var socketOptions = {};

		socketOptions.pfx = pfxData;
		socketOptions.cert = certData;
		socketOptions.key = keyData;
		socketOptions.ca = caData;
		socketOptions.passphrase = this.options.passphrase;
		socketOptions.rejectUnauthorized = this.options.rejectUnauthorized;

		// We pass in our own Stream to delay connection until we have attached the
		//  event listeners below.
		socketOptions.socket = new net.Socket();

		this.socket = tls.connect(
			this.options['port'],
			this.options['address'],
			socketOptions,
			function () {
				debug("Connection established");
				this.emit('connected', this.sockets.length + 1);
				this.deferredConnection.resolve();
			}.bind(this));


		socketOptions.socket.setNoDelay(this.options.disableNagle);
		socketOptions.socket.setKeepAlive(true);
		if (this.options.connectionTimeout > 0) {
			socketOptions.socket.setTimeout(this.options.connectionTimeout);
		}

		this.socket.on("error", this.errorOccurred.bind(this, this.socket));
		this.socket.on("timeout", this.socketTimeout.bind(this, this.socket));
		this.socket.on("data", this.handleTransmissionError.bind(this, this.socket));
		this.socket.on("drain", this.socketDrained.bind(this, this.socket, true));
		this.socket.once("close", this.socketClosed.bind(this, this.socket));

		// The actual connection is delayed until after all the event listeners have
		//  been attached.
		if ("function" == typeof this.socket.connect ) {
			this.socket.connect(this.options['port'], this.options['address']);
		}
		else {
			socketOptions.socket.connect(this.options['port'], this.options['address']);
		}
	}.bind(this)).fail(function (error) {
		debug("Module initialisation error:", error);

		// This is a pretty fatal scenario, we don't have key/certificate to connect to APNS, there's not much we can do, so raise errors and clear the queue.
		while(this.notificationBuffer.length > 0) {
			var notification = this.notificationBuffer.shift();
			this.raiseError(error, notification.notification, notification.recipient);
			this.emit('transmissionError', Errors['moduleInitialisationFailed'], notification.notification, notification.recipient);
		}
		this.deferredConnection.reject(error);
		this.deferredConnection = null;
	}.bind(this));

	return this.deferredConnection.promise;
};

/**
 * @private
 */
Connection.prototype.createConnection = function() {
	this.connect().then(function () {
		this.failureCount = 0;

		this.socket.socketId = this.socketId++;
		this.socket.currentId = 0;
		this.socket.cachedNotifications = [];

		this.sockets.push(this.socket);
	}.bind(this)).fail(function (error) {
		// Exponential backoff when connections fail.
		var delay = Math.pow(2, this.failureCount++) * 1000;
		this.raiseError(error);
		this.emit('error', error);

		return q.delay(delay);
	}.bind(this)).finally(function () {
		this.deferredConnection = null;
		this.socket = undefined;
		this.serviceBuffer();
	}.bind(this));
};

/**
 * @private
 */
Connection.prototype.initialisingConnection = function() {
	if(this.deferredConnection !== null) {
		return true;
	}
	return false;
};

/**
 * @private
 */
 Connection.prototype.serviceBuffer = function() {

	var socket = null;
	var repeat = false;
	if(this.options.fastMode) {
		repeat = true;
	}
	do {
		socket = null;
		if (this.notificationBuffer.length === 0) break;
		for (var i = this.sockets.length - 1; i >= 0; i--) {
			if(this.socketAvailable(this.sockets[i])) {
				socket = this.sockets[i];
				break;
			}
		}
		if (socket !== null) {
			debug("Transmitting notification from buffer");
			if(this.transmitNotification(socket, this.notificationBuffer.shift())) {
				this.socketDrained(socket, !repeat);
			}
		}
		else if (!this.initialisingConnection() && this.sockets.length < this.options.maxConnections) {
			this.createConnection();
			repeat = false;
		}
		else {
			repeat = false;
		}
	} while(repeat);
	debug("%d left to send", this.notificationBuffer.length);

	if (this.notificationBuffer.length === 0 && this.shutdownPending) {
		debug("closing connections");

		for (var i = this.sockets.length - 1; i >= 0; i--) {
			var socket = this.sockets[i];
			if (!socket.busy) {
				// We delay before closing connections to ensure we don't miss any error packets from the service.
				setTimeout(socket.end.bind(socket), 2500);
			}
		}
		if (this.sockets.length == 0) {
			this.shutdownPending = false;
		}
	}
 };

/**
 * @private
 */
Connection.prototype.errorOccurred = function(socket, err) {
	debug("Socket error occurred", socket.socketId, err);

	if(socket.transmissionErrorOccurred && err.code == 'EPIPE') {
		debug("EPIPE occurred after a transmission error which we can ignore");
		return;
	}

	this.emit('socketError', err);
	if(this.socket == socket && this.deferredConnection && this.deferredConnection.promise.isPending()) {
		this.deferredConnection.reject(err);
	}
	else {
		this.raiseError(err, null);
	}

	if(socket.busy && socket.cachedNotifications.length > 0) {
		// A notification was in flight. It should be buffered for resending.
		this.bufferNotification(socket.cachedNotifications[socket.cachedNotifications.length - 1]);
	}

	this.destroyConnection(socket);
};

/**
 * @private
 */
Connection.prototype.socketAvailable = function(socket) {
	if (!socket || !socket.writable || socket.busy || socket.transmissionErrorOccurred) {
		return false;
	}
	return true;
};

/**
 * @private
 */
Connection.prototype.socketDrained = function(socket, serviceBuffer) {
	debug("Socket drained", socket.socketId);
	socket.busy = false;
	if(this.options.enhanced) {
		var notification = socket.cachedNotifications[socket.cachedNotifications.length - 1];
		this.emit('transmitted', notification.notification, notification.recipient);
	}
	if(serviceBuffer === true && !this.runningOnNextTick) {
		// There is a possibility that this could add multiple invocations to the 
		// call stack unnecessarily. It will be resolved within one event loop but 
		// should be mitigated if possible, this.nextTick aims to solve this, 
		// ensuring "serviceBuffer" is only called once per loop.
		var nextRun = function() { this.runningOnNextTick = false; this.serviceBuffer(); }.bind(this);
		if('function' === typeof setImmediate) {
			setImmediate(nextRun);
		}
		else {
			process.nextTick(nextRun);
		}
		this.runningOnNextTick = true;
	}
};

/**
 * @private
 */
 Connection.prototype.socketTimeout = function(socket) {
	debug("Socket timeout", socket.socketId);
	this.emit('timeout');
	this.destroyConnection(socket);
 };

/**
 * @private
 */
Connection.prototype.destroyConnection = function(socket) {
	debug("Destroying connection", socket.socketId);
	if (socket) {
		socket.destroy();
	}
};

/**
 * @private
 */
Connection.prototype.socketClosed = function(socket) {
	debug("Socket closed", socket.socketId);

	if (socket === this.socket && this.deferredConnection.promise.isPending()) {
		debug("Connection error occurred before TLS Handshake");
		this.deferredConnection.reject(new Error("Unable to connect"));
	}
	else {
		var index = this.sockets.indexOf(socket);
		if (index > -1) {
			this.sockets.splice(index, 1);
		}

		this.emit('disconnected', this.sockets.length);
	}

	this.serviceBuffer();
};

/**
 * Use this method to modify the cache length after initialisation.
 */
Connection.prototype.setCacheLength = function(newLength) {
	this.options.cacheLength = newLength;
};

/**
 * @private
 */
Connection.prototype.bufferNotification = function (notification) {
	if (notification.retryLimit === 0) {
		this.raiseError(Errors['retryLimitExceeded'], notification);
		this.emit('transmissionError', Errors['retryLimitExceeded'], notification.notification, notification.recipient);
		return;
	}
	notification.retryLimit -= 1;
	this.notificationBuffer.push(notification);
};

/**
 * @private
 */
Connection.prototype.prepareNotification = function (notification, device) {
	var recipient = device;
	// If a device token hasn't been given then we should raise an error.
	if (recipient === undefined) {
		process.nextTick(function () {
			this.raiseError(Errors['missingDeviceToken'], notification);
			this.emit('transmissionError', Errors['missingDeviceToken'], notification);
		}.bind(this));
		return;
	}

	// If we have been passed a token instead of a `Device` then we should convert.
	if (!(recipient instanceof Device)) {
		try {
			recipient = new Device(recipient);
		}
		catch (e) {
			// If an exception has been thrown it's down to an invalid token.
			process.nextTick(function () {
				this.raiseError(Errors['invalidToken'], notification, device);
				this.emit('transmissionError', Errors['invalidToken'], notification, device);
			}.bind(this));
			return;
		}
	}

	var retryLimit = (notification.retryLimit < 0) ? -1 : notification.retryLimit + 1;
	this.bufferNotification( { "notification": notification, "recipient": recipient, "retryLimit": retryLimit } );
};

/**
 * @private
 */
Connection.prototype.cacheNotification = function (socket, notification) {
	socket.cachedNotifications.push(notification);
	if (socket.cachedNotifications.length > this.options.cacheLength) {
		debug("Clearing notification %d from the cache", socket.cachedNotifications[0]['_uid']);
		socket.cachedNotifications.splice(0, socket.cachedNotifications.length - this.options.cacheLength);
	}
};

/**
 * @private
 */
Connection.prototype.handleTransmissionError = function (socket, data) {
	if (data[0] == 8) {
		socket.transmissionErrorOccurred = true;
		if (!this.options.enhanced) {
			return;
		}

		var errorCode = data[1];
		var identifier = data.readUInt32BE(2);
		var notification = null;
		var foundNotification = false;
		var temporaryCache = [];

		debug("Notification %d caused an error: %d", identifier, errorCode);

		while (socket.cachedNotifications.length) {
			notification = socket.cachedNotifications.shift();
			if (notification['_uid'] == identifier) {
				foundNotification = true;
				break;
			}
			temporaryCache.push(notification);
		}

		if (foundNotification) {
			while (temporaryCache.length) {
				temporaryCache.shift();
			}
			this.emit('transmissionError', errorCode, notification.notification, notification.recipient);
			this.raiseError(errorCode, notification.notification, notification.recipient);
		}
		else {
			socket.cachedNotifications = temporaryCache;

			if(socket.cachedNotifications.length > 0) {
				var differentialSize = socket.cachedNotifications[0]['_uid'] - identifier;
				this.emit('cacheTooSmall', differentialSize);
				if(this.options.autoAdjustCache) {
					this.options.cacheLength += differentialSize * 2;
				}
			}

			this.emit('transmissionError', errorCode, null);
			this.raiseError(errorCode, null);
		}

		var count = socket.cachedNotifications.length;
		if(this.options.buffersNotifications) {
			debug("Buffering %d notifications for resending", count);
			for (var i = 0; i < count; ++i) {
				notification = socket.cachedNotifications.shift();
				this.bufferNotification(notification);
			}
		}
	}
	else {
		debug("Unknown data received: ", data);
	}
};

/**
 * @private
 */
Connection.prototype.raiseError = function(errorCode, notification, recipient) {
	debug("Raising error:", errorCode, notification, recipient);

	if(errorCode instanceof Error) {
		debug("Error occurred with trace:", errorCode.stack);
	}

	if (notification && typeof notification.errorCallback == 'function' ) {
		notification.errorCallback(errorCode, recipient);
	} else if (typeof this.options.errorCallback == 'function') {
		this.options.errorCallback(errorCode, notification, recipient);
	}
};

/**
 * @private
 * @return {Boolean} Write completed, returns true if socketDrained should be called by the caller of this method.
 */
Connection.prototype.transmitNotification = function(socket, notification) {
	if (!this.socketAvailable(socket)) {
		this.bufferNotification(notification);
		return;
	}

	var token = notification.recipient.token;
	var encoding = notification.notification.encoding || 'utf8';
	var message = notification.notification.compile();
	var messageLength = Buffer.byteLength(message, encoding);
	var position = 0;
	var data;

	notification._uid = socket.currentId++;
	if (socket.currentId > 0xffffffff) {
		socket.currentId = 0;
	}
	if (this.options.legacy) {
		if (this.options.enhanced) {
			data = new Buffer(1 + 4 + 4 + 2 + token.length + 2 + messageLength);
			// Command
			data[position] = 1;
			position++;

			// Identifier
			data.writeUInt32BE(notification._uid, position);
			position += 4;

			// Expiry
			data.writeUInt32BE(notification.notification.expiry, position);
			position += 4;
			this.cacheNotification(socket, notification);
		}
		else {
			data = new Buffer(1 + 2 + token.length + 2 + messageLength);
			//Command
			data[position] = 0;
			position++;
		}
		// Token Length
		data.writeUInt16BE(token.length, position);
		position += 2;
		// Device Token
		position += token.copy(data, position, 0);
		// Payload Length
		data.writeUInt16BE(messageLength, position);
		position += 2;
		//Payload
		position += data.write(message, position, encoding);
	}
	else {
		// New Protocol uses framed notifications consisting of multiple items
		// 1: Device Token
		// 2: Payload
		// 3: Notification Identifier
		// 4: Expiration Date
		// 5: Priority
		// Each item has a 3 byte header: Type (1), Length (2) followed by data
		// The frame layout is hard coded for now as original dynamic system had a
		// significant performance penalty

		var frameLength = 3 + token.length + 3 + messageLength + 3 + 4;
		if(notification.notification.expiry > 0) {
			frameLength += 3 + 4;
		}
		if(notification.notification.priority != 10) {
			frameLength += 3 + 1;
		}

		// Frame has a 5 byte header: Type (1), Length (4) followed by items.
		data = new Buffer(5 + frameLength);
		data[position] = 2; position += 1;

		// Frame Length
		data.writeUInt32BE(frameLength, position); position += 4;

		// Token Item
		data[position] = 1; position += 1;
		data.writeUInt16BE(token.length, position); position += 2;
		position += token.copy(data, position, 0);

		// Payload Item
		data[position] = 2; position += 1;
		data.writeUInt16BE(messageLength, position); position += 2;
		position += data.write(message, position, encoding);

		// Identifier Item
		data[position] = 3; position += 1;
		data.writeUInt16BE(4, position); position += 2;
		data.writeUInt32BE(notification._uid, position); position += 4;

		if(notification.notification.expiry > 0) {
			// Expiry Item
			data[position] = 4; position += 1;
			data.writeUInt16BE(4, position); position += 2;
			data.writeUInt32BE(notification.notification.expiry, position); position += 4;
		}
		if(notification.notification.priority != 10) {
			// Priority Item
			data[position] = 5; position += 1;
			data.writeUInt16BE(1, position); position += 2;
			data[position] = notification.notification.priority; position += 1;
		}

		this.cacheNotification(socket, notification);
	}

	socket.busy = true;
	return socket.write(data);
};

Connection.prototype.validNotification = function (notification, recipient) {
	var messageLength = notification.length();

	if (messageLength > 256) {
		process.nextTick(function () {
			this.raiseError(Errors['invalidPayloadSize'], notification, recipient);
			this.emit('transmissionError', Errors['invalidPayloadSize'], notification, recipient);
		}.bind(this));
		return false;
	}
	notification.compile();
	return true;
};

/**
 * Queue a notification for delivery to recipients
 * @param {Notification} notification The Notification object to be sent
 * @param {Device|String|Buffer|Device[]|String[]|Buffer[]} recipient The token(s) for devices the notification should be delivered to.
 * @since v1.3.0
 */
Connection.prototype.pushNotification = function (notification, recipient) {
	if (!this.validNotification(notification, recipient)) {
		return;
	}
	if (sysu.isArray(recipient)) {
		for (var i = recipient.length - 1; i >= 0; i--) {
			this.prepareNotification(notification, recipient[i]);
		}
	}
	else {
		this.prepareNotification(notification, recipient);
	}

	this.serviceBuffer();
};

/**
 * Send a notification to the APN service
 * @param {Notification} notification The notification object to be sent
 * @deprecated Since v1.3.0, use pushNotification instead
 */
Connection.prototype.sendNotification = function (notification) {
	return this.pushNotification(notification, notification.device);
};

/**
 * End connections with APNS once we've finished sending all notifications
 */
Connection.prototype.shutdown = function () {
	debug("Shutdown pending");
	this.shutdownPending = true;
};

module.exports = Connection;