vlm.c 89.8 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

41 42
#ifdef HAVE_TIME_H
#   include <time.h>                                              /* ctime() */
43
#   include <sys/timeb.h>                                         /* ftime() */
44 45
#endif

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

56 57 58
/*****************************************************************************
 * Local prototypes.
 *****************************************************************************/
59 60
/* */
static int vlm_ControlInternal( vlm_t *, int, ... );
61

62 63 64
/* */
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 * );
65

66
static vlm_schedule_sys_t *vlm_ScheduleSearch( vlm_t *, const char * );
67

68 69
static char *Save( vlm_t * );
static int Load( vlm_t *, char * );
70

71
static int ExecuteCommand( vlm_t *, const char *, vlm_message_t ** );
72

73
static int Manage( vlc_object_t * );
74

75 76 77 78
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 );
79 80 81

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

82 83
/* */
static vlm_media_sys_t *vlm_MediaSearch( vlm_t *, const char *);
84

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

94
    /* Avoid multiple creation */
95 96
    if( var_Create( p_this->p_libvlc, "vlm_mutex", VLC_VAR_MUTEX ) ||
        var_Get( p_this->p_libvlc, "vlm_mutex", &lockval ) )
97 98
        return NULL;

99 100
    vlc_mutex_lock( lockval.p_address );

101 102
    p_vlm = vlc_object_find( p_this, VLC_OBJECT_VLM, FIND_ANYWHERE );
    if( p_vlm )
103
    {
104 105 106 107
        vlc_object_yield( p_vlm );
        vlc_mutex_unlock( lockval.p_address );
        return p_vlm;
    }
108

109
    msg_Dbg( p_this, "creating VLM" );
110

111 112 113 114 115
    p_vlm = vlc_object_create( p_this, VLC_OBJECT_VLM );
    if( !p_vlm )
    {
        vlc_mutex_unlock( lockval.p_address );
        return NULL;
116
    }
117 118

    vlc_mutex_init( p_this->p_libvlc, &p_vlm->lock );
119
    p_vlm->i_id = 1;
120 121 122
    TAB_INIT( p_vlm->i_media, p_vlm->media );
    TAB_INIT( p_vlm->i_schedule, p_vlm->schedule );
    p_vlm->i_vod = 0;
123
    p_vlm->p_vod = NULL;
124 125
    vlc_object_yield( p_vlm );
    vlc_object_attach( p_vlm, p_this->p_libvlc );
126

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

135 136
    /* Load our configuration file */
    psz_vlmconf = var_CreateGetString( p_vlm, "vlm-conf" );
137 138 139 140 141
    if( psz_vlmconf && *psz_vlmconf )
    {
        vlm_message_t *p_message = NULL;
        char *psz_buffer = NULL;

142
        msg_Dbg( p_this, "loading VLM configuration" );
143 144 145
        asprintf(&psz_buffer, "load %s", psz_vlmconf );
        if( psz_buffer )
        {
146 147
            msg_Dbg( p_this, psz_buffer );
            if( vlm_ExecuteCommand( p_vlm, psz_buffer, &p_message ) )
148
                msg_Warn( p_this, "error while loading the configuration file" );
149

150
            vlm_MessageDelete(p_message);
151 152
            free(psz_buffer);
        }
153 154
    }
    free(psz_vlmconf);
155

156 157 158
    vlc_mutex_unlock( lockval.p_address );

    return p_vlm;
159 160 161 162 163
}

/*****************************************************************************
 * vlm_Delete:
 *****************************************************************************/
Clément Stenac's avatar
Clément Stenac committed
164
void vlm_Delete( vlm_t *p_vlm )
165 166 167
{
    vlc_value_t lockval;

168
    var_Get( p_vlm->p_libvlc, "vlm_mutex", &lockval );
169 170
    vlc_mutex_lock( lockval.p_address );

Clément Stenac's avatar
Clément Stenac committed
171
    vlc_object_release( p_vlm );
172

173
    if( p_vlm->p_internals->i_refcount > 0 )
174 175 176 177 178
    {
        vlc_mutex_unlock( lockval.p_address );
        return;
    }

179
    vlc_object_kill( p_vlm );
Clément Stenac's avatar
Clément Stenac committed
180
    vlc_thread_join( p_vlm );
181

182 183
    vlc_object_detach( p_vlm );

184
    vlm_ControlInternal( p_vlm, VLM_CLEAR_MEDIAS );
185
    TAB_CLEAN( p_vlm->i_media, p_vlm->media );
186

187
    vlm_ControlInternal( p_vlm, VLM_CLEAR_SCHEDULES );
188
    TAB_CLEAN( p_vlm->schedule, p_vlm->schedule );
189

190 191
    vlc_mutex_destroy( &p_vlm->lock );

Clément Stenac's avatar
Clément Stenac committed
192
    vlc_object_destroy( p_vlm );
193 194 195 196 197 198
    vlc_mutex_unlock( lockval.p_address );
}

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

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

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

211 212

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

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

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

Gildas Bazin's avatar
Gildas Bazin committed
255

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

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

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

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

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

332

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

344 345 346
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
347

348 349 350 351 352 353 354 355 356 357
    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
358

359 360 361 362
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;
363

364 365
    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
366

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

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

398 399 400 401
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;
402

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

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

412 413 414 415 416 417
    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 );
418

419 420
    return VLC_SUCCESS;
}
421

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

443 444 445 446 447
    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") )
448
    {
449 450
        i_index = 1;
        psz_instance = ppsz_arg[0];
451

452 453 454 455 456
        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];
457

458 459
    if( i_index+1 < i_arg )
        psz_argument = ppsz_arg[i_index+1];
460

461 462
    p_media = vlm_MediaSearch( p_vlm, psz_name );
    assert( p_media );
463

464 465 466 467
    if( !strcmp( psz_control, "play" ) )
    {
        int i_input_index = 0;
        int i;
468

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

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

502 503 504 505
            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
506

507 508 509 510
                if( strstr( psz_argument, "ms" ) )
                    i_new_time =  1000 * (int64_t)atoi( psz_argument );
                else
                    i_new_time = 1000000 * (int64_t)atoi( psz_argument );
511

512 513 514 515 516 517 518 519 520 521 522 523 524 525
                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;
526

527 528 529
                if( b_relative )
                {
                    double d_position = 0.0;
530

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

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

571 572 573 574 575
            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 );
576 577 578 579

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

596
    if( i_result )
Gildas Bazin's avatar
Gildas Bazin committed
597
    {
598 599 600 601 602 603
        *pp_status = vlm_MessageNew( "control", "unknown error" );
        return VLC_SUCCESS;
    }
    *pp_status = vlm_MessageNew( "control", NULL );
    return VLC_SUCCESS;
}
604

605 606 607
static int ExecuteExport( vlm_t *p_vlm, vlm_message_t **pp_status )
{
    char *psz_export = Save( p_vlm );
608

609 610 611 612
    *pp_status = vlm_MessageNew( "export", psz_export );
    free( psz_export );
    return VLC_SUCCESS;
}
613

614 615 616 617
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
618

619 620
    if( !f )
        goto error;
621

622 623 624 625 626 627 628 629 630
    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 );
631

632 633 634 635 636 637 638
    *pp_status = vlm_MessageNew( "save", NULL );
    return VLC_SUCCESS;

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

640 641 642 643 644
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
645

646 647 648 649
    if( !p_stream )
    {
        *pp_status = vlm_MessageNew( "load", "Unable to load from file" );
        return VLC_EGENERIC;
650
    }
Gildas Bazin's avatar
Gildas Bazin committed
651

652 653
    /* FIXME needed ? */
    if( stream_Seek( p_stream, 0 ) != 0 )
654
    {
655
        stream_Delete( p_stream );
656

657 658
        *pp_status = vlm_MessageNew( "load", "Read file error" );
        return VLC_EGENERIC;
659
    }
Gildas Bazin's avatar
Gildas Bazin committed
660

661
    i_size = stream_Size( p_stream );
662

663 664 665 666
    psz_buffer = malloc( i_size + 1 );
    if( !psz_buffer )
    {
        stream_Delete( p_stream );
667

668 669
        *pp_status = vlm_MessageNew( "load", "Read file error" );
        return VLC_EGENERIC;
670 671
    }

672 673
    stream_Read( p_stream, psz_buffer, i_size );
    psz_buffer[i_size] = '\0';
674

675
    stream_Delete( p_stream );
Gildas Bazin's avatar
Gildas Bazin committed
676

677
    if( Load( p_vlm, psz_buffer ) )
Gildas Bazin's avatar
Gildas Bazin committed
678
    {
679 680 681 682
        free( psz_buffer );

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

685
    free( psz_buffer );
Gildas Bazin's avatar
Gildas Bazin committed
686

687 688 689
    *pp_status = vlm_MessageNew( "load", NULL );
    return VLC_SUCCESS;
}
Gildas Bazin's avatar
Gildas Bazin committed
690

691 692 693 694 695
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
696

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

711 712
            if( ++i >= i_property )
                break;
713

714 715 716 717 718 719 720
            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
721

722 723 724 725 726 727 728 729 730 731 732
            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
733

734 735 736 737 738 739 740
            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
741

742 743 744 745 746 747 748
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
749

750 751
#undef ERROR
#undef MISSING
752 753 754
#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
755

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

786 787 788
            MISSING( "inputdel" );

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

802
            MISSING( "inputdeln" );
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 849 850 851 852
            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" );
        }
853
    }
854 855
#undef MISSING
#undef ERROR
856

857 858 859
    /* */
    i_result = vlm_ControlInternal( p_vlm, VLM_CHANGE_MEDIA, p_cfg );
    vlm_media_Delete( p_cfg );
Gildas Bazin's avatar
Gildas Bazin committed
860

861 862
    *pp_status = vlm_MessageNew( psz_cmd, NULL );
    return i_result;
863

Gildas Bazin's avatar
Gildas Bazin committed
864
error:
865 866 867 868 869 870
    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
871
    return VLC_EGENERIC;
872
}
Jean-Paul Saman's avatar
Jean-Paul Saman committed
873

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

903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920
        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;
    }
921 922
}

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

938 939 940
error:
    *pp_status = vlm_MessageNew( "setup", "%s unknown", psz_name );
    return VLC_EGENERIC;
941 942
}

943 944
static int ExecuteCommand( vlm_t *p_vlm, const char *psz_command,
                           vlm_message_t **pp_message )
945
{
946 947 948 949
    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;
950

951 952 953 954
    /* First, parse the line and cut it */
    while( *psz_command != '\0' )
    {
        const char *psz_temp;
955

956 957 958 959 960
        if(isspace (*psz_command))
        {
            psz_command++;
            continue;
        }
961

962 963 964 965 966 967
        /* support for comments */
        if( i_command == 0 && *psz_command == '#')
        {
            p_message = vlm_MessageNew( "", NULL );
            goto success;
        }
968

969
        psz_temp = FindCommandEnd( psz_command );
970

Laurent Aimar's avatar