///\file conn_http_progressive.cpp
///\brief Contains the main code for the HTTP Progressive Connector

#include <iostream>
#include <queue>
#include <sstream>
#include <iomanip>

#include <cstdlib>
#include <cstdio>
#include <cmath>
#include <unistd.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <getopt.h>

#include <mist/socket.h>
#include <mist/http_parser.h>
#include <mist/dtsc.h>
#include <mist/flv_tag.h>
#include <mist/amf.h>
#include <mist/config.h>
#include <mist/stream.h>
#include <mist/timing.h>

///\brief Holds everything unique to HTTP Connectors.
namespace Connector_HTTP {
  ///\brief Main function for the HTTP Progressive Connector
  ///\param conn A socket describing the connection the client.
  ///\return The exit code of the connector.
  int JSONConnector(Socket::Connection conn){
    bool progressive_has_sent_header = false;//Indicates whether we have sent a header.
    DTSC::Stream Strm; //Incoming stream buffer.
    HTTP::Parser HTTP_R, HTTP_S;//HTTP Receiver en HTTP Sender.
    bool inited = false;//Whether the stream is initialized
    Socket::Connection ss( -1);//The Stream Socket, used to connect to the desired stream.
    std::string streamname;//Will contain the name of the stream.

    unsigned int lastStats = 0;//Indicates the last time that we have sent stats to the server socket.
    unsigned int seek_sec = 0;//Seek position in ms
    unsigned int seek_byte = 0;//Seek position in bytes
            
   std::stringstream jsondata;
       
    while (conn.connected()){
      //Only attempt to parse input when not yet init'ed.
      if ( !inited){
        if (conn.Received().size() || conn.spool()){
          //make sure it ends in a \n
          if ( *(conn.Received().get().rbegin()) != '\n'){
            std::string tmp = conn.Received().get();
            conn.Received().get().clear();
            if (conn.Received().size()){
              conn.Received().get().insert(0, tmp);
            }else{
              conn.Received().append(tmp);
            }
          }
          if (HTTP_R.Read(conn.Received().get())){
#if DEBUG >= 5
            std::cout << "Received request: " << HTTP_R.getUrl() << std::endl;
#endif
            conn.setHost(HTTP_R.GetHeader("X-Origin"));
            streamname = HTTP_R.GetHeader("X-Stream");

            int start = 0;
            if ( !HTTP_R.GetVar("start").empty()){
              start = atoi(HTTP_R.GetVar("start").c_str());
            }
            if ( !HTTP_R.GetVar("starttime").empty()){
              start = atoi(HTTP_R.GetVar("starttime").c_str());
            }
            if ( !HTTP_R.GetVar("apstart").empty()){
              start = atoi(HTTP_R.GetVar("apstart").c_str());
            }
            if ( !HTTP_R.GetVar("ec_seek").empty()){
              start = atoi(HTTP_R.GetVar("ec_seek").c_str());
            }
            if ( !HTTP_R.GetVar("fs").empty()){
              start = atoi(HTTP_R.GetVar("fs").c_str());
            }
            //under 3 hours we assume seconds, otherwise byte position
            if (start < 10800){
              seek_byte = start * 1000; //ms, not s
            }else{
              seek_byte = start * 1000; //divide by 1mbit, then *1000 for ms.
            }
           // ready4data = true;
            HTTP_R.Clean(); //clean for any possible next requests
            jsondata.clear();
            jsondata << "[";

            //we are ready, connect the socket!
            if ( !ss.connected()){
              ss = Util::Stream::getStream(streamname);
            }
            if ( !ss.connected()){
  #if DEBUG >= 1
              fprintf(stderr, "Could not connect to server for %s!\n", streamname.c_str());
  #endif
              ss.close();
              HTTP_S.Clean();
              HTTP_S.SetBody("No such stream is available on the system. Please try again.\n");
              conn.SendNow(HTTP_S.BuildResponse("404", "Not found"));
              //ready4data = false;
              inited = false;
              continue;
            }
            
            //wait until we have a header
            while ( !Strm.metadata && ss.connected()){
              if (ss.spool()){
                Strm.parsePacket(ss.Received()); //read the metadata
              }else{
                Util::sleep(5);
              }
            }

            seek_sec = seek_byte;
           
            std::stringstream cmd;
            cmd << "t";

            if (Strm.metadata["tracks"].size()){
              for (JSON::ObjIter objIt = Strm.metadata["tracks"].ObjBegin(); objIt != Strm.metadata["tracks"].ObjEnd(); objIt++){
                if ( objIt->second["type"].asStringRef() == "meta" ){
                  std::cout << "selecting track " << objIt->second["trackid"].asInt() << std::endl;
                  cmd << " " <<  objIt->second["trackid"].asInt();
                }
              }        
            }

            if( cmd.str() == "t" ){
              cmd.str("");
              cmd.clear();
            }

            int maxTime = Strm.metadata["lastms"].asInt();
            
            cmd << "\ns " << seek_sec << "\np " << maxTime << "\n";
            ss.SendNow(cmd.str().c_str(), cmd.str().size());
            std::cout << "sending command " << cmd.str() << std::endl;
            inited = true;
          
          }
        }
      }
      if (inited){

      unsigned int now = Util::epoch();
        if (now != lastStats){
          lastStats = now;
          ss.SendNow(conn.getStats("HTTP_JSON").c_str());
        }
        
        if (ss.spool()){
          while (Strm.parsePacket(ss.Received())){
            if(Strm.lastType() == DTSC::PAUSEMARK){
              HTTP_S.Clean(); //make sure no parts of old requests are left in any buffers
              HTTP_S.SetHeader("Content-Type", "application/json"); //Send the correct content-type for FLV files
              jsondata << "]";
              HTTP_S.SetBody(jsondata.str());
              conn.SendNow(HTTP_S.BuildResponse("200", "OK")); //no SetBody = unknown length - this is intentional, we will stream the entire file
              inited = false;
              jsondata.str(""); // totally do this
              jsondata.clear();
              break;
            }
              
            if (jsondata.str().length() > 1){
              jsondata << ",";
            }
            
            jsondata << Strm.getPacket().toString();
          }
        }else{
          Util::sleep(1);
        }
        if ( !ss.connected()){
          break;
        }
      }
     
    }
    conn.close();
    ss.SendNow(conn.getStats("HTTP_JSON").c_str());
    ss.close();
    return 0;
  } //SRT main function

} //Connector_HTTP namespace

///\brief The standard process-spawning main function.
int main(int argc, char ** argv){
  Util::Config conf(argv[0], PACKAGE_VERSION);
  JSON::Value capa;
  capa["desc"] = "Enables HTTP protocol JSON streaming.";
  capa["deps"] = "HTTP";
  capa["url_rel"] = "/$.json";
  capa["url_match"] = "/$.json";
  capa["url_handler"] = "http";
  capa["url_type"] = "json";
  capa["socket"] = "http_json";
  conf.addBasicConnectorOptions(capa);
  conf.parseArgs(argc, argv);
  
  if (conf.getBool("json")){
    std::cout << capa.toString() << std::endl;
    return -1;
  }
  
  Socket::Server server_socket = Socket::Server("/tmp/mist/http_json");
  if ( !server_socket.connected()){
    return 1;
  }
  conf.activate();

  while (server_socket.connected() && conf.is_active){
    Socket::Connection S = server_socket.accept();
    if (S.connected()){ //check if the new connection is valid
      pid_t myid = fork();
      if (myid == 0){ //if new child, start MAINHANDLER
        return Connector_HTTP::JSONConnector(S);
      }else{ //otherwise, do nothing or output debugging text
#if DEBUG >= 5
        fprintf(stderr, "Spawned new process %i for socket %i\n", (int)myid, S.getSocket());
#endif
      }
    }
  } //while connected
  server_socket.close();
  return 0;
} //main