//   SparkleShare, a collaboration and sharing tool.
//   Copyright (C) 2010  Hylke Bons <hylkebons@gmail.com>
//
//   This program is free software: you can redistribute it and/or modify
//   it under the terms of the GNU General Public License as published by
//   the Free Software Foundation, either version 3 of the License, or
//   (at your option) any later version.
//
//   This program is distributed in the hope that it will be useful,
//   but WITHOUT ANY WARRANTY; without even the implied warranty of
//   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
//   GNU General Public License for more details.
//
//   You should have received a copy of the GNU General Public License
//   along with this program. If not, see <http://www.gnu.org/licenses/>.


using System;
using System.IO;
using System.Text;
using System.Threading;
using System.Net.Sockets;
using System.Security.Cryptography;
using System.Collections.Generic;
using System.Xml.Serialization;

namespace SparkleLib {

    public class SparkleListenerTcp : SparkleListenerBase {

        private Thread thread;

        // these are shared
        private readonly Object mutex = new Object();
        private Socket socket;
        private bool connected;

        public SparkleListenerTcp (Uri server, string folder_identifier) :
            base (server, folder_identifier)
        {
            base.channels.Add (folder_identifier);
            this.connected = false;
        }


        public override bool IsConnected {
            get {
                bool result = false;

                lock (this.mutex) {
                  result = this.connected;
                }

                return result;
            }
        }


        // Starts a new thread and listens to the channel
        public override void Connect ()
        {
            SparkleHelpers.DebugInfo ("ListenerTcp", "Connecting to " + Server.Host);

            base.is_connecting = true;

            this.thread = new Thread (
                new ThreadStart (delegate {
                    try {
                        // Connect and subscribe to the channel
                        int port = Server.Port;
                        if (port < 0) port = 9999;

                        lock (this.mutex) {
                            this.socket = new Socket (AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
                            this.socket.Connect (Server.Host, port);

                            base.is_connecting = false;
                            this.connected = true;

                            OnConnected ();

                            foreach (string channel in base.channels) {
                                SparkleHelpers.DebugInfo ("ListenerTcp", "Subscribing to channel " + channel);
                                this.socket.Send (Encoding.UTF8.GetBytes ("subscribe " + channel + "\n"));
                            }
                        }

                        byte [] bytes = new byte [4096];

                        // List to the channels, this blocks the thread
                        while (this.socket.Connected) {
                            int bytes_read = this.socket.Receive (bytes);

                            if (bytes_read > 0) {
                                string received = Encoding.UTF8.GetString (bytes);
                                string line = received.Substring (0, received.IndexOf ("\n"));
                                if (!line.Contains ("!"))
                                    continue;
                                string folder_identifier = line.Substring (0, line.IndexOf ("!"));
                                string message = this.CleanMessage (line.Substring (line.IndexOf ("!") + 1));
                                if (!folder_identifier.Equals("debug") &&
                                    !String.IsNullOrEmpty(message))
                                    OnAnnouncement (new SparkleAnnouncement (folder_identifier, message));
                            } else {
                                SparkleHelpers.DebugInfo ("ListenerTcp", "Error on socket");

                                lock (this.mutex) {
                                    this.socket.Close ();
                                    this.connected = false;

                                    OnDisconnected ();
                                }
                            }
                        }

                        SparkleHelpers.DebugInfo ("ListenerTcp", "Disconnected from " + Server.Host);

                    } catch (SocketException e) {
                        SparkleHelpers.DebugInfo ("ListenerTcp", "Could not connect to " + Server + ": " + e.Message);

                        OnDisconnected ();
                    }
                })
            );

            this.thread.Start ();
        }


        public override void AlsoListenTo (string folder_identifier)
        {
            string channel = folder_identifier;

            if (!base.channels.Contains (channel)) {
                base.channels.Add (channel);

                if (IsConnected) {
                    SparkleHelpers.DebugInfo ("ListenerTcp", "Subscribing to channel " + channel);

                    string to_send = "subscribe " + folder_identifier + "\n";

                    try {
                        lock (this.mutex) {
                            this.socket.Send (Encoding.UTF8.GetBytes (to_send));
                        }

                    } catch (SocketException e) {
                        SparkleHelpers.DebugInfo ("ListenerTcp", "Could not connect to " + Server + ": " + e.Message);
                        OnDisconnected ();
                    }
                }
            }
        }


        public override void Announce (SparkleAnnouncement announcement)
        {
            string to_send = "announce " + announcement.FolderIdentifier
                + " " + announcement.Message + "\n";

            try {

                lock (this.mutex) {
                    this.socket.Send (Encoding.UTF8.GetBytes (to_send));
                }
            } catch (SocketException e) {
              SparkleHelpers.DebugInfo ("ListenerTcp", "Could not connect to " + Server + ": " + e.Message);

              OnDisconnected ();
            }
        }


        public override void Dispose ()
        {
            this.thread.Abort ();
            this.thread.Join ();
            base.Dispose ();
        }

        private string CleanMessage(string message)
        {
            return message.Trim ().Replace ("\n", "").Replace ("\0", "");
        }
    }
}