vlm.c 89.7 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
#include <vlc/vlc.h>

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

35 36
#ifdef ENABLE_VLM

37 38
#ifdef HAVE_TIME_H
#   include <time.h>                                              /* ctime() */
39
#   include <sys/timeb.h>                                         /* ftime() */
40 41
#endif

Clément Stenac's avatar
Clément Stenac committed
42
#include <vlc_input.h>
Rémi Denis-Courmont's avatar
Rémi Denis-Courmont committed
43
#include "input_internal.h"
Clément Stenac's avatar
Clément Stenac committed
44
#include <vlc_stream.h>
45
#include <vlc_vlm.h>
46
#include "vlm_internal.h"
47
#include <vlc_vod.h>
Clément Stenac's avatar
Clément Stenac committed
48
#include <vlc_charset.h>
49 50
#include <vlc_sout.h>
#include "../stream_output/stream_output.h"
51

52 53 54
/*****************************************************************************
 * Local prototypes.
 *****************************************************************************/
55 56
/* */
static int vlm_ControlInternal( vlm_t *, int, ... );
57

58 59 60
/* */
static vlm_message_t *vlm_Show( vlm_t *, vlm_media_sys_t *, vlm_schedule_sys_t *, const char * );
static vlm_message_t *vlm_Help( vlm_t *, char * );
61

62
static vlm_schedule_sys_t *vlm_ScheduleSearch( vlm_t *, const char * );
63

64 65
static char *Save( vlm_t * );
static int Load( vlm_t *, char * );
66

67
static int ExecuteCommand( vlm_t *, const char *, vlm_message_t ** );
68

69
static int Manage( vlc_object_t * );
70

71 72 73 74
static vlm_schedule_sys_t *vlm_ScheduleNew( vlm_t *vlm, const char *psz_name );
static void vlm_ScheduleDelete( vlm_t *vlm, vlm_schedule_sys_t *sched, const char *psz_name );
static int vlm_ScheduleSetup( vlm_schedule_sys_t *schedule, const char *psz_cmd,
                              const char *psz_value );
75 76 77

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

78 79
/* */
static vlm_media_sys_t *vlm_MediaSearch( vlm_t *, const char *);
80

81 82 83 84 85 86
/*****************************************************************************
 * vlm_New:
 *****************************************************************************/
vlm_t *__vlm_New ( vlc_object_t *p_this )
{
    vlc_value_t lockval;
Clément Stenac's avatar
Clément Stenac committed
87
    vlm_t *p_vlm = NULL;
88
    char *psz_vlmconf;
89

90
    /* Avoid multiple creation */
91 92
    if( var_Create( p_this->p_libvlc, "vlm_mutex", VLC_VAR_MUTEX ) ||
        var_Get( p_this->p_libvlc, "vlm_mutex", &lockval ) )
93 94
        return NULL;

95 96
    vlc_mutex_lock( lockval.p_address );

97 98
    p_vlm = vlc_object_find( p_this, VLC_OBJECT_VLM, FIND_ANYWHERE );
    if( p_vlm )
99
    {
100 101 102 103
        vlc_object_yield( p_vlm );
        vlc_mutex_unlock( lockval.p_address );
        return p_vlm;
    }
104

105
    msg_Dbg( p_this, "creating VLM" );
106

107 108 109 110 111
    p_vlm = vlc_object_create( p_this, VLC_OBJECT_VLM );
    if( !p_vlm )
    {
        vlc_mutex_unlock( lockval.p_address );
        return NULL;
112
    }
113 114

    vlc_mutex_init( p_this->p_libvlc, &p_vlm->lock );
115
    p_vlm->i_id = 1;
116 117 118
    TAB_INIT( p_vlm->i_media, p_vlm->media );
    TAB_INIT( p_vlm->i_schedule, p_vlm->schedule );
    p_vlm->i_vod = 0;
119
    p_vlm->p_vod = NULL;
120 121
    vlc_object_yield( p_vlm );
    vlc_object_attach( p_vlm, p_this->p_libvlc );
122

Clément Stenac's avatar
Clément Stenac committed
123
    if( vlc_thread_create( p_vlm, "vlm thread",
124 125
                           Manage, VLC_THREAD_PRIORITY_LOW, VLC_FALSE ) )
    {
Clément Stenac's avatar
Clément Stenac committed
126 127
        vlc_mutex_destroy( &p_vlm->lock );
        vlc_object_destroy( p_vlm );
128 129
        return NULL;
    }
130

131 132
    /* Load our configuration file */
    psz_vlmconf = var_CreateGetString( p_vlm, "vlm-conf" );
133 134 135 136 137
    if( psz_vlmconf && *psz_vlmconf )
    {
        vlm_message_t *p_message = NULL;
        char *psz_buffer = NULL;

138
        msg_Dbg( p_this, "loading VLM configuration" );
139 140 141
        asprintf(&psz_buffer, "load %s", psz_vlmconf );
        if( psz_buffer )
        {
142 143
            msg_Dbg( p_this, psz_buffer );
            if( vlm_ExecuteCommand( p_vlm, psz_buffer, &p_message ) )
144
                msg_Warn( p_this, "error while loading the configuration file" );
145

146
            vlm_MessageDelete(p_message);
147 148
            free(psz_buffer);
        }
149 150
    }
    free(psz_vlmconf);
151

152 153 154
    vlc_mutex_unlock( lockval.p_address );

    return p_vlm;
155 156 157 158 159
}

/*****************************************************************************
 * vlm_Delete:
 *****************************************************************************/
Clément Stenac's avatar
Clément Stenac committed
160
void vlm_Delete( vlm_t *p_vlm )
161 162 163
{
    vlc_value_t lockval;

164
    var_Get( p_vlm->p_libvlc, "vlm_mutex", &lockval );
165 166
    vlc_mutex_lock( lockval.p_address );

Clément Stenac's avatar
Clément Stenac committed
167
    vlc_object_release( p_vlm );
168

169
    if( p_vlm->p_internals->i_refcount > 0 )
170 171 172 173 174
    {
        vlc_mutex_unlock( lockval.p_address );
        return;
    }

175
    vlc_object_kill( p_vlm );
Clément Stenac's avatar
Clément Stenac committed
176
    vlc_thread_join( p_vlm );
177

178 179
    vlc_object_detach( p_vlm );

180
    vlm_ControlInternal( p_vlm, VLM_CLEAR_MEDIAS );
181
    TAB_CLEAN( p_vlm->i_media, p_vlm->media );
182

183
    vlm_ControlInternal( p_vlm, VLM_CLEAR_SCHEDULES );
184
    TAB_CLEAN( p_vlm->schedule, p_vlm->schedule );
185

186 187
    vlc_mutex_destroy( &p_vlm->lock );

Clément Stenac's avatar
Clément Stenac committed
188
    vlc_object_destroy( p_vlm );
189 190 191 192 193 194
    vlc_mutex_unlock( lockval.p_address );
}

/*****************************************************************************
 * vlm_ExecuteCommand:
 *****************************************************************************/
195
int vlm_ExecuteCommand( vlm_t *p_vlm, const char *psz_command,
Clément Stenac's avatar
Clément Stenac committed
196
                        vlm_message_t **pp_message)
197
{
Clément Stenac's avatar
Clément Stenac committed
198
    int i_result;
199

Clément Stenac's avatar
Clément Stenac committed
200 201 202
    vlc_mutex_lock( &p_vlm->lock );
    i_result = ExecuteCommand( p_vlm, psz_command, pp_message );
    vlc_mutex_unlock( &p_vlm->lock );
203

Clément Stenac's avatar
Clément Stenac committed
204
    return i_result;
205 206
}

207 208

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

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

247 248 249
    // error (NULL) if we could not find a matching quote
    return quote ? NULL : psz_sent;
}
250

Gildas Bazin's avatar
Gildas Bazin committed
251

252
/**
253
 * Unescape a nul-terminated string.
254 255 256 257 258 259 260
 * 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.
 */
261
static int Unescape( char *out, const char *in )
262
{
263
    char c, quote = 0;
264

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

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

                    case '\0':   // should never happen
                        *out = '\0';
                        return -1;
                }
                /* None of the special cases - copy the backslash */
                *out++ = '\\';
319 320
            }
        }
321
        *out++ = c;
322
    }
323 324 325

    *out = '\0';
    return 0;
326 327
}

328

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

340 341 342
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
343

344 345 346 347 348 349 350 351 352 353
    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
354

355 356 357 358
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;
359

360 361
    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
362

363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388
    if( p_schedule != NULL )
    {
        vlm_ScheduleDelete( p_vlm, p_schedule, NULL );
    }
    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;
    }
389

390 391 392
    *pp_status = vlm_MessageNew( "del", NULL );
    return VLC_SUCCESS;
}
393

394 395 396 397
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;
398

399 400 401 402 403
    if( !psz_name )
    {
        *pp_status = vlm_Show( p_vlm, NULL, NULL, NULL );
        return VLC_SUCCESS;
    }
Antoine Cellerier's avatar
Antoine Cellerier committed
404

405 406
    p_media = vlm_MediaSearch( p_vlm, psz_name );
    p_schedule = vlm_ScheduleSearch( p_vlm, psz_name );
407

408 409 410 411 412 413
    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 );
414

415 416
    return VLC_SUCCESS;
}
417

418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433
static int ExecuteHelp( vlm_t *p_vlm, vlm_message_t **pp_status )
{
    *pp_status = vlm_Help( p_vlm, NULL );
    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 ) )
434
    {
435 436
        *pp_status = vlm_MessageNew( "control", "%s: media unknown", psz_name );
        return VLC_EGENERIC;
437 438
    }

439 440 441 442 443
    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") )
444
    {
445 446
        i_index = 1;
        psz_instance = ppsz_arg[0];
447

448 449 450 451 452
        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];
453

454 455
    if( i_index+1 < i_arg )
        psz_argument = ppsz_arg[i_index+1];
456

457 458
    p_media = vlm_MediaSearch( p_vlm, psz_name );
    assert( p_media );
459

460 461 462 463
    if( !strcmp( psz_control, "play" ) )
    {
        int i_input_index = 0;
        int i;
464

465
        if( ( psz_argument && sscanf(psz_argument, "%d", &i) == 1 ) && i > 0 && i-1 < p_media->cfg.i_input )
466
        {
467
            i_input_index = i-1;
468 469 470 471 472 473 474 475 476 477 478 479 480 481
        }
        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;
                }
            }
        }
482

483 484
        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
485
        else
486
            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
487
    }
488
    else if( !strcmp( psz_control, "seek" ) )
Gildas Bazin's avatar
Gildas Bazin committed
489
    {
490 491 492 493 494 495 496
        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
497

498 499 500 501
            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
502

503 504 505 506
                if( strstr( psz_argument, "ms" ) )
                    i_new_time =  1000 * (int64_t)atoi( psz_argument );
                else
                    i_new_time = 1000000 * (int64_t)atoi( psz_argument );
507

508 509 510 511 512 513 514 515 516 517 518 519 520 521
                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;
522

523 524 525
                if( b_relative )
                {
                    double d_position = 0.0;
526

527 528 529 530 531 532 533 534 535
                    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
536
        }
537
        else
Gildas Bazin's avatar
Gildas Bazin committed
538
        {
539
            i_result = VLC_EGENERIC;
Gildas Bazin's avatar
Gildas Bazin committed
540
        }
541 542 543 544
    }
    else if( !strcmp( psz_control, "rewind" ) )
    {
        if( psz_argument )
Gildas Bazin's avatar
Gildas Bazin committed
545
        {
546 547
            const double d_scale = i18n_atof( psz_argument );
            double d_position;
Gildas Bazin's avatar
Gildas Bazin committed
548

549 550 551 552 553
            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 );
554 555 556
        }
        else
        {
557
            i_result = VLC_EGENERIC;
558 559
        }
    }
560
    else if( !strcmp( psz_control, "forward" ) )
561
    {
562
        if( psz_argument )
563
        {
564 565
            const double d_scale = i18n_atof( psz_argument );
            double d_position;
566

567 568 569 570 571
            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 );
572 573 574 575

        }
        else
        {
576
            i_result = VLC_EGENERIC;
577 578
        }
    }
579
    else if( !strcmp( psz_control, "stop" ) )
Gildas Bazin's avatar
Gildas Bazin committed
580
    {
581 582 583 584 585 586 587 588 589
        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
590
    }
591

592
    if( i_result )
Gildas Bazin's avatar
Gildas Bazin committed
593
    {
594 595 596 597 598 599
        *pp_status = vlm_MessageNew( "control", "unknown error" );
        return VLC_SUCCESS;
    }
    *pp_status = vlm_MessageNew( "control", NULL );
    return VLC_SUCCESS;
}
600

601 602 603
static int ExecuteExport( vlm_t *p_vlm, vlm_message_t **pp_status )
{
    char *psz_export = Save( p_vlm );
604

605 606 607 608
    *pp_status = vlm_MessageNew( "export", psz_export );
    free( psz_export );
    return VLC_SUCCESS;
}
609

610 611 612 613
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
614

615 616
    if( !f )
        goto error;
617

618 619 620 621 622 623 624 625 626
    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 );
627

628 629 630 631 632 633 634
    *pp_status = vlm_MessageNew( "save", NULL );
    return VLC_SUCCESS;

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

636 637 638 639 640
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
641

642 643 644 645
    if( !p_stream )
    {
        *pp_status = vlm_MessageNew( "load", "Unable to load from file" );
        return VLC_EGENERIC;
646
    }
Gildas Bazin's avatar
Gildas Bazin committed
647

648 649
    /* FIXME needed ? */
    if( stream_Seek( p_stream, 0 ) != 0 )
650
    {
651
        stream_Delete( p_stream );
652

653 654
        *pp_status = vlm_MessageNew( "load", "Read file error" );
        return VLC_EGENERIC;
655
    }
Gildas Bazin's avatar
Gildas Bazin committed
656

657
    i_size = stream_Size( p_stream );
658

659 660 661 662
    psz_buffer = malloc( i_size + 1 );
    if( !psz_buffer )
    {
        stream_Delete( p_stream );
663

664 665
        *pp_status = vlm_MessageNew( "load", "Read file error" );
        return VLC_EGENERIC;
666 667
    }

668 669
    stream_Read( p_stream, psz_buffer, i_size );
    psz_buffer[i_size] = '\0';
670

671
    stream_Delete( p_stream );
Gildas Bazin's avatar
Gildas Bazin committed
672

673
    if( Load( p_vlm, psz_buffer ) )
Gildas Bazin's avatar
Gildas Bazin committed
674
    {
675 676 677 678
        free( psz_buffer );

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

681
    free( psz_buffer );
Gildas Bazin's avatar
Gildas Bazin committed
682

683 684 685
    *pp_status = vlm_MessageNew( "load", NULL );
    return VLC_SUCCESS;
}
Gildas Bazin's avatar
Gildas Bazin committed
686

687 688 689 690 691
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
692

693 694 695 696
    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
697
        {
698
            vlm_ScheduleSetup( p_schedule, ppsz_property[i], NULL );
Gildas Bazin's avatar
Gildas Bazin committed
699
        }
700
        else if( !strcmp( ppsz_property[i], "append" ) )
Gildas Bazin's avatar
Gildas Bazin committed
701
        {
702 703 704 705
            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
706

707 708
            if( ++i >= i_property )
                break;
709

710 711 712 713 714 715 716
            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
717

718 719 720 721 722 723 724 725 726 727 728
            vlm_ScheduleSetup( p_schedule, "append", psz_line );
            break;
        }
        else
        {
            if( i + 1 >= i_property )
            {
                if( b_new )
                    vlm_ScheduleDelete( p_vlm, p_schedule, NULL );
                return ExecuteSyntaxError( psz_cmd, pp_status );
            }
Gildas Bazin's avatar
Gildas Bazin committed
729

730 731 732 733 734 735 736
            vlm_ScheduleSetup( p_schedule, ppsz_property[i], ppsz_property[i+1] );
            i++;
        }
    }
    *pp_status = vlm_MessageNew( psz_cmd, NULL );
    return VLC_SUCCESS;
}
Gildas Bazin's avatar
Gildas Bazin committed
737

738 739 740 741 742 743 744
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
745

746 747
#undef ERROR
#undef MISSING
748 749 750
#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
751

752 753 754 755 756 757 758 759 760 761 762
#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" ) )
763
        {
764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780
            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
781

782 783 784
            MISSING( "inputdel" );

            for( j = 0; j < p_cfg->i_input; j++ )
Gildas Bazin's avatar
Gildas Bazin committed
785
            {
786
                if( !strcmp( p_cfg->ppsz_input[j], psz_value ) )
Gildas Bazin's avatar
Gildas Bazin committed
787
                {
788 789
                    TAB_REMOVE( p_cfg->i_input, p_cfg->ppsz_input, p_cfg->ppsz_input[j] );
                    break;
Gildas Bazin's avatar
Gildas Bazin committed
790 791
                }
            }
792
            i++;
793
        }
794 795 796
        else if( !strcmp( psz_option, "inputdeln" ) )
        {
            int i_index;
Gildas Bazin's avatar
Gildas Bazin committed
797

798
            MISSING( "inputdeln" );
799
 
800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848
            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" );

            if( p_cfg->psz_output != NULL )
                free( p_cfg->psz_output );
            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" );

            if( p_cfg->vod.psz_mux )
                free( p_cfg->vod.psz_mux );
            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" );
        }
849
    }
850 851
#undef MISSING
#undef ERROR
852

853 854 855
    /* */
    i_result = vlm_ControlInternal( p_vlm, VLM_CHANGE_MEDIA, p_cfg );
    vlm_media_Delete( p_cfg );
Gildas Bazin's avatar
Gildas Bazin committed
856

857 858
    *pp_status = vlm_MessageNew( psz_cmd, NULL );
    return i_result;
859

Gildas Bazin's avatar
Gildas Bazin committed
860
error:
861 862 863 864 865 866
    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
867
    return VLC_EGENERIC;
868
}
Jean-Paul Saman's avatar
Jean-Paul Saman committed
869

870
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 )
871
{
872 873
    /* Check name */
    if( !strcmp( psz_name, "all" ) || !strcmp( psz_name, "media" ) || !strcmp( psz_name, "schedule" ) )
874
    {
875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892
        *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 );
893
    }
894 895 896 897
    else if( !strcmp( psz_type, "vod" ) || !strcmp( psz_type, "broadcast" ) )
    {
        vlm_media_t cfg;
        int64_t id;
898

899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916
        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;
    }
917 918
}

919
static int ExecuteSetup( vlm_t *p_vlm, const char *psz_name, const int i_property, char *ppsz_property[], vlm_message_t **pp_status )
920
{
921
    if( ExecuteIsSchedule( p_vlm, psz_name ) )
922
    {
923 924 925 926 927 928 929 930 931
        vlm_schedule_sys_t *p_schedule = vlm_ScheduleSearch( p_vlm, psz_name );
        return ExecuteScheduleProperty( p_vlm, p_schedule, VLC_FALSE, i_property, ppsz_property, pp_status );
    }
    else if( ExecuteIsMedia( p_vlm, psz_name ) )
    {
        int64_t id;
        if( vlm_ControlInternal( p_vlm, VLM_GET_MEDIA_ID, psz_name, &id ) )
            goto error;
        return ExecuteMediaProperty( p_vlm, id, VLC_FALSE, i_property, ppsz_property, pp_status );
932 933
    }

934 935 936
error:
    *pp_status = vlm_MessageNew( "setup", "%s unknown", psz_name );
    return VLC_EGENERIC;
937 938
}

939 940
static int ExecuteCommand( vlm_t *p_vlm, const char *psz_command,
                           vlm_message_t **pp_message )
941
{
942 943 944 945
    size_t i_command = 0;
    char buf[strlen (psz_command) + 1], *psz_buf = buf;
    char *ppsz_command[3+sizeof (buf) / 2];
    vlm_message_t *p_message = NULL;
946

947 948 949 950
    /* First, parse the line and cut it */
    while( *psz_command != '\0' )
    {
        const char *psz_temp;
951

952 953 954 955 956
        if(isspace (*psz_command))
        {
            psz_command++;
            continue;
        }
957

958 959 960 961 962 963
        /* support for comments */
        if( i_command == 0 && *psz_command == '#')
        {
            p_message = vlm_MessageNew( "", NULL );
            goto success;
        }
964

965
        psz_temp = FindCommandEnd( psz_command );
966

967 968 969 970 971
        if( psz_temp == NULL )
        {
            p_message = vlm_MessageNew( "Incomplete command", psz_command );