vlm.c 89.9 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
#ifdef ENABLE_VLM

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

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

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

60 61 62
/*****************************************************************************
 * Local prototypes.
 *****************************************************************************/
63 64
/* */
static int vlm_ControlInternal( vlm_t *, int, ... );
65

66 67 68
/* */
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 * );
69

70
static vlm_schedule_sys_t *vlm_ScheduleSearch( vlm_t *, const char * );
71

72 73
static char *Save( vlm_t * );
static int Load( vlm_t *, char * );
74

75
static int ExecuteCommand( vlm_t *, const char *, vlm_message_t ** );
76

77
static int Manage( vlc_object_t * );
78

79 80 81 82
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 );
83 84 85

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

86 87
/* */
static vlm_media_sys_t *vlm_MediaSearch( vlm_t *, const char *);
88

89 90 91 92 93 94
/*****************************************************************************
 * vlm_New:
 *****************************************************************************/
vlm_t *__vlm_New ( vlc_object_t *p_this )
{
    vlc_value_t lockval;
Clément Stenac's avatar
Clément Stenac committed
95
    vlm_t *p_vlm = NULL;
96
    char *psz_vlmconf;
97

98
    /* Avoid multiple creation */
99 100
    if( var_Create( p_this->p_libvlc, "vlm_mutex", VLC_VAR_MUTEX ) ||
        var_Get( p_this->p_libvlc, "vlm_mutex", &lockval ) )
101 102
        return NULL;

103 104
    vlc_mutex_lock( lockval.p_address );

105 106
    p_vlm = vlc_object_find( p_this, VLC_OBJECT_VLM, FIND_ANYWHERE );
    if( p_vlm )
107
    {
108 109 110 111
        vlc_object_yield( p_vlm );
        vlc_mutex_unlock( lockval.p_address );
        return p_vlm;
    }
112

113
    msg_Dbg( p_this, "creating VLM" );
114

115 116 117 118 119
    p_vlm = vlc_object_create( p_this, VLC_OBJECT_VLM );
    if( !p_vlm )
    {
        vlc_mutex_unlock( lockval.p_address );
        return NULL;
120
    }
121 122

    vlc_mutex_init( p_this->p_libvlc, &p_vlm->lock );
123
    p_vlm->i_id = 1;
124 125 126
    TAB_INIT( p_vlm->i_media, p_vlm->media );
    TAB_INIT( p_vlm->i_schedule, p_vlm->schedule );
    p_vlm->i_vod = 0;
127
    p_vlm->p_vod = NULL;
128 129
    vlc_object_yield( p_vlm );
    vlc_object_attach( p_vlm, p_this->p_libvlc );
130

Clément Stenac's avatar
Clément Stenac committed
131
    if( vlc_thread_create( p_vlm, "vlm thread",
132 133
                           Manage, VLC_THREAD_PRIORITY_LOW, VLC_FALSE ) )
    {
Clément Stenac's avatar
Clément Stenac committed
134 135
        vlc_mutex_destroy( &p_vlm->lock );
        vlc_object_destroy( p_vlm );
136 137
        return NULL;
    }
138

139 140
    /* Load our configuration file */
    psz_vlmconf = var_CreateGetString( p_vlm, "vlm-conf" );
141 142 143 144 145
    if( psz_vlmconf && *psz_vlmconf )
    {
        vlm_message_t *p_message = NULL;
        char *psz_buffer = NULL;

146
        msg_Dbg( p_this, "loading VLM configuration" );
147 148 149
        asprintf(&psz_buffer, "load %s", psz_vlmconf );
        if( psz_buffer )
        {
150 151
            msg_Dbg( p_this, psz_buffer );
            if( vlm_ExecuteCommand( p_vlm, psz_buffer, &p_message ) )
152
                msg_Warn( p_this, "error while loading the configuration file" );
153

154
            vlm_MessageDelete(p_message);
155 156
            free(psz_buffer);
        }
157 158
    }
    free(psz_vlmconf);
159

160 161 162
    vlc_mutex_unlock( lockval.p_address );

    return p_vlm;
163 164 165 166 167
}

/*****************************************************************************
 * vlm_Delete:
 *****************************************************************************/
Clément Stenac's avatar
Clément Stenac committed
168
void vlm_Delete( vlm_t *p_vlm )
169 170 171
{
    vlc_value_t lockval;

172
    var_Get( p_vlm->p_libvlc, "vlm_mutex", &lockval );
173 174
    vlc_mutex_lock( lockval.p_address );

Clément Stenac's avatar
Clément Stenac committed
175
    vlc_object_release( p_vlm );
176

177
    if( p_vlm->p_internals->i_refcount > 0 )
178 179 180 181 182
    {
        vlc_mutex_unlock( lockval.p_address );
        return;
    }

183
    vlc_object_kill( p_vlm );
Clément Stenac's avatar
Clément Stenac committed
184
    vlc_thread_join( p_vlm );
185

186 187
    vlc_object_detach( 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 195
    vlc_mutex_destroy( &p_vlm->lock );

Clément Stenac's avatar
Clément Stenac committed
196
    vlc_object_destroy( p_vlm );
197 198 199 200 201 202
    vlc_mutex_unlock( lockval.p_address );
}

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

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

Clément Stenac's avatar
Clément Stenac committed
212
    return i_result;
213 214
}

215 216

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

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

255 256 257
    // error (NULL) if we could not find a matching quote
    return quote ? NULL : psz_sent;
}
258

Gildas Bazin's avatar
Gildas Bazin committed
259

260
/**
261
 * Unescape a nul-terminated string.
262 263 264 265 266 267 268
 * 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.
 */
269
static int Unescape( char *out, const char *in )
270
{
271
    char c, quote = 0;
272

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

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

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

    *out = '\0';
    return 0;
334 335
}

336

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

348 349 350
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
351

352 353 354 355 356 357 358 359 360 361
    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
362

363 364 365 366
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;
367

368 369
    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
370

371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396
    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;
    }
397

398 399 400
    *pp_status = vlm_MessageNew( "del", NULL );
    return VLC_SUCCESS;
}
401

402 403 404 405
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;
406

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

413 414
    p_media = vlm_MediaSearch( p_vlm, psz_name );
    p_schedule = vlm_ScheduleSearch( p_vlm, psz_name );
415

416 417 418 419 420 421
    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 );
422

423 424
    return VLC_SUCCESS;
}
425

426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441
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 ) )
442
    {
443 444
        *pp_status = vlm_MessageNew( "control", "%s: media unknown", psz_name );
        return VLC_EGENERIC;
445 446
    }

447 448 449 450 451
    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") )
452
    {
453 454
        i_index = 1;
        psz_instance = ppsz_arg[0];
455

456 457 458 459 460
        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];
461

462 463
    if( i_index+1 < i_arg )
        psz_argument = ppsz_arg[i_index+1];
464

465 466
    p_media = vlm_MediaSearch( p_vlm, psz_name );
    assert( p_media );
467

468 469 470 471
    if( !strcmp( psz_control, "play" ) )
    {
        int i_input_index = 0;
        int i;
472

473
        if( ( psz_argument && sscanf(psz_argument, "%d", &i) == 1 ) && i > 0 && i-1 < p_media->cfg.i_input )
474
        {
475
            i_input_index = i-1;
476 477 478 479 480 481 482 483 484 485 486 487 488 489
        }
        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;
                }
            }
        }
490

491 492
        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
493
        else
494
            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
495
    }
496
    else if( !strcmp( psz_control, "seek" ) )
Gildas Bazin's avatar
Gildas Bazin committed
497
    {
498 499 500 501 502 503 504
        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
505

506 507 508 509
            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
510

511 512 513 514
                if( strstr( psz_argument, "ms" ) )
                    i_new_time =  1000 * (int64_t)atoi( psz_argument );
                else
                    i_new_time = 1000000 * (int64_t)atoi( psz_argument );
515

516 517 518 519 520 521 522 523 524 525 526 527 528 529
                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;
530

531 532 533
                if( b_relative )
                {
                    double d_position = 0.0;
534

535 536 537 538 539 540 541 542 543
                    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
544
        }
545
        else
Gildas Bazin's avatar
Gildas Bazin committed
546
        {
547
            i_result = VLC_EGENERIC;
Gildas Bazin's avatar
Gildas Bazin committed
548
        }
549 550 551 552
    }
    else if( !strcmp( psz_control, "rewind" ) )
    {
        if( psz_argument )
Gildas Bazin's avatar
Gildas Bazin committed
553
        {
554 555
            const double d_scale = i18n_atof( psz_argument );
            double d_position;
Gildas Bazin's avatar
Gildas Bazin committed
556

557 558 559 560 561
            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 );
562 563 564
        }
        else
        {
565
            i_result = VLC_EGENERIC;
566 567
        }
    }
568
    else if( !strcmp( psz_control, "forward" ) )
569
    {
570
        if( psz_argument )
571
        {
572 573
            const double d_scale = i18n_atof( psz_argument );
            double d_position;
574

575 576 577 578 579
            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 );
580 581 582 583

        }
        else
        {
584
            i_result = VLC_EGENERIC;
585 586
        }
    }
587
    else if( !strcmp( psz_control, "stop" ) )
Gildas Bazin's avatar
Gildas Bazin committed
588
    {
589 590 591 592 593 594 595 596 597
        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
598
    }
599

600
    if( i_result )
Gildas Bazin's avatar
Gildas Bazin committed
601
    {
602 603 604 605 606 607
        *pp_status = vlm_MessageNew( "control", "unknown error" );
        return VLC_SUCCESS;
    }
    *pp_status = vlm_MessageNew( "control", NULL );
    return VLC_SUCCESS;
}
608

609 610 611
static int ExecuteExport( vlm_t *p_vlm, vlm_message_t **pp_status )
{
    char *psz_export = Save( p_vlm );
612

613 614 615 616
    *pp_status = vlm_MessageNew( "export", psz_export );
    free( psz_export );
    return VLC_SUCCESS;
}
617

618 619 620 621
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
622

623 624
    if( !f )
        goto error;
625

626 627 628 629 630 631 632 633 634
    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 );
635

636 637 638 639 640 641 642
    *pp_status = vlm_MessageNew( "save", NULL );
    return VLC_SUCCESS;

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

644 645 646 647 648
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
649

650 651 652 653
    if( !p_stream )
    {
        *pp_status = vlm_MessageNew( "load", "Unable to load from file" );
        return VLC_EGENERIC;
654
    }
Gildas Bazin's avatar
Gildas Bazin committed
655

656 657
    /* FIXME needed ? */
    if( stream_Seek( p_stream, 0 ) != 0 )
658
    {
659
        stream_Delete( p_stream );
660

661 662
        *pp_status = vlm_MessageNew( "load", "Read file error" );
        return VLC_EGENERIC;
663
    }
Gildas Bazin's avatar
Gildas Bazin committed
664

665
    i_size = stream_Size( p_stream );
666

667 668 669 670
    psz_buffer = malloc( i_size + 1 );
    if( !psz_buffer )
    {
        stream_Delete( p_stream );
671

672 673
        *pp_status = vlm_MessageNew( "load", "Read file error" );
        return VLC_EGENERIC;
674 675
    }

676 677
    stream_Read( p_stream, psz_buffer, i_size );
    psz_buffer[i_size] = '\0';
678

679
    stream_Delete( p_stream );
Gildas Bazin's avatar
Gildas Bazin committed
680

681
    if( Load( p_vlm, psz_buffer ) )
Gildas Bazin's avatar
Gildas Bazin committed
682
    {
683 684 685 686
        free( psz_buffer );

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

689
    free( psz_buffer );
Gildas Bazin's avatar
Gildas Bazin committed
690

691 692 693
    *pp_status = vlm_MessageNew( "load", NULL );
    return VLC_SUCCESS;
}
Gildas Bazin's avatar
Gildas Bazin committed
694

695 696 697 698 699
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
700

701 702 703 704
    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
705
        {
706
            vlm_ScheduleSetup( p_schedule, ppsz_property[i], NULL );
Gildas Bazin's avatar
Gildas Bazin committed
707
        }
708
        else if( !strcmp( ppsz_property[i], "append" ) )
Gildas Bazin's avatar
Gildas Bazin committed
709
        {
710 711 712 713
            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
714

715 716
            if( ++i >= i_property )
                break;
717

718 719 720 721 722 723 724
            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
725

726 727 728 729 730 731 732 733 734 735 736
            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
737

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

746 747 748 749 750 751 752
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
753

754 755
#undef ERROR
#undef MISSING
756 757 758
#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
759

760 761 762 763 764 765 766 767 768 769 770
#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" ) )
771
        {
772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788
            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
789

790 791 792
            MISSING( "inputdel" );

            for( j = 0; j < p_cfg->i_input; j++ )
Gildas Bazin's avatar
Gildas Bazin committed
793
            {
794
                if( !strcmp( p_cfg->ppsz_input[j], psz_value ) )
Gildas Bazin's avatar
Gildas Bazin committed
795
                {
796 797
                    TAB_REMOVE( p_cfg->i_input, p_cfg->ppsz_input, p_cfg->ppsz_input[j] );
                    break;
Gildas Bazin's avatar
Gildas Bazin committed
798 799
                }
            }
800
            i++;
801
        }
802 803 804
        else if( !strcmp( psz_option, "inputdeln" ) )
        {
            int i_index;
Gildas Bazin's avatar
Gildas Bazin committed
805

806
            MISSING( "inputdeln" );
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 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" );

            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" );
        }
857
    }
858 859
#undef MISSING
#undef ERROR
860

861 862 863
    /* */
    i_result = vlm_ControlInternal( p_vlm, VLM_CHANGE_MEDIA, p_cfg );
    vlm_media_Delete( p_cfg );
Gildas Bazin's avatar
Gildas Bazin committed
864

865 866
    *pp_status = vlm_MessageNew( psz_cmd, NULL );
    return i_result;
867

Gildas Bazin's avatar
Gildas Bazin committed
868
error:
869 870 871 872 873 874
    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
875
    return VLC_EGENERIC;
876
}
Jean-Paul Saman's avatar
Jean-Paul Saman committed
877

878
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 )
879
{
880 881
    /* Check name */
    if( !strcmp( psz_name, "all" ) || !strcmp( psz_name, "media" ) || !strcmp( psz_name, "schedule" ) )
882
    {
883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900
        *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 );
901
    }
902 903 904 905
    else if( !strcmp( psz_type, "vod" ) || !strcmp( psz_type, "broadcast" ) )
    {
        vlm_media_t cfg;
        int64_t id;
906

907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924
        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;
    }
925 926
}

927
static int ExecuteSetup( vlm_t *p_vlm, const char *psz_name, const int i_property, char *ppsz_property[], vlm_message_t **pp_status )
928
{
929
    if( ExecuteIsSchedule( p_vlm, psz_name ) )
930
    {
931 932 933 934 935 936 937 938 939
        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 );
940 941
    }

942 943 944
error:
    *pp_status = vlm_MessageNew( "setup", "%s unknown", psz_name );
    return VLC_EGENERIC;
945 946
}

947 948
static int ExecuteCommand( vlm_t *p_vlm, const char *psz_command,
                           vlm_message_t **pp_message )
949
{
950 951 952 953
    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;
954

955 956 957 958
    /* First, parse the line and cut it */
    while( *psz_command != '\0' )
    {
        const char *psz_temp;
959

960 961 962 963 964
        if(isspace (*psz_command))
        {
            psz_command++;
            continue;
        }
965

966 967 968 969 970 971
        /* support for comments */
        if( i_command == 0 && *psz_command == '#')
        {
            p_message = vlm_MessageNew( "", NULL );
            goto success;
        }
972