/*
 * melted_commands.c - global commands
 * Copyright (C) 2002-2009 Ushodaya Enterprises Limited
 * Author: Dan Dennedy <dan@dennedy.org>
 *
 * 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 2 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, write to the Free Software Foundation,
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/poll.h>
#include <fcntl.h>
#include <unistd.h>
#include <dirent.h>
#include <pthread.h>

#include "melted_unit.h"
#include "melted_commands.h"
#include "melted_log.h"

static melted_unit g_units[MAX_UNITS];


/** Return the melted_unit given a numeric index.
*/

melted_unit melted_get_unit( int n )
{
	if (n < MAX_UNITS)
		return g_units[n];
	else
		return NULL;
}

/** Destroy the melted_unit given its numeric index.
*/

void melted_delete_unit( int n )
{
	if (n < MAX_UNITS)
	{
		melted_unit unit = melted_get_unit(n);
		if (unit != NULL)
		{
			melted_unit_close( unit );
			g_units[ n ] = NULL;
			melted_log( LOG_NOTICE, "Deleted unit U%d.", n ); 
		}
	}
}

/** Destroy all allocated units on the server.
*/

void melted_delete_all_units( void )
{
	int i;
	for (i = 0; i < MAX_UNITS; i++)
	{
		if ( melted_get_unit(i) != NULL )
		{
			melted_unit_close( melted_get_unit(i) );
			melted_log( LOG_NOTICE, "Deleted unit U%d.", i ); 
		}
	}
}

/** Add a virtual vtr to the server.
*/
response_codes melted_add_unit( command_argument cmd_arg )
{
	int i = 0;
	for ( i = 0; i < MAX_UNITS; i ++ )
		if ( g_units[ i ] == NULL )
			break;

	if ( i < MAX_UNITS )
	{
		char *arg = cmd_arg->argument;
		g_units[ i ] = melted_unit_init( i, arg );
		if ( g_units[ i ] != NULL )
		{
			melted_unit_set_notifier( g_units[ i ], mvcp_parser_get_notifier( cmd_arg->parser ), cmd_arg->root_dir );
			mvcp_response_printf( cmd_arg->response, 10, "U%1d\n\n", i );
		}
		return g_units[ i ] != NULL ? RESPONSE_SUCCESS_N : RESPONSE_ERROR;
	}
	mvcp_response_printf( cmd_arg->response, 1024, "no more units can be created\n\n" );

	return RESPONSE_ERROR;
}


/** List all AV/C nodes on the bus.
*/
response_codes melted_list_nodes( command_argument cmd_arg )
{
	response_codes error = RESPONSE_SUCCESS_N;
	return error;
}


/** List units already added to server.
*/
response_codes melted_list_units( command_argument cmd_arg )
{
	response_codes error = RESPONSE_SUCCESS_N;
	int i = 0;

	for ( i = 0; i < MAX_UNITS; i ++ )
	{
		melted_unit unit = melted_get_unit( i );
		if ( unit != NULL )
		{
			mlt_properties properties = unit->properties;
			char *constructor = mlt_properties_get( properties, "constructor" );
			int node = mlt_properties_get_int( properties, "node" );
			int online = !mlt_properties_get_int( properties, "offline" );
			mvcp_response_printf( cmd_arg->response, 1024, "U%d %02d %s %d\n", i, node, constructor, online );
		}
	}
	mvcp_response_printf( cmd_arg->response, 1024, "\n" );

	return error;
}

static int filter_files( const struct dirent *de )
{
	return de->d_name[ 0 ] != '.';
}

/** List clips in a directory.
*/
response_codes melted_list_clips( command_argument cmd_arg )
{
	response_codes error = RESPONSE_BAD_FILE;
	const char *dir_name = (const char*) cmd_arg->argument;
	DIR *dir;
	char fullname[1024];
	struct dirent **de = NULL;
	int i, n;
	
	snprintf( fullname, 1023, "%s%s", cmd_arg->root_dir, dir_name );
	dir = opendir( fullname );
	if (dir != NULL)
	{
		struct stat info;
		error = RESPONSE_SUCCESS_N;
		n = scandir( fullname, &de, filter_files, alphasort );
		for (i = 0; i < n; i++ )
		{
			snprintf( fullname, 1023, "%s%s/%s", cmd_arg->root_dir, dir_name, de[i]->d_name );
			if ( stat( fullname, &info ) == 0 && S_ISDIR( info.st_mode ) )
				mvcp_response_printf( cmd_arg->response, 1024, "\"%s/\"\n", de[i]->d_name );
		}
		for (i = 0; i < n; i++ )
		{
			snprintf( fullname, 1023, "%s%s/%s", cmd_arg->root_dir, dir_name, de[i]->d_name );
			if ( lstat( fullname, &info ) == 0 && 
				 ( S_ISREG( info.st_mode ) || S_ISLNK( info.st_mode ) || ( strstr( fullname, ".clip" ) && info.st_mode | S_IXUSR ) ) )
				mvcp_response_printf( cmd_arg->response, 1024, "\"%s\" %llu\n", de[i]->d_name, (unsigned long long) info.st_size );
			free( de[ i ] );
		}
		free( de );
		closedir( dir );
		mvcp_response_write( cmd_arg->response, "\n", 1 );
	}

	return error;
}

/** Probe open clip.
*/
response_codes melted_probe_clip( command_argument cmd_arg )
{
	int l;
	const char *file_name = (const char*) cmd_arg->argument;
	char fullname[1024];
	mlt_producer producer;
	mlt_profile profile;

	snprintf( fullname, sizeof(fullname), "%s%s", cmd_arg->root_dir, file_name );
	profile = mlt_profile_init(NULL);
	producer = mlt_factory_producer( profile, NULL, fullname );
	if (!producer )
	{
		mlt_profile_close(profile);
		return RESPONSE_BAD_FILE;
	};

	l = mlt_producer_get_length( producer );
	mvcp_response_printf( cmd_arg->response, 10240,
		"%d \"%s\" %d %d %d %d %.2f\n\n",
		0,			/* index */
		cmd_arg->argument,	/* title */
		0,			/* frame in */
		l - 1,			/* frame out */
		l,			/* frame count */
		l,			/* length */
		mlt_producer_get_fps( producer ) );

	mlt_producer_close( producer );
	mlt_profile_close(profile);

	return RESPONSE_SUCCESS_N;
}

/** Set a server configuration property.
*/

response_codes melted_set_global_property( command_argument cmd_arg )
{
	char *key = (char*) cmd_arg->argument;
	char *value = NULL;

	value = strchr( key, '=' );
	if (value == NULL)
		return RESPONSE_OUT_OF_RANGE;
	*value = 0;
	value++;
	melted_log( LOG_DEBUG, "SET %s = %s", key, value );

	if ( strncasecmp( key, "root", 1024) == 0 )
	{
		int len = strlen(value);
		int i;
		
		/* stop all units and unload clips */
		for (i = 0; i < MAX_UNITS; i++)
		{
			if (g_units[i] != NULL)
				melted_unit_terminate( g_units[i] );
		}

		/* set the property */
		strncpy( cmd_arg->root_dir, value, 1023 );

		/* add a trailing slash if needed */
		if ( len && cmd_arg->root_dir[ len - 1 ] != '/')
		{
			cmd_arg->root_dir[ len ] = '/';
			cmd_arg->root_dir[ len + 1 ] = '\0';
		}
	}
	else
		return RESPONSE_OUT_OF_RANGE;
	
	return RESPONSE_SUCCESS;
}

/** Get a server configuration property.
*/

response_codes melted_get_global_property( command_argument cmd_arg )
{
	char *key = (char*) cmd_arg->argument;

	if ( strncasecmp( key, "root", 1024) == 0 )
	{
		mvcp_response_write( cmd_arg->response, cmd_arg->root_dir, strlen(cmd_arg->root_dir) );
		return RESPONSE_SUCCESS_1;
	}
	else
		return RESPONSE_OUT_OF_RANGE;
	
	return RESPONSE_SUCCESS;
}