vlm.c 89.1 KB
Newer Older
1
/*****************************************************************************
2
 * vlm.c: VLM interface plugin
3
 *****************************************************************************
Antoine Cellerier's avatar
Antoine Cellerier committed
4
 * Copyright (C) 2000-2005 the VideoLAN team
5
 * $Id$
6 7 8
 *
 * Authors: Simon Latapie <garf@videolan.org>
 *          Laurent Aimar <fenrir@videolan.org>
Gildas Bazin's avatar
Gildas Bazin committed
9
 *          Gildas Bazin <gbazin@videolan.org>
10 11 12 13 14 15 16 17 18 19 20 21 22
 *
 * 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
Antoine Cellerier's avatar
Antoine Cellerier committed
23
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
24 25 26 27 28
 *****************************************************************************/

/*****************************************************************************
 * Preamble
 *****************************************************************************/
29 30 31 32
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif

33 34 35
#include <vlc/vlc.h>

#include <stdio.h>
36
#include <ctype.h>                                              /* tolower() */
Rémi Denis-Courmont's avatar
Rémi Denis-Courmont committed
37
#include <assert.h>
38

39 40
#include <vlc_vlm.h>

41 42
#ifdef ENABLE_VLM

Rafaël Carré's avatar
Rafaël Carré committed
43 44 45 46
#ifndef WIN32
#   include <sys/time.h>                                   /* gettimeofday() */
#endif

47 48
#ifdef HAVE_TIME_H
#   include <time.h>                                              /* ctime() */
49
#   include <sys/timeb.h>                                         /* ftime() */
50 51
#endif

Clément Stenac's avatar
Clément Stenac committed
52
#include <vlc_input.h>
Rémi Denis-Courmont's avatar
Rémi Denis-Courmont committed
53
#include "input_internal.h"
Clément Stenac's avatar
Clément Stenac committed
54
#include <vlc_stream.h>
55
#include "vlm_internal.h"
56
#include <vlc_vod.h>
Clément Stenac's avatar
Clément Stenac committed
57
#include <vlc_charset.h>
58 59
#include <vlc_sout.h>
#include "../stream_output/stream_output.h"
Rémi Denis-Courmont's avatar
Rémi Denis-Courmont committed
60
#include "../libvlc.h"
61

62 63 64
/*****************************************************************************
 * Local prototypes.
 *****************************************************************************/
65 66 67 68 69

/* ugly kludge to avoid "null format string" warnings,
 * even if we handle NULL format string in vlm_MessageNew() */
static const char *vlm_NULL = NULL;

70 71
static void vlm_Destructor( vlm_t *p_vlm );

72 73
/* */
static int vlm_ControlInternal( vlm_t *, int, ... );
74

75 76
/* */
static vlm_message_t *vlm_Show( vlm_t *, vlm_media_sys_t *, vlm_schedule_sys_t *, const char * );
77

78
static vlm_schedule_sys_t *vlm_ScheduleSearch( vlm_t *, const char * );
79

80 81
static char *Save( vlm_t * );
static int Load( vlm_t *, char * );
82

83
static int ExecuteCommand( vlm_t *, const char *, vlm_message_t ** );
84

85
static int Manage( vlc_object_t * );
86

87
static vlm_schedule_sys_t *vlm_ScheduleNew( vlm_t *vlm, const char *psz_name );
88
static void vlm_ScheduleDelete( vlm_t *vlm, vlm_schedule_sys_t *sched );
89 90
static int vlm_ScheduleSetup( vlm_schedule_sys_t *schedule, const char *psz_cmd,
                              const char *psz_value );
91 92 93

static int vlm_MediaVodControl( void *, vod_media_t *, const char *, int, va_list );

94 95
/* */
static vlm_media_sys_t *vlm_MediaSearch( vlm_t *, const char *);
96

97 98 99 100 101 102
/*****************************************************************************
 * vlm_New:
 *****************************************************************************/
vlm_t *__vlm_New ( vlc_object_t *p_this )
{
    vlc_value_t lockval;
Clément Stenac's avatar
Clément Stenac committed
103
    vlm_t *p_vlm = NULL;
104
    char *psz_vlmconf;
105
    static const char vlm_object_name[] = "vlm daemon";
106

107
    /* Avoid multiple creation */
108 109
    if( var_Create( p_this->p_libvlc, "vlm_mutex", VLC_VAR_MUTEX ) ||
        var_Get( p_this->p_libvlc, "vlm_mutex", &lockval ) )
110 111
        return NULL;

112 113
    vlc_mutex_lock( lockval.p_address );

114 115
    p_vlm = vlc_object_find( p_this, VLC_OBJECT_VLM, FIND_ANYWHERE );
    if( p_vlm )
116
    {
117 118 119 120
        vlc_object_yield( p_vlm );
        vlc_mutex_unlock( lockval.p_address );
        return p_vlm;
    }
121

122
    msg_Dbg( p_this, "creating VLM" );
123

124 125
    p_vlm = vlc_custom_create( p_this, sizeof( *p_vlm), VLC_OBJECT_VLM,
                               vlm_object_name );
126 127 128 129
    if( !p_vlm )
    {
        vlc_mutex_unlock( lockval.p_address );
        return NULL;
130
    }
131 132

    vlc_mutex_init( p_this->p_libvlc, &p_vlm->lock );
133
    p_vlm->i_id = 1;
134 135 136
    TAB_INIT( p_vlm->i_media, p_vlm->media );
    TAB_INIT( p_vlm->i_schedule, p_vlm->schedule );
    p_vlm->i_vod = 0;
137
    p_vlm->p_vod = NULL;
138
    vlc_object_attach( p_vlm, p_this->p_libvlc );
139

Clément Stenac's avatar
Clément Stenac committed
140
    if( vlc_thread_create( p_vlm, "vlm thread",
141 142
                           Manage, VLC_THREAD_PRIORITY_LOW, VLC_FALSE ) )
    {
Clément Stenac's avatar
Clément Stenac committed
143
        vlc_mutex_destroy( &p_vlm->lock );
144
        vlc_object_release( p_vlm );
145 146
        return NULL;
    }
147

148 149
    /* Load our configuration file */
    psz_vlmconf = var_CreateGetString( p_vlm, "vlm-conf" );
150 151 152 153 154
    if( psz_vlmconf && *psz_vlmconf )
    {
        vlm_message_t *p_message = NULL;
        char *psz_buffer = NULL;

155
        msg_Dbg( p_this, "loading VLM configuration" );
156 157 158
        asprintf(&psz_buffer, "load %s", psz_vlmconf );
        if( psz_buffer )
        {
159 160
            msg_Dbg( p_this, psz_buffer );
            if( vlm_ExecuteCommand( p_vlm, psz_buffer, &p_message ) )
161
                msg_Warn( p_this, "error while loading the configuration file" );
162

163
            vlm_MessageDelete(p_message);
164 165
            free(psz_buffer);
        }
166 167
    }
    free(psz_vlmconf);
168

169
    vlc_object_set_destructor( p_vlm, (vlc_destructor_t)vlm_Destructor );
170 171 172
    vlc_mutex_unlock( lockval.p_address );

    return p_vlm;
173 174 175 176 177
}

/*****************************************************************************
 * vlm_Delete:
 *****************************************************************************/
Clément Stenac's avatar
Clément Stenac committed
178
void vlm_Delete( vlm_t *p_vlm )
179
{
Clément Stenac's avatar
Clément Stenac committed
180
    vlc_object_release( p_vlm );
181
}
182

183 184 185 186 187
/*****************************************************************************
 * vlm_Destructor:
 *****************************************************************************/
static void vlm_Destructor( vlm_t *p_vlm )
{
188
    vlm_ControlInternal( p_vlm, VLM_CLEAR_MEDIAS );
189
    TAB_CLEAN( p_vlm->i_media, p_vlm->media );
190

191
    vlm_ControlInternal( p_vlm, VLM_CLEAR_SCHEDULES );
192
    TAB_CLEAN( p_vlm->schedule, p_vlm->schedule );
193

194
    vlc_mutex_destroy( &p_vlm->lock );
195 196 197 198 199
}

/*****************************************************************************
 * vlm_ExecuteCommand:
 *****************************************************************************/
200
int vlm_ExecuteCommand( vlm_t *p_vlm, const char *psz_command,
Clément Stenac's avatar
Clément Stenac committed
201
                        vlm_message_t **pp_message)
202
{
Clément Stenac's avatar
Clément Stenac committed
203
    int i_result;
204

Clément Stenac's avatar
Clément Stenac committed
205 206 207
    vlc_mutex_lock( &p_vlm->lock );
    i_result = ExecuteCommand( p_vlm, psz_command, pp_message );
    vlc_mutex_unlock( &p_vlm->lock );
208

Clément Stenac's avatar
Clément Stenac committed
209
    return i_result;
210 211
}

212 213

static const char quotes[] = "\"'";
214 215 216
/**
 * FindCommandEnd: look for the end of a possibly quoted string
 * @return NULL on mal-formatted string,
217
 * pointer past the last character otherwise.
218
 */
219
static const char *FindCommandEnd( const char *psz_sent )
220
{
221
    char c, quote = 0;
222

223
    while( (c = *psz_sent) != '\0' )
224
    {
225
        if( !quote )
Gildas Bazin's avatar
Gildas Bazin committed
226
        {
227
            if( strchr(quotes,c) )   // opening quote
228
                quote = c;
229
            else if( isspace(c) )         // non-escaped space
230
                return psz_sent;
231
            else if( c == '\\' )
232 233
            {
                psz_sent++;         // skip escaped character
234
                if( *psz_sent == '\0' )
235 236
                    return psz_sent;
            }
Gildas Bazin's avatar
Gildas Bazin committed
237
        }
238
        else
239
        {
240
            if( c == quote )         // non-escaped matching quote
241
                quote = 0;
242
            else if( (quote == '"') && (c == '\\') )
243 244 245 246 247 248
            {
                psz_sent++;         // skip escaped character
                if (*psz_sent == '\0')
                    return NULL;    // error, closing quote missing
            }
        }
Gildas Bazin's avatar
Gildas Bazin committed
249
        psz_sent++;
250
    }
251

252 253 254
    // error (NULL) if we could not find a matching quote
    return quote ? NULL : psz_sent;
}
255

Gildas Bazin's avatar
Gildas Bazin committed
256

257
/**
258
 * Unescape a nul-terminated string.
259 260 261 262 263 264 265
 * Note that in and out can be identical.
 *
 * @param out output buffer (at least <strlen (in) + 1> characters long)
 * @param in nul-terminated string to be unescaped
 *
 * @return 0 on success, -1 on error.
 */
266
static int Unescape( char *out, const char *in )
267
{
268
    char c, quote = 0;
269

270
    while( (c = *in++) != '\0' )
271
    {
272
        if( !quote )
Gildas Bazin's avatar
Gildas Bazin committed
273
        {
274
            if (strchr(quotes,c))   // opening quote
275
            {
276 277 278
                quote = c;
                continue;
            }
279
            else if( c == '\\' )
280 281 282 283 284 285 286 287 288 289 290 291 292
            {
                switch (c = *in++)
                {
                    case '"':
                    case '\'':
                    case '\\':
                        *out++ = c;
                        continue;

                    case '\0':
                        *out = '\0';
                        return 0;
                }
293
                if( isspace(c) )
294 295
                {
                    *out++ = c;
296
                    continue;
297 298 299 300 301 302 303
                }
                /* None of the special cases - copy the backslash */
                *out++ = '\\';
            }
        }
        else
        {
304
            if( c == quote )         // non-escaped matching quote
305 306 307 308
            {
                quote = 0;
                continue;
            }
309
            if( (quote == '"') && (c == '\\') )
310
            {
311
                switch( c = *in++ )
312 313 314 315 316 317 318 319 320 321 322 323
                {
                    case '"':
                    case '\\':
                        *out++ = c;
                        continue;

                    case '\0':   // should never happen
                        *out = '\0';
                        return -1;
                }
                /* None of the special cases - copy the backslash */
                *out++ = '\\';
324 325
            }
        }
326
        *out++ = c;
327
    }
328 329 330

    *out = '\0';
    return 0;
331 332
}

333

Gildas Bazin's avatar
Gildas Bazin committed
334 335 336 337 338
/*****************************************************************************
 * ExecuteCommand: The main state machine
 *****************************************************************************
 * Execute a command which ends with '\0' (string)
 *****************************************************************************/
339
static int ExecuteSyntaxError( const char *psz_cmd, vlm_message_t **pp_status )
340
{
341 342 343
    *pp_status = vlm_MessageNew( psz_cmd, "Wrong command syntax" );
    return VLC_EGENERIC;
}
344

345 346 347
static vlc_bool_t ExecuteIsMedia( vlm_t *p_vlm, const char *psz_name )
{
    int64_t id;
Rémi Denis-Courmont's avatar
Rémi Denis-Courmont committed
348

349 350 351 352 353 354 355 356 357 358
    if( !psz_name || vlm_ControlInternal( p_vlm, VLM_GET_MEDIA_ID, psz_name, &id ) )
        return VLC_FALSE;
    return VLC_TRUE;
}
static vlc_bool_t ExecuteIsSchedule( vlm_t *p_vlm, const char *psz_name )
{
    if( !psz_name || !vlm_ScheduleSearch( p_vlm, psz_name ) )
        return VLC_FALSE;
    return VLC_TRUE;
}
Rémi Denis-Courmont's avatar
Rémi Denis-Courmont committed
359

360 361 362 363
static int ExecuteDel( vlm_t *p_vlm, const char *psz_name, vlm_message_t **pp_status )
{
    vlm_media_sys_t *p_media;
    vlm_schedule_sys_t *p_schedule;
364

365 366
    p_media = vlm_MediaSearch( p_vlm, psz_name );
    p_schedule = vlm_ScheduleSearch( p_vlm, psz_name );
Rémi Denis-Courmont's avatar
Rémi Denis-Courmont committed
367

368 369
    if( p_schedule != NULL )
    {
370
        vlm_ScheduleDelete( p_vlm, p_schedule );
371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393
    }
    else if( p_media != NULL )
    {
        vlm_ControlInternal( p_vlm, VLM_DEL_MEDIA, p_media->cfg.id );
    }
    else if( !strcmp(psz_name, "media") )
    {
        vlm_ControlInternal( p_vlm, VLM_CLEAR_MEDIAS );
    }
    else if( !strcmp(psz_name, "schedule") )
    {
        vlm_ControlInternal( p_vlm, VLM_CLEAR_SCHEDULES );
    }
    else if( !strcmp(psz_name, "all") )
    {
        vlm_ControlInternal( p_vlm, VLM_CLEAR_MEDIAS );
        vlm_ControlInternal( p_vlm, VLM_CLEAR_SCHEDULES );
    }
    else
    {
        *pp_status = vlm_MessageNew( "del", "%s: media unknown", psz_name );
        return VLC_EGENERIC;
    }
394

395
    *pp_status = vlm_MessageNew( "del", vlm_NULL );
396 397
    return VLC_SUCCESS;
}
398

399 400 401 402
static int ExecuteShow( vlm_t *p_vlm, const char *psz_name, vlm_message_t **pp_status )
{
    vlm_media_sys_t *p_media;
    vlm_schedule_sys_t *p_schedule;
403

404 405 406 407 408
    if( !psz_name )
    {
        *pp_status = vlm_Show( p_vlm, NULL, NULL, NULL );
        return VLC_SUCCESS;
    }
Antoine Cellerier's avatar
Antoine Cellerier committed
409

410 411
    p_media = vlm_MediaSearch( p_vlm, psz_name );
    p_schedule = vlm_ScheduleSearch( p_vlm, psz_name );
412

413 414 415 416 417 418
    if( p_schedule != NULL )
        *pp_status = vlm_Show( p_vlm, NULL, p_schedule, NULL );
    else if( p_media != NULL )
        *pp_status = vlm_Show( p_vlm, p_media, NULL, NULL );
    else
        *pp_status = vlm_Show( p_vlm, NULL, NULL, psz_name );
419

420 421
    return VLC_SUCCESS;
}
422

423
static int ExecuteHelp( vlm_message_t *p_status )
424
{
425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468
    vlm_message_t *message_child;

#define MessageAdd( a ) \
        vlm_MessageAdd( p_status, vlm_MessageNew( a, vlm_NULL ) );
#define MessageAddChild( a ) \
        vlm_MessageAdd( message_child, vlm_MessageNew( a, vlm_NULL ) );

    p_status = vlm_MessageNew( "help", vlm_NULL );

    message_child = MessageAdd( "Commands Syntax:" );
    MessageAddChild( "new (name) vod|broadcast|schedule [properties]" );
    MessageAddChild( "setup (name) (properties)" );
    MessageAddChild( "show [(name)|media|schedule]" );
    MessageAddChild( "del (name)|all|media|schedule" );
    MessageAddChild( "control (name) [instance_name] (command)" );
    MessageAddChild( "save (config_file)" );
    MessageAddChild( "export" );
    MessageAddChild( "load (config_file)" );

    message_child = MessageAdd( "Media Proprieties Syntax:" );
    MessageAddChild( "input (input_name)" );
    MessageAddChild( "inputdel (input_name)|all" );
    MessageAddChild( "inputdeln input_number" );
    MessageAddChild( "output (output_name)" );
    MessageAddChild( "option (option_name)[=value]" );
    MessageAddChild( "enabled|disabled" );
    MessageAddChild( "loop|unloop (broadcast only)" );
    MessageAddChild( "mux (mux_name)" );

    message_child = MessageAdd( "Schedule Proprieties Syntax:" );
    MessageAddChild( "enabled|disabled" );
    MessageAddChild( "append (command_until_rest_of_the_line)" );
    MessageAddChild( "date (year)/(month)/(day)-(hour):(minutes):"
                     "(seconds)|now" );
    MessageAddChild( "period (years_aka_12_months)/(months_aka_30_days)/"
                     "(days)-(hours):(minutes):(seconds)" );
    MessageAddChild( "repeat (number_of_repetitions)" );

    message_child = MessageAdd( "Control Commands Syntax:" );
    MessageAddChild( "play [input_number]" );
    MessageAddChild( "pause" );
    MessageAddChild( "stop" );
    MessageAddChild( "seek [+-](percentage) | [+-](seconds)s | [+-](miliseconds)ms" );

469 470 471 472 473 474 475 476 477 478 479 480 481
    return VLC_SUCCESS;
}

static int ExecuteControl( vlm_t *p_vlm, const char *psz_name, const int i_arg, char ** ppsz_arg, vlm_message_t **pp_status )
{
    vlm_media_sys_t *p_media;
    const char *psz_control = NULL;
    const char *psz_instance = NULL;
    const char *psz_argument = NULL;
    int i_index;
    int i_result;

    if( !ExecuteIsMedia( p_vlm, psz_name ) )
482
    {
483 484
        *pp_status = vlm_MessageNew( "control", "%s: media unknown", psz_name );
        return VLC_EGENERIC;
485 486
    }

487 488 489 490 491
    assert( i_arg > 0 );

#define IS(txt) ( !strcmp( ppsz_arg[i_index], (txt) ) )
    i_index = 0;
    if( !IS("play") && !IS("stop") && !IS("pause") && !IS("seek") )
492
    {
493 494
        i_index = 1;
        psz_instance = ppsz_arg[0];
495

496 497 498 499 500
        if( i_index >= i_arg || ( !IS("play") && !IS("stop") && !IS("pause") && !IS("seek") ) )
            return ExecuteSyntaxError( "control", pp_status );
    }
#undef IS
    psz_control = ppsz_arg[i_index];
501

502 503
    if( i_index+1 < i_arg )
        psz_argument = ppsz_arg[i_index+1];
504

505 506
    p_media = vlm_MediaSearch( p_vlm, psz_name );
    assert( p_media );
507

508 509 510 511
    if( !strcmp( psz_control, "play" ) )
    {
        int i_input_index = 0;
        int i;
512

513
        if( ( psz_argument && sscanf(psz_argument, "%d", &i) == 1 ) && i > 0 && i-1 < p_media->cfg.i_input )
514
        {
515
            i_input_index = i-1;
516 517 518 519 520 521 522 523 524 525 526 527 528 529
        }
        else if( psz_argument )
        {
            int j;
            vlm_media_t *p_cfg = &p_media->cfg;
            for ( j=0; j < p_cfg->i_input; j++)
            {
                if( !strcmp( p_cfg->ppsz_input[j], psz_argument ) )
                {
                    i_input_index = j;
                    break;
                }
            }
        }
530

531 532
        if( p_media->cfg.b_vod )
            i_result = vlm_ControlInternal( p_vlm, VLM_START_MEDIA_VOD_INSTANCE, p_media->cfg.id, psz_instance, i_input_index, NULL );    // we should get here now
Gildas Bazin's avatar
Gildas Bazin committed
533
        else
534
            i_result = vlm_ControlInternal( p_vlm, VLM_START_MEDIA_BROADCAST_INSTANCE, p_media->cfg.id, psz_instance, i_input_index );
Gildas Bazin's avatar
Gildas Bazin committed
535
    }
536
    else if( !strcmp( psz_control, "seek" ) )
Gildas Bazin's avatar
Gildas Bazin committed
537
    {
538 539 540 541 542 543 544
        if( psz_argument )
        {
            vlc_bool_t b_relative;
            if( psz_argument[0] == '+' || psz_argument[0] == '-' )
                b_relative = VLC_TRUE;
            else
                b_relative = VLC_FALSE;
Gildas Bazin's avatar
Gildas Bazin committed
545

546 547 548 549
            if( strstr( psz_argument, "ms" ) || strstr( psz_argument, "s" ) )
            {
                /* Time (ms or s) */
                int64_t i_new_time;
Clément Stenac's avatar
Clément Stenac committed
550

551 552 553 554
                if( strstr( psz_argument, "ms" ) )
                    i_new_time =  1000 * (int64_t)atoi( psz_argument );
                else
                    i_new_time = 1000000 * (int64_t)atoi( psz_argument );
555

556 557 558 559 560 561 562 563 564 565 566 567 568 569
                if( b_relative )
                {
                    int64_t i_time = 0;
                    vlm_ControlInternal( p_vlm, VLM_GET_MEDIA_INSTANCE_TIME, p_media->cfg.id, psz_instance, &i_time );
                    i_new_time += i_time;
                }
                if( i_new_time < 0 )
                    i_new_time = 0;
                i_result = vlm_ControlInternal( p_vlm, VLM_SET_MEDIA_INSTANCE_TIME, p_media->cfg.id, psz_instance, i_new_time );
            }
            else
            {
                /* Percent */
                double d_new_position = i18n_atof( psz_argument ) / 100.0;
570

571 572 573
                if( b_relative )
                {
                    double d_position = 0.0;
574

575 576 577 578 579 580 581 582 583
                    vlm_ControlInternal( p_vlm, VLM_GET_MEDIA_INSTANCE_POSITION, p_media->cfg.id, psz_instance, &d_position );
                    d_new_position += d_position;
                }
                if( d_new_position < 0.0 )
                    d_new_position = 0.0;
                else if( d_new_position > 1.0 )
                    d_new_position = 1.0;
                i_result = vlm_ControlInternal( p_vlm, VLM_SET_MEDIA_INSTANCE_POSITION, p_media->cfg.id, psz_instance, d_new_position );
            }
Gildas Bazin's avatar
Gildas Bazin committed
584
        }
585
        else
Gildas Bazin's avatar
Gildas Bazin committed
586
        {
587
            i_result = VLC_EGENERIC;
Gildas Bazin's avatar
Gildas Bazin committed
588
        }
589 590 591 592
    }
    else if( !strcmp( psz_control, "rewind" ) )
    {
        if( psz_argument )
Gildas Bazin's avatar
Gildas Bazin committed
593
        {
594 595
            const double d_scale = i18n_atof( psz_argument );
            double d_position;
Gildas Bazin's avatar
Gildas Bazin committed
596

597 598 599 600 601
            vlm_ControlInternal( p_vlm, VLM_GET_MEDIA_INSTANCE_POSITION, p_media->cfg.id, psz_instance, &d_position );
            d_position -= (d_scale / 1000.0);
            if( d_position < 0.0 )
                d_position = 0.0;
            i_result = vlm_ControlInternal( p_vlm, VLM_SET_MEDIA_INSTANCE_POSITION, p_media->cfg.id, psz_instance, d_position );
602 603 604
        }
        else
        {
605
            i_result = VLC_EGENERIC;
606 607
        }
    }
608
    else if( !strcmp( psz_control, "forward" ) )
609
    {
610
        if( psz_argument )
611
        {
612 613
            const double d_scale = i18n_atof( psz_argument );
            double d_position;
614

615 616 617 618 619
            vlm_ControlInternal( p_vlm, VLM_GET_MEDIA_INSTANCE_POSITION, p_media->cfg.id, psz_instance, &d_position );
            d_position += (d_scale / 1000.0);
            if( d_position > 1.0 )
                d_position = 1.0;
            i_result = vlm_ControlInternal( p_vlm, VLM_SET_MEDIA_INSTANCE_POSITION, p_media->cfg.id, psz_instance, d_position );
620 621 622 623

        }
        else
        {
624
            i_result = VLC_EGENERIC;
625 626
        }
    }
627
    else if( !strcmp( psz_control, "stop" ) )
Gildas Bazin's avatar
Gildas Bazin committed
628
    {
629 630 631 632 633 634 635 636 637
        i_result = vlm_ControlInternal( p_vlm, VLM_STOP_MEDIA_INSTANCE, p_media->cfg.id, psz_instance );
    }
    else if( !strcmp( psz_control, "pause" ) )
    {
        i_result = vlm_ControlInternal( p_vlm, VLM_PAUSE_MEDIA_INSTANCE, p_media->cfg.id, psz_instance );
    }
    else
    {
        i_result = VLC_EGENERIC;
Gildas Bazin's avatar
Gildas Bazin committed
638
    }
639

640
    if( i_result )
Gildas Bazin's avatar
Gildas Bazin committed
641
    {
642 643 644
        *pp_status = vlm_MessageNew( "control", "unknown error" );
        return VLC_SUCCESS;
    }
645
    *pp_status = vlm_MessageNew( "control", vlm_NULL );
646 647
    return VLC_SUCCESS;
}
648

649 650 651
static int ExecuteExport( vlm_t *p_vlm, vlm_message_t **pp_status )
{
    char *psz_export = Save( p_vlm );
652

653 654 655 656
    *pp_status = vlm_MessageNew( "export", psz_export );
    free( psz_export );
    return VLC_SUCCESS;
}
657

658 659 660 661
static int ExecuteSave( vlm_t *p_vlm, const char *psz_file, vlm_message_t **pp_status )
{
    FILE *f = utf8_fopen( psz_file, "wt" );
    char *psz_save;
Gildas Bazin's avatar
Gildas Bazin committed
662

663 664
    if( !f )
        goto error;
665

666 667 668 669 670 671 672 673 674
    psz_save = Save( p_vlm );
    if( psz_save == NULL )
    {
        fclose( f );
        goto error;
    }
    fwrite( psz_save, strlen( psz_save ), 1, f );
    free( psz_save );
    fclose( f );
675

676
    *pp_status = vlm_MessageNew( "save", vlm_NULL );
677 678 679 680 681 682
    return VLC_SUCCESS;

error:
    *pp_status = vlm_MessageNew( "save", "Unable to save to file" );
    return VLC_EGENERIC;
}
683

684 685 686 687 688
static int ExecuteLoad( vlm_t *p_vlm, const char *psz_url, vlm_message_t **pp_status )
{
    stream_t *p_stream = stream_UrlNew( p_vlm, psz_url );
    int64_t i_size;
    char *psz_buffer;
Gildas Bazin's avatar
Gildas Bazin committed
689

690 691 692 693
    if( !p_stream )
    {
        *pp_status = vlm_MessageNew( "load", "Unable to load from file" );
        return VLC_EGENERIC;
694
    }
Gildas Bazin's avatar
Gildas Bazin committed
695

696 697
    /* FIXME needed ? */
    if( stream_Seek( p_stream, 0 ) != 0 )
698
    {
699
        stream_Delete( p_stream );
700

701 702
        *pp_status = vlm_MessageNew( "load", "Read file error" );
        return VLC_EGENERIC;
703
    }
Gildas Bazin's avatar
Gildas Bazin committed
704

705
    i_size = stream_Size( p_stream );
706

707 708 709 710
    psz_buffer = malloc( i_size + 1 );
    if( !psz_buffer )
    {
        stream_Delete( p_stream );
711

712 713
        *pp_status = vlm_MessageNew( "load", "Read file error" );
        return VLC_EGENERIC;
714 715
    }

716 717
    stream_Read( p_stream, psz_buffer, i_size );
    psz_buffer[i_size] = '\0';
718

719
    stream_Delete( p_stream );
Gildas Bazin's avatar
Gildas Bazin committed
720

721
    if( Load( p_vlm, psz_buffer ) )
Gildas Bazin's avatar
Gildas Bazin committed
722
    {
723 724 725 726
        free( psz_buffer );

        *pp_status = vlm_MessageNew( "load", "Error while loading file" );
        return VLC_EGENERIC;
Gildas Bazin's avatar
Gildas Bazin committed
727 728
    }

729
    free( psz_buffer );
Gildas Bazin's avatar
Gildas Bazin committed
730

731
    *pp_status = vlm_MessageNew( "load", vlm_NULL );
732 733
    return VLC_SUCCESS;
}
Gildas Bazin's avatar
Gildas Bazin committed
734

735 736 737 738 739
static int ExecuteScheduleProperty( vlm_t *p_vlm, vlm_schedule_sys_t *p_schedule, vlc_bool_t b_new,
                                    const int i_property, char *ppsz_property[], vlm_message_t **pp_status )
{
    const char *psz_cmd = b_new ? "new" : "setup";
    int i;
Gildas Bazin's avatar
Gildas Bazin committed
740

741 742 743 744
    for( i = 0; i < i_property; i++ )
    {
        if( !strcmp( ppsz_property[i], "enabled" ) ||
            !strcmp( ppsz_property[i], "disabled" ) )
Gildas Bazin's avatar
Gildas Bazin committed
745
        {
746
            vlm_ScheduleSetup( p_schedule, ppsz_property[i], NULL );
Gildas Bazin's avatar
Gildas Bazin committed
747
        }
748
        else if( !strcmp( ppsz_property[i], "append" ) )
Gildas Bazin's avatar
Gildas Bazin committed
749
        {
750 751 752 753
            char *psz_line;
            int j;
            /* Beware: everything behind append is considered as
             * command line */
Rémi Denis-Courmont's avatar
Rémi Denis-Courmont committed
754

755 756
            if( ++i >= i_property )
                break;
757

758 759 760 761 762 763 764
            psz_line = strdup( ppsz_property[i] );
            for( j = i+1; j < i_property; j++ )
            {
                psz_line = realloc( psz_line, strlen(psz_line) + strlen(ppsz_property[j]) + 1 + 1 );
                strcat( psz_line, " " );
                strcat( psz_line, ppsz_property[j] );
            }
Rémi Denis-Courmont's avatar
Rémi Denis-Courmont committed
765

766 767 768 769 770 771 772 773
            vlm_ScheduleSetup( p_schedule, "append", psz_line );
            break;
        }
        else
        {
            if( i + 1 >= i_property )
            {
                if( b_new )
774
                    vlm_ScheduleDelete( p_vlm, p_schedule );
775 776
                return ExecuteSyntaxError( psz_cmd, pp_status );
            }
Gildas Bazin's avatar
Gildas Bazin committed
777

778 779 780 781
            vlm_ScheduleSetup( p_schedule, ppsz_property[i], ppsz_property[i+1] );
            i++;
        }
    }
782
    *pp_status = vlm_MessageNew( psz_cmd, vlm_NULL );
783 784
    return VLC_SUCCESS;
}
Gildas Bazin's avatar
Gildas Bazin committed
785

786 787 788 789 790 791 792
static int ExecuteMediaProperty( vlm_t *p_vlm, int64_t id, vlc_bool_t b_new,
                                 const int i_property, char *ppsz_property[], vlm_message_t **pp_status )
{
    const char *psz_cmd = b_new ? "new" : "setup";
    vlm_media_t *p_cfg = NULL;
    int i_result;
    int i;
Gildas Bazin's avatar
Gildas Bazin committed
793

794 795
#undef ERROR
#undef MISSING
796 797 798
#define ERROR( txt ) do { *pp_status = vlm_MessageNew( psz_cmd, txt); goto error; } while(0)
    if( vlm_ControlInternal( p_vlm, VLM_GET_MEDIA, id, &p_cfg ) )
        ERROR( "unknown media" );
Gildas Bazin's avatar
Gildas Bazin committed
799

800 801 802 803 804 805 806 807 808 809 810
#define MISSING(cmd) do { if( !psz_value ) ERROR( "missing argument for " cmd ); } while(0)
    for( i = 0; i < i_property; i++ )
    {
        const char *psz_option = ppsz_property[i];
        const char *psz_value = i+1 < i_property ? ppsz_property[i+1] :  NULL;

        if( !strcmp( psz_option, "enabled" ) )
        {
            p_cfg->b_enabled = VLC_TRUE;
        }
        else if( !strcmp( psz_option, "disabled" ) )
811
        {
812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828
            p_cfg->b_enabled = VLC_FALSE;
        }
        else if( !strcmp( psz_option, "input" ) )
        {
            MISSING( "input" );
            TAB_APPEND( p_cfg->i_input, p_cfg->ppsz_input, strdup(psz_value) );
            i++;
        }
        else if( !strcmp( psz_option, "inputdel" ) && psz_value && !strcmp( psz_value, "all" ) )
        {
            while( p_cfg->i_input > 0 )
                TAB_REMOVE( p_cfg->i_input, p_cfg->ppsz_input, p_cfg->ppsz_input[0] );
            i++;
        }
        else if( !strcmp( psz_option, "inputdel" ) )
        {
            int j;
Rémi Denis-Courmont's avatar
Rémi Denis-Courmont committed
829

830 831 832
            MISSING( "inputdel" );

            for( j = 0; j < p_cfg->i_input; j++ )
Gildas Bazin's avatar
Gildas Bazin committed
833
            {
834
                if( !strcmp( p_cfg->ppsz_input[j], psz_value ) )
Gildas Bazin's avatar
Gildas Bazin committed
835
                {
836 837
                    TAB_REMOVE( p_cfg->i_input, p_cfg->ppsz_input, p_cfg->ppsz_input[j] );
                    break;
Gildas Bazin's avatar
Gildas Bazin committed
838 839
                }
            }
840
            i++;
841
        }
842 843 844
        else if( !strcmp( psz_option, "inputdeln" ) )
        {
            int i_index;
Gildas Bazin's avatar
Gildas Bazin committed
845

846
            MISSING( "inputdeln" );
847
 
848 849 850 851 852 853 854 855 856
            i_index = atoi( psz_value );
            if( i_index > 0 && i_index <= p_cfg->i_input )
                TAB_REMOVE( p_cfg->i_input, p_cfg->ppsz_input, p_cfg->ppsz_input[i_index-1] );
            i++;
        }
        else if( !strcmp( psz_option, "output" ) )
        {
            MISSING( "output" );

857
            free( p_cfg->psz_output );
858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885
            p_cfg->psz_output = *psz_value ? strdup( psz_value ) : NULL;
            i++;
        }
        else if( !strcmp( psz_option, "option" ) )
        {
            MISSING( "option" );

            TAB_APPEND( p_cfg->i_option, p_cfg->ppsz_option, strdup( psz_value ) );
            i++;
        }
        else if( !strcmp( psz_option, "loop" ) )
        {
            if( p_cfg->b_vod )
                ERROR( "invalid loop option for vod" );
            p_cfg->broadcast.b_loop = VLC_TRUE;
        }
        else if( !strcmp( psz_option, "unloop" ) )
        {
            if( p_cfg->b_vod )
                ERROR( "invalid unloop option for vod" );
            p_cfg->broadcast.b_loop = VLC_FALSE;
        }
        else if( !strcmp( psz_option, "mux" ) )
        {
            MISSING( "mux" );
            if( !p_cfg->b_vod )
                ERROR( "invalid mux option for broadcast" );

886
            free( p_cfg->vod.psz_mux );
887 888 889 890 891 892 893 894
            p_cfg->vod.psz_mux = *psz_value ? strdup( psz_value ) : NULL;
            i++;
        }
        else
        {
            fprintf( stderr, "PROP: name=%s unknown\n", psz_option );
            ERROR( "Wrong command syntax" );
        }
895
    }
896 897
#undef MISSING
#undef ERROR
898

899 900 901
    /* */
    i_result = vlm_ControlInternal( p_vlm, VLM_CHANGE_MEDIA, p_cfg );
    vlm_media_Delete( p_cfg );
Gildas Bazin's avatar
Gildas Bazin committed
902

903
    *pp_status = vlm_MessageNew( psz_cmd, vlm_NULL );
904
    return i_result;
905

Gildas Bazin's avatar
Gildas Bazin committed
906
error:
907 908 909 910 911 912
    if( p_cfg )
    {
        if( b_new )
            vlm_ControlInternal( p_vlm, VLM_DEL_MEDIA, p_cfg->id );
        vlm_media_Delete( p_cfg );
    }
Gildas Bazin's avatar
Gildas Bazin committed
913
    return VLC_EGENERIC;
914
}
Jean-Paul Saman's avatar
Jean-Paul Saman committed
915

916
static int ExecuteNew( vlm_t *p_vlm, const char *psz_name, const char *psz_type, const int i_property, char *ppsz_property[], vlm_message_t **pp_status )
917
{
918 919
    /* Check name */
    if( !strcmp( psz_name, "all" ) || !strcmp( psz_name, "media" ) || !strcmp( psz_name, "schedule" ) )
920
    {
921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938
        *pp_status = vlm_MessageNew( "new", "\"all\", \"media\" and \"schedule\" are reserved names" );
        return VLC_EGENERIC;
    }
    if( ExecuteIsMedia( p_vlm, psz_name ) || ExecuteIsSchedule( p_vlm, psz_name ) )
    {
        *pp_status = vlm_MessageNew( "new", "%s: Name already in use", psz_name );
        return VLC_EGENERIC;
    }
    /* */
    if( !strcmp( psz_type, "schedule" ) )
    {
        vlm_schedule_sys_t *p_schedule = vlm_ScheduleNew( p_vlm, psz_name );
        if( !p_schedule )
        {
            *pp_status = vlm_MessageNew( "new", "could not create schedule" );
            return VLC_EGENERIC;
        }
        return ExecuteScheduleProperty( p_vlm, p_schedule, VLC_TRUE, i_property, ppsz_property, pp_status );
939
    }
940 941 942 943
    else if( !strcmp( psz_type, "vod" ) || !strcmp( psz_type, "broadcast" ) )
    {
        vlm_media_t cfg;
        int64_t id;
944

945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962
        vlm_media_Init( &cfg );
        cfg.psz_name = strdup( psz_name );
        cfg.b_vod = !strcmp( psz_type, "vod" );

        if( vlm_ControlInternal( p_vlm, VLM_ADD_MEDIA, &cfg, &id ) )
        {
            vlm_media_Clean( &cfg );
            *pp_status = vlm_MessageNew( "new", "could not create media" );
            return VLC_EGENERIC;
        }
        vlm_media_Clean( &cfg );
        return ExecuteMediaProperty( p_vlm, id, VLC_TRUE, i_property, ppsz_property, pp_status );
    }
    else
    {
        *pp_status = vlm_MessageNew( "new", "%s: Choose between vod, broadcast or schedule", psz_type );
        return VLC_EGENERIC;
    }
963 964
}

965
static int ExecuteSetup( vlm_t *p_vlm