3 * Copyright (C) 2002-2003 Ushodaya Enterprises Limited
4 * Author: Dan Dennedy <dan@dennedy.org>
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software Foundation,
18 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
24 #include <sys/types.h>
32 #include "miracle_unit.h"
33 #include "miracle_commands.h"
34 #include "miracle_log.h"
36 static miracle_unit g_units
[MAX_UNITS
];
39 /** Return the miracle_unit given a numeric index.
42 miracle_unit
miracle_get_unit( int n
)
50 /** Destroy the miracle_unit given its numeric index.
53 void miracle_delete_unit( int n
)
57 miracle_unit unit
= miracle_get_unit(n
);
60 miracle_unit_close( unit
);
62 miracle_log( LOG_NOTICE
, "Deleted unit U%d.", n
);
67 /** Destroy all allocated units on the server.
70 void miracle_delete_all_units( void )
73 for (i
= 0; i
< MAX_UNITS
; i
++)
75 if ( miracle_get_unit(i
) != NULL
)
77 miracle_unit_close( miracle_get_unit(i
) );
78 miracle_log( LOG_NOTICE
, "Deleted unit U%d.", i
);
83 /** Add a DV virtual vtr to the server.
85 response_codes
miracle_add_unit( command_argument cmd_arg
)
88 for ( i
= 0; i
< MAX_UNITS
; i
++ )
89 if ( g_units
[ i
] == NULL
)
94 char *arg
= cmd_arg
->argument
;
95 g_units
[ i
] = miracle_unit_init( i
, arg
);
96 if ( g_units
[ i
] != NULL
)
98 miracle_unit_set_notifier( g_units
[ i
], valerie_parser_get_notifier( cmd_arg
->parser
), cmd_arg
->root_dir
);
99 valerie_response_printf( cmd_arg
->response
, 10, "U%1d\n\n", i
);
101 return g_units
[ i
] != NULL ? RESPONSE_SUCCESS_N
: RESPONSE_ERROR
;
103 valerie_response_printf( cmd_arg
->response
, 1024, "no more units can be created\n\n" );
105 return RESPONSE_ERROR
;
109 /** List all AV/C nodes on the bus.
111 response_codes
miracle_list_nodes( command_argument cmd_arg
)
113 response_codes error
= RESPONSE_SUCCESS_N
;
118 /** List units already added to server.
120 response_codes
miracle_list_units( command_argument cmd_arg
)
122 response_codes error
= RESPONSE_SUCCESS_N
;
125 for ( i
= 0; i
< MAX_UNITS
; i
++ )
127 miracle_unit unit
= miracle_get_unit( i
);
130 mlt_properties properties
= unit
->properties
;
131 char *constructor
= mlt_properties_get( properties
, "constructor" );
132 int node
= mlt_properties_get_int( properties
, "node" );
133 int online
= !mlt_properties_get_int( properties
, "offline" );
134 valerie_response_printf( cmd_arg
->response
, 1024, "U%d %02d %s %d\n", i
, node
, constructor
, online
);
137 valerie_response_printf( cmd_arg
->response
, 1024, "\n" );
142 static int filter_files( const struct dirent
*de
)
144 return de
->d_name
[ 0 ] != '.';
147 /** List clips in a directory.
149 response_codes
miracle_list_clips( command_argument cmd_arg
)
151 response_codes error
= RESPONSE_BAD_FILE
;
152 const char *dir_name
= (const char*) cmd_arg
->argument
;
155 struct dirent
**de
= NULL
;
158 snprintf( fullname
, 1023, "%s%s", cmd_arg
->root_dir
, dir_name
);
159 dir
= opendir( fullname
);
163 error
= RESPONSE_SUCCESS_N
;
164 n
= scandir( fullname
, &de
, filter_files
, alphasort
);
165 for (i
= 0; i
< n
; i
++ )
167 snprintf( fullname
, 1023, "%s%s/%s", cmd_arg
->root_dir
, dir_name
, de
[i
]->d_name
);
168 if ( stat( fullname
, &info
) == 0 && S_ISDIR( info
.st_mode
) )
169 valerie_response_printf( cmd_arg
->response
, 1024, "\"%s/\"\n", de
[i
]->d_name
);
171 for (i
= 0; i
< n
; i
++ )
173 snprintf( fullname
, 1023, "%s%s/%s", cmd_arg
->root_dir
, dir_name
, de
[i
]->d_name
);
174 if ( lstat( fullname
, &info
) == 0 &&
175 ( S_ISREG( info
.st_mode
) || S_ISLNK( info
.st_mode
) || ( strstr( fullname
, ".clip" ) && info
.st_mode
| S_IXUSR
) ) )
176 valerie_response_printf( cmd_arg
->response
, 1024, "\"%s\" %llu\n", de
[i
]->d_name
, (unsigned long long) info
.st_size
);
181 valerie_response_write( cmd_arg
->response
, "\n", 1 );
187 /** Set a server configuration property.
190 response_codes
miracle_set_global_property( command_argument cmd_arg
)
192 char *key
= (char*) cmd_arg
->argument
;
195 value
= strchr( key
, '=' );
197 return RESPONSE_OUT_OF_RANGE
;
200 miracle_log( LOG_DEBUG
, "SET %s = %s", key
, value
);
202 if ( strncasecmp( key
, "root", 1024) == 0 )
204 int len
= strlen(value
);
207 /* stop all units and unload clips */
208 for (i
= 0; i
< MAX_UNITS
; i
++)
210 if (g_units
[i
] != NULL
)
211 miracle_unit_terminate( g_units
[i
] );
214 /* set the property */
215 strncpy( cmd_arg
->root_dir
, value
, 1023 );
217 /* add a trailing slash if needed */
218 if ( len
&& cmd_arg
->root_dir
[ len
- 1 ] != '/')
220 cmd_arg
->root_dir
[ len
] = '/';
221 cmd_arg
->root_dir
[ len
+ 1 ] = '\0';
225 return RESPONSE_OUT_OF_RANGE
;
227 return RESPONSE_SUCCESS
;
230 /** Get a server configuration property.
233 response_codes
miracle_get_global_property( command_argument cmd_arg
)
235 char *key
= (char*) cmd_arg
->argument
;
237 if ( strncasecmp( key
, "root", 1024) == 0 )
239 valerie_response_write( cmd_arg
->response
, cmd_arg
->root_dir
, strlen(cmd_arg
->root_dir
) );
240 return RESPONSE_SUCCESS_1
;
243 return RESPONSE_OUT_OF_RANGE
;
245 return RESPONSE_SUCCESS
;