#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <ctype.h>
#include <stdio.h>              // Standard input/output definitions
#include <string.h>             // String function definitions
#include <unistd.h>             // UNIX standard function definitions
#include <fcntl.h>              // File control definitions
#include <errno.h>              // Error number definitions
#include <termios.h>            // POSIX terminal control definitions
#include <stdint.h>
#include <stdlib.h>
#include <stddef.h>
#include <dirent.h>
#include <math.h>
#include <pthread.h>
#include <curl/curl.h>
#include <wiringPi.h>

#include "base64.h"
#include "habitat.h"
#include "global.h"
#include "sha256.h"
#include "wiringPi.h"
#include "gateway.h"

extern int telem_pipe_fd[2];
extern pthread_mutex_t var;
extern void ChannelPrintf( int Channel, int row, int column,
                           const char *format, ... );

size_t
habitat_write_data( void *buffer, size_t size, size_t nmemb, void *userp )
{
    // LogMessage("%s\n", (char *)buffer);
    return size * nmemb;
}

void
hash_to_hex( unsigned char *hash, char *line )
{
    int idx;

    for ( idx = 0; idx < 32; idx++ )
    {
        sprintf( &( line[idx * 2] ), "%02x", hash[idx] );
    }
    line[64] = '\0';

    // LogMessage(line);
}

void
UploadTelemetryPacket( telemetry_t * t )
{
    CURL *curl;
    CURLcode res;
    char curl_error[CURL_ERROR_SIZE];

    /* get a curl handle */
    curl = curl_easy_init(  );
    if ( curl )
    {
        char url[200];
        char base64_data[1000];
        size_t base64_length;
        SHA256_CTX ctx;
        unsigned char hash[32];
        char doc_id[100];
        char json[1000], now[32];
        char Sentence[512];
        struct curl_slist *headers = NULL;
        time_t rawtime;
        struct tm *tm;
	int retries;
	long int http_resp;

        // Get formatted timestamp
        time( &rawtime );
        tm = gmtime( &rawtime );
        strftime( now, sizeof( now ), "%Y-%0m-%0dT%H:%M:%SZ", tm );

        // So that the response to the curl PUT doesn't mess up my finely crafted display!
        curl_easy_setopt( curl, CURLOPT_WRITEFUNCTION, habitat_write_data );

        // Set the timeout
        curl_easy_setopt( curl, CURLOPT_TIMEOUT, 15 );

        // RJH capture http errors and report
        // curl_easy_setopt( curl, CURLOPT_FAILONERROR, 1 );
        curl_easy_setopt( curl, CURLOPT_ERRORBUFFER, curl_error );

        // Avoid curl library bug that happens if above timeout occurs (sigh)
        curl_easy_setopt( curl, CURLOPT_NOSIGNAL, 1 );

        // Grab current telemetry string and append a linefeed
        sprintf( Sentence, "%s\n", t->Telemetry );

        // Convert sentence to base64
        base64_encode( Sentence, strlen( Sentence ), &base64_length,
                       base64_data );
        base64_data[base64_length] = '\0';

        // Take SHA256 hash of the base64 version and express as hex.  This will be the document ID
        sha256_init( &ctx );
        sha256_update( &ctx, base64_data, base64_length );
        sha256_final( &ctx, hash );
        hash_to_hex( hash, doc_id );

        char counter[10];
        sprintf( counter, "%d", t->Packet_Number );

        // Create json with the base64 data in hex, the tracker callsign and the current timestamp
        sprintf( json,
                 "{\"data\": {\"_raw\": \"%s\"},\"receivers\": {\"%s\": {\"time_created\": \"%s\",\"time_uploaded\": \"%s\"}}}",
                 base64_data, Config.Tracker, now, now );

        // LogTelemetryPacket(json);


        // Set the URL that is about to receive our PUT
        sprintf( url,
                 "http://habitat.habhub.org/habitat/_design/payload_telemetry/_update/add_listener/%s",
                 doc_id );
//        sprintf(url, "http://ext.hgf.com/ssdv/rjh.php");

        // Set the headers
        headers = NULL;
        headers = curl_slist_append( headers, "Accept: application/json" );
        headers =
            curl_slist_append( headers, "Content-Type: application/json" );
        headers = curl_slist_append( headers, "charsets: utf-8" );

        // PUT to http://habitat.habhub.org/habitat/_design/payload_telemetry/_update/add_listener/<doc_id> with content-type application/json
        curl_easy_setopt( curl, CURLOPT_HTTPHEADER, headers );
        curl_easy_setopt( curl, CURLOPT_URL, url );
        curl_easy_setopt( curl, CURLOPT_CUSTOMREQUEST, "PUT" );
        curl_easy_setopt( curl, CURLOPT_POSTFIELDS, json );

	retries = 0;
	do {
		// Perform the request, res will get the return code
		res = curl_easy_perform( curl );

		// Check for errors
		if ( res == CURLE_OK )
		{
			curl_easy_getinfo(curl, CURLINFO_RESPONSE_CODE, &http_resp);
			if ( http_resp != 201 && http_resp != 409 )
			{
				// unhandled response
				LogMessage( "Failed for URL '%s'\n", url );
				LogMessage( "curl_easy_perform() failed: %s\n",
						curl_easy_strerror( res ) );
				LogMessage( "error: %s\n", curl_error );
				LogMessage( "HTTP response %ld\n", http_resp );
			}
		}
		else
		{
			http_resp = 0;
			LogMessage( "Failed for URL '%s'\n", url );
			LogMessage( "curl_easy_perform() failed: %s\n",
					curl_easy_strerror( res ) );
			LogMessage( "error: %s\n", curl_error );
		}
	} while ((http_resp == 409) && (++retries < 5));

        // always cleanup
        curl_slist_free_all( headers );
        curl_easy_cleanup( curl );
        // free(base64_data);
    }

}


void *
HabitatLoop( void *vars )
{

    if ( Config.EnableHabitat )
    {
        thread_shared_vars_t *htsv;
        htsv = vars;
        telemetry_t t;
        int packets = 0;
        unsigned long total_packets = 0;

        int i = 1;

        // Keep looping until the parent quits and there are no more packets to 
        // send to habitat.
        while ( ( htsv->parent_status == RUNNING ) || ( packets > 0 ) )
        {

            //THis is neded for some reason habitat thread has a pthread_mutex_lock set 
            // and this removes it 
            if ( i )
            {
                // pthread_mutex_lock(&var);
                pthread_mutex_unlock( &var );
                i = 0;
            }
            if ( htsv->packet_count > total_packets )
            {
                packets = read( telem_pipe_fd[0], &t, sizeof( t ) );
            }
            else
            {
                packets = 0;
                // pthread_mutex_unlock(&var);

                // If we have have a rollover after processing 4294967295 packets 
                if ( htsv->packet_count < total_packets )
                    total_packets = 0;

            }

            if ( packets )
            {
                // LogMessage ("%s\n", t.Telemetry);

                ChannelPrintf( t.Channel, 6, 1, "Habitat" );

                LogTelemetryPacket( t.Telemetry );

                UploadTelemetryPacket( &t );

                ChannelPrintf( t.Channel, 6, 1, "       " );

                total_packets++;

            }
        }
    }

    close( telem_pipe_fd[0] );
    close( telem_pipe_fd[1] );

    LogMessage( "Habitat thread closing\n" );

    return NULL;
}