]> git.sesse.net Git - casparcg/blob - protocol/amcp/AMCPCommandsImpl.cpp
Finished support for CHANNEL_GRID in 2.1.0
[casparcg] / protocol / amcp / AMCPCommandsImpl.cpp
1 /*
2 * Copyright (c) 2011 Sveriges Television AB <info@casparcg.com>
3 *
4 * This file is part of CasparCG (www.casparcg.com).
5 *
6 * CasparCG 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 3 of the License, or
9 * (at your option) any later version.
10 *
11 * CasparCG 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.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with CasparCG. If not, see <http://www.gnu.org/licenses/>.
18 *
19 * Author: Nicklas P Andersson
20 */
21
22 #include "../StdAfx.h"
23
24 #if defined(_MSC_VER)
25 #pragma warning (push, 1) // TODO: Legacy code, just disable warnings
26 #endif
27
28 #include "AMCPCommandsImpl.h"
29 #include "AMCPProtocolStrategy.h"
30
31 #include <common/env.h>
32
33 #include <common/log.h>
34 #include <common/param.h>
35 #include <common/diagnostics/graph.h>
36 #include <common/os/windows/current_version.h>
37 #include <common/os/windows/system_info.h>
38 #include <common/base64.h>
39
40 #include <core/producer/frame_producer.h>
41 #include <core/video_format.h>
42 #include <core/producer/transition/transition_producer.h>
43 #include <core/frame/frame_transform.h>
44 #include <core/producer/stage.h>
45 #include <core/producer/layer.h>
46 #include <core/mixer/mixer.h>
47 #include <core/consumer/output.h>
48 #include <core/thumbnail_generator.h>
49
50 #include <modules/reroute/producer/reroute_producer.h>
51 #include <modules/bluefish/bluefish.h>
52 #include <modules/decklink/decklink.h>
53 #include <modules/ffmpeg/ffmpeg.h>
54 #include <modules/flash/flash.h>
55 #include <modules/flash/util/swf.h>
56 #include <modules/flash/producer/flash_producer.h>
57 #include <modules/flash/producer/cg_proxy.h>
58 #include <modules/ffmpeg/producer/util/util.h>
59 #include <modules/image/image.h>
60 #include <modules/screen/screen.h>
61 #include <modules/reroute/producer/reroute_producer.h>
62
63 #include <algorithm>
64 #include <locale>
65 #include <fstream>
66 #include <memory>
67 #include <cctype>
68 #include <io.h>
69
70 #include <boost/date_time/posix_time/posix_time.hpp>
71 #include <boost/lexical_cast.hpp>
72 #include <boost/algorithm/string.hpp>
73 #include <boost/filesystem.hpp>
74 #include <boost/filesystem/fstream.hpp>
75 #include <boost/regex.hpp>
76 #include <boost/property_tree/xml_parser.hpp>
77 #include <boost/locale.hpp>
78 #include <boost/range/adaptor/transformed.hpp>
79 #include <boost/range/algorithm/copy.hpp>
80 #include <boost/archive/iterators/base64_from_binary.hpp>
81 #include <boost/archive/iterators/insert_linebreaks.hpp>
82 #include <boost/archive/iterators/transform_width.hpp>
83
84 #include <tbb/concurrent_unordered_map.h>
85
86 /* Return codes
87
88 102 [action]                    Information that [action] has happened
89 101 [action]                    Information that [action] has happened plus one row of data  
90
91 202 [command] OK                [command] has been executed
92 201 [command] OK                [command] has been executed, plus one row of data  
93 200 [command] OK                [command] has been executed, plus multiple lines of data. ends with an empty line
94
95 400 ERROR                               the command could not be understood
96 401 [command] ERROR             invalid/missing channel
97 402 [command] ERROR             parameter missing
98 403 [command] ERROR             invalid parameter  
99 404 [command] ERROR             file not found
100
101 500 FAILED                              internal error
102 501 [command] FAILED    internal error
103 502 [command] FAILED    could not read file
104 503 [command] FAILED    access denied
105
106 600 [command] FAILED    [command] not implemented
107 */
108
109 namespace caspar { namespace protocol {
110
111 using namespace core;
112
113 std::wstring read_file_base64(const boost::filesystem::wpath& file)
114 {
115         using namespace boost::archive::iterators;
116
117         boost::filesystem::ifstream filestream(file, std::ios::binary);
118
119         if (!filestream)
120                 return L"";
121
122         auto length = boost::filesystem::file_size(file);
123         std::vector<char> bytes;
124         bytes.resize(length);
125         filestream.read(bytes.data(), length);
126
127         std::string result(to_base64(bytes.data(), length));
128         return std::wstring(result.begin(), result.end());
129 }
130
131 std::wstring read_utf8_file(const boost::filesystem::wpath& file)
132 {
133         std::wstringstream result;
134         boost::filesystem::wifstream filestream(file);
135
136         if (filestream) 
137         {
138                 // Consume BOM first
139                 filestream.get();
140                 // read all data
141                 result << filestream.rdbuf();
142         }
143
144         return result.str();
145 }
146
147 std::wstring read_latin1_file(const boost::filesystem::wpath& file)
148 {
149         boost::locale::generator gen;
150         gen.locale_cache_enabled(true);
151         gen.categories(boost::locale::codepage_facet);
152
153         std::stringstream result_stream;
154         boost::filesystem::ifstream filestream(file);
155         filestream.imbue(gen("en_US.ISO8859-1"));
156
157         if (filestream)
158         {
159                 // read all data
160                 result_stream << filestream.rdbuf();
161         }
162
163         std::string result = result_stream.str();
164         std::wstring widened_result;
165
166         // The first 255 codepoints in unicode is the same as in latin1
167         auto from_signed_to_signed = std::function<unsigned char(char)>(
168                 [] (char c) { return static_cast<unsigned char>(c); }
169         );
170         boost::copy(
171                 result | boost::adaptors::transformed(from_signed_to_signed),
172                 std::back_inserter(widened_result));
173
174         return widened_result;
175 }
176
177 std::wstring read_file(const boost::filesystem::wpath& file)
178 {
179         static const uint8_t BOM[] = {0xef, 0xbb, 0xbf};
180
181         if (!boost::filesystem::exists(file))
182         {
183                 return L"";
184         }
185
186         if (boost::filesystem::file_size(file) >= 3)
187         {
188                 boost::filesystem::ifstream bom_stream(file);
189
190                 char header[3];
191                 bom_stream.read(header, 3);
192                 bom_stream.close();
193
194                 if (std::memcmp(BOM, header, 3) == 0)
195                         return read_utf8_file(file);
196         }
197
198         return read_latin1_file(file);
199 }
200
201 std::wstring MediaInfo(const boost::filesystem::path& path)
202 {
203         if(boost::filesystem::is_regular_file(path))
204         {
205                 std::wstring clipttype = TEXT("N/A");
206                 std::wstring extension = boost::to_upper_copy(path.extension().wstring());
207                 if(extension == TEXT(".TGA") || extension == TEXT(".COL") || extension == L".PNG" || extension == L".JPEG" || extension == L".JPG" ||
208                         extension == L"GIF" || extension == L"BMP")
209                         clipttype = TEXT("STILL");
210                 else if(extension == TEXT(".WAV") || extension == TEXT(".MP3"))
211                         clipttype = TEXT("AUDIO");
212                 else if(extension == TEXT("SWF") || extension == TEXT("CT") || extension == TEXT("DV") || extension == TEXT("MOV") || extension == TEXT("MPG") || extension == TEXT("AVI") || caspar::ffmpeg::is_valid_file(path.wstring()))
213                         clipttype = TEXT("MOVIE");
214
215                 if(clipttype != TEXT("N/A"))
216                 {               
217                         auto is_not_digit = [](char c){ return std::isdigit(c) == 0; };
218
219                         auto relativePath = boost::filesystem::path(path.wstring().substr(env::media_folder().size()-1, path.wstring().size()));
220
221                         auto writeTimeStr = boost::posix_time::to_iso_string(boost::posix_time::from_time_t(boost::filesystem::last_write_time(path)));
222                         writeTimeStr.erase(std::remove_if(writeTimeStr.begin(), writeTimeStr.end(), is_not_digit), writeTimeStr.end());
223                         auto writeTimeWStr = std::wstring(writeTimeStr.begin(), writeTimeStr.end());
224
225                         auto sizeStr = boost::lexical_cast<std::wstring>(boost::filesystem::file_size(path));
226                         sizeStr.erase(std::remove_if(sizeStr.begin(), sizeStr.end(), is_not_digit), sizeStr.end());
227                         auto sizeWStr = std::wstring(sizeStr.begin(), sizeStr.end());
228                                 
229                         auto str = relativePath.replace_extension(TEXT("")).native();
230                         while(str.size() > 0 && (str[0] == '\\' || str[0] == '/'))
231                                 str = std::wstring(str.begin() + 1, str.end());
232
233                         return std::wstring() + TEXT("\"") + str +
234                                         + TEXT("\" ") + clipttype +
235                                         + TEXT(" ") + sizeStr +
236                                         + TEXT(" ") + writeTimeWStr +
237                                         + TEXT("\r\n");         
238                 }       
239         }
240         return L"";
241 }
242
243 std::wstring ListMedia()
244 {       
245         std::wstringstream replyString;
246         for (boost::filesystem::recursive_directory_iterator itr(env::media_folder()), end; itr != end; ++itr)  
247                 replyString << MediaInfo(itr->path());
248         
249         return boost::to_upper_copy(replyString.str());
250 }
251
252 std::wstring ListTemplates() 
253 {
254         std::wstringstream replyString;
255
256         for (boost::filesystem::recursive_directory_iterator itr(env::template_folder()), end; itr != end; ++itr)
257         {               
258                 if(boost::filesystem::is_regular_file(itr->path()) && (itr->path().extension() == L".ft" || itr->path().extension() == L".ct"))
259                 {
260                         auto relativePath = boost::filesystem::wpath(itr->path().wstring().substr(env::template_folder().size()-1, itr->path().wstring().size()));
261
262                         auto writeTimeStr = boost::posix_time::to_iso_string(boost::posix_time::from_time_t(boost::filesystem::last_write_time(itr->path())));
263                         writeTimeStr.erase(std::remove_if(writeTimeStr.begin(), writeTimeStr.end(), [](char c){ return std::isdigit(c) == 0;}), writeTimeStr.end());
264                         auto writeTimeWStr = std::wstring(writeTimeStr.begin(), writeTimeStr.end());
265
266                         auto sizeStr = boost::lexical_cast<std::string>(boost::filesystem::file_size(itr->path()));
267                         sizeStr.erase(std::remove_if(sizeStr.begin(), sizeStr.end(), [](char c){ return std::isdigit(c) == 0;}), sizeStr.end());
268
269                         auto sizeWStr = std::wstring(sizeStr.begin(), sizeStr.end());
270
271                         std::wstring dir = relativePath.parent_path().native();
272                         std::wstring file = boost::to_upper_copy(relativePath.filename().wstring());
273                         relativePath = boost::filesystem::wpath(dir + L"/" + file);
274                                                 
275                         auto str = relativePath.replace_extension(TEXT("")).native();
276                         boost::trim_if(str, boost::is_any_of("\\/"));
277
278                         replyString << TEXT("\"") << str
279                                                 << TEXT("\" ") << sizeWStr
280                                                 << TEXT(" ") << writeTimeWStr
281                                                 << TEXT("\r\n");                
282                 }
283         }
284         return replyString.str();
285 }
286
287 namespace amcp {
288         
289 void AMCPCommand::SendReply()
290 {
291         if(replyString_.empty())
292                 return;
293
294         client_->send(std::move(replyString_));
295 }
296
297 bool DiagnosticsCommand::DoExecute()
298 {       
299         try
300         {
301                 diagnostics::show_graphs(true);
302
303                 SetReplyString(TEXT("202 DIAG OK\r\n"));
304
305                 return true;
306         }
307         catch(...)
308         {
309                 CASPAR_LOG_CURRENT_EXCEPTION();
310                 SetReplyString(TEXT("502 DIAG FAILED\r\n"));
311                 return false;
312         }
313 }
314
315 bool ChannelGridCommand::DoExecute()
316 {
317         int index = 1;
318         auto self = channels().back().channel;
319         
320         std::vector<std::wstring> params;
321         params.push_back(L"SCREEN");
322         params.push_back(L"0");
323         params.push_back(L"NAME");
324         params.push_back(L"Channel Grid Window");
325         auto screen = create_consumer(params);
326
327         self->output().add(screen);
328
329         BOOST_FOREACH(auto channel, channels())
330         {
331                 if(channel.channel != self)
332                 {
333                         auto producer = reroute::create_producer(*channel.channel);
334                         self->stage().load(index, producer, false);
335                         self->stage().play(index);
336                         index++;
337                 }
338         }
339
340         int n = channels().size()-1;
341         double delta = 1.0/static_cast<double>(n);
342         for(int x = 0; x < n; ++x)
343         {
344                 for(int y = 0; y < n; ++y)
345                 {
346                         int index = x+y*n+1;
347                         auto transform = [=](frame_transform transform) -> frame_transform
348                         {               
349                                 transform.image_transform.fill_translation[0]   = x*delta;
350                                 transform.image_transform.fill_translation[1]   = y*delta;
351                                 transform.image_transform.fill_scale[0]                 = delta;
352                                 transform.image_transform.fill_scale[1]                 = delta;
353                                 transform.image_transform.clip_translation[0]   = x*delta;
354                                 transform.image_transform.clip_translation[1]   = y*delta;
355                                 transform.image_transform.clip_scale[0]                 = delta;
356                                 transform.image_transform.clip_scale[1]                 = delta;                        
357                                 return transform;
358                         };
359                         self->stage().apply_transform(index, transform);
360                 }
361         }
362
363         return true;
364 }
365
366 bool CallCommand::DoExecute()
367 {       
368         //Perform loading of the clip
369         try
370         {
371                 auto result = channel()->stage().call(layer_index(), parameters());
372                 
373                 if(!result.timed_wait(boost::posix_time::seconds(2)))
374                         CASPAR_THROW_EXCEPTION(timed_out());
375                                 
376                 std::wstringstream replyString;
377                 if(result.get().empty())
378                         replyString << TEXT("202 CALL OK\r\n");
379                 else
380                         replyString << TEXT("201 CALL OK\r\n") << result.get() << L"\r\n";
381                 
382                 SetReplyString(replyString.str());
383
384                 return true;
385         }
386         catch(...)
387         {
388                 CASPAR_LOG_CURRENT_EXCEPTION();
389                 SetReplyString(TEXT("502 CALL FAILED\r\n"));
390                 return false;
391         }
392 }
393
394 tbb::concurrent_unordered_map<int, std::vector<stage::transform_tuple_t>> deferred_transforms;
395
396 bool MixerCommand::DoExecute()
397 {       
398         //Perform loading of the clip
399         try
400         {       
401                 bool defer = boost::iequals(parameters().back(), L"DEFER");
402                 if(defer)
403                         parameters().pop_back();
404
405                 std::vector<stage::transform_tuple_t> transforms;
406
407                 if(boost::iequals(parameters()[0], L"KEYER") || boost::iequals(parameters()[0], L"IS_KEY"))
408                 {
409                         bool value = boost::lexical_cast<int>(parameters().at(1));
410                         transforms.push_back(stage::transform_tuple_t(layer_index(), [=](frame_transform transform) -> frame_transform
411                         {
412                                 transform.image_transform.is_key = value;
413                                 return transform;                                       
414                         }, 0, L"linear"));
415                 }
416                 else if(boost::iequals(parameters()[0], L"OPACITY"))
417                 {
418                         int duration = parameters().size() > 2 ? boost::lexical_cast<int>(parameters()[2]) : 0;
419                         std::wstring tween = parameters().size() > 3 ? parameters()[3] : L"linear";
420
421                         double value = boost::lexical_cast<double>(parameters().at(1));
422                         
423                         transforms.push_back(stage::transform_tuple_t(layer_index(), [=](frame_transform transform) -> frame_transform
424                         {
425                                 transform.image_transform.opacity = value;
426                                 return transform;                                       
427                         }, duration, tween));
428                 }
429                 else if(boost::iequals(parameters()[0], L"FILL") || boost::iequals(parameters()[0], L"FILL_RECT"))
430                 {
431                         int duration = parameters().size() > 5 ? boost::lexical_cast<int>(parameters()[5]) : 0;
432                         std::wstring tween = parameters().size() > 6 ? parameters()[6] : L"linear";
433                         double x        = boost::lexical_cast<double>(parameters().at(1));
434                         double y        = boost::lexical_cast<double>(parameters().at(2));
435                         double x_s      = boost::lexical_cast<double>(parameters().at(3));
436                         double y_s      = boost::lexical_cast<double>(parameters().at(4));
437
438                         transforms.push_back(stage::transform_tuple_t(layer_index(), [=](frame_transform transform) mutable -> frame_transform
439                         {
440                                 transform.image_transform.fill_translation[0]   = x;
441                                 transform.image_transform.fill_translation[1]   = y;
442                                 transform.image_transform.fill_scale[0]                 = x_s;
443                                 transform.image_transform.fill_scale[1]                 = y_s;
444                                 return transform;
445                         }, duration, tween));
446                 }
447                 else if(boost::iequals(parameters()[0], L"CLIP") || boost::iequals(parameters()[0], L"CLIP_RECT"))
448                 {
449                         int duration = parameters().size() > 5 ? boost::lexical_cast<int>(parameters()[5]) : 0;
450                         std::wstring tween = parameters().size() > 6 ? parameters()[6] : L"linear";
451                         double x        = boost::lexical_cast<double>(parameters().at(1));
452                         double y        = boost::lexical_cast<double>(parameters().at(2));
453                         double x_s      = boost::lexical_cast<double>(parameters().at(3));
454                         double y_s      = boost::lexical_cast<double>(parameters().at(4));
455
456                         transforms.push_back(stage::transform_tuple_t(layer_index(), [=](frame_transform transform) -> frame_transform
457                         {
458                                 transform.image_transform.clip_translation[0]   = x;
459                                 transform.image_transform.clip_translation[1]   = y;
460                                 transform.image_transform.clip_scale[0]                 = x_s;
461                                 transform.image_transform.clip_scale[1]                 = y_s;
462                                 return transform;
463                         }, duration, tween));
464                 }
465                 else if(boost::iequals(parameters()[0], L"GRID"))
466                 {
467                         int duration = parameters().size() > 2 ? boost::lexical_cast<int>(parameters()[2]) : 0;
468                         std::wstring tween = parameters().size() > 3 ? parameters()[3] : L"linear";
469                         int n = boost::lexical_cast<int>(parameters().at(1));
470                         double delta = 1.0/static_cast<double>(n);
471                         for(int x = 0; x < n; ++x)
472                         {
473                                 for(int y = 0; y < n; ++y)
474                                 {
475                                         int index = x+y*n+1;
476                                         transforms.push_back(stage::transform_tuple_t(index, [=](frame_transform transform) -> frame_transform
477                                         {               
478                                                 transform.image_transform.fill_translation[0]   = x*delta;
479                                                 transform.image_transform.fill_translation[1]   = y*delta;
480                                                 transform.image_transform.fill_scale[0]                 = delta;
481                                                 transform.image_transform.fill_scale[1]                 = delta;
482                                                 transform.image_transform.clip_translation[0]   = x*delta;
483                                                 transform.image_transform.clip_translation[1]   = y*delta;
484                                                 transform.image_transform.clip_scale[0]                 = delta;
485                                                 transform.image_transform.clip_scale[1]                 = delta;                        
486                                                 return transform;
487                                         }, duration, tween));
488                                 }
489                         }
490                 }
491                 else if(boost::iequals(parameters()[0], L"BLEND"))
492                 {
493                         auto blend_str = parameters().at(1);                                                            
494                         int layer = layer_index();
495                         channel()->mixer().set_blend_mode(layer_index(), get_blend_mode(blend_str));    
496                 }
497                 else if(boost::iequals(parameters()[0], L"MASTERVOLUME"))
498                 {
499                         float master_volume = boost::lexical_cast<float>(parameters().at(1));
500                         channel()->mixer().set_master_volume(master_volume);
501                 }
502                 else if(boost::iequals(parameters()[0], L"BRIGHTNESS"))
503                 {
504                         auto value = boost::lexical_cast<double>(parameters().at(1));
505                         int duration = parameters().size() > 2 ? boost::lexical_cast<int>(parameters()[2]) : 0;
506                         std::wstring tween = parameters().size() > 3 ? parameters()[3] : L"linear";
507                         transforms.push_back(stage::transform_tuple_t(layer_index(), [=](frame_transform transform) -> frame_transform
508                         {
509                                 transform.image_transform.brightness = value;
510                                 return transform;
511                         }, duration, tween));
512                 }
513                 else if(boost::iequals(parameters()[0], L"SATURATION"))
514                 {
515                         auto value = boost::lexical_cast<double>(parameters().at(1));
516                         int duration = parameters().size() > 2 ? boost::lexical_cast<int>(parameters()[2]) : 0;
517                         std::wstring tween = parameters().size() > 3 ? parameters()[3] : L"linear";
518                         transforms.push_back(stage::transform_tuple_t(layer_index(), [=](frame_transform transform) -> frame_transform
519                         {
520                                 transform.image_transform.saturation = value;
521                                 return transform;
522                         }, duration, tween));   
523                 }
524                 else if(parameters()[0] == L"CONTRAST")
525                 {
526                         auto value = boost::lexical_cast<double>(parameters().at(1));
527                         int duration = parameters().size() > 2 ? boost::lexical_cast<int>(parameters()[2]) : 0;
528                         std::wstring tween = parameters().size() > 3 ? parameters()[3] : L"linear";
529                         transforms.push_back(stage::transform_tuple_t(layer_index(), [=](frame_transform transform) -> frame_transform
530                         {
531                                 transform.image_transform.contrast = value;
532                                 return transform;
533                         }, duration, tween));   
534                 }
535                 else if(boost::iequals(parameters()[0], L"LEVELS"))
536                 {
537                         levels value;
538                         value.min_input  = boost::lexical_cast<double>(parameters().at(1));
539                         value.max_input  = boost::lexical_cast<double>(parameters().at(2));
540                         value.gamma              = boost::lexical_cast<double>(parameters().at(3));
541                         value.min_output = boost::lexical_cast<double>(parameters().at(4));
542                         value.max_output = boost::lexical_cast<double>(parameters().at(5));
543                         int duration = parameters().size() > 6 ? boost::lexical_cast<int>(parameters()[6]) : 0;
544                         std::wstring tween = parameters().size() > 7 ? parameters()[7] : L"linear";
545
546                         transforms.push_back(stage::transform_tuple_t(layer_index(), [=](frame_transform transform) -> frame_transform
547                         {
548                                 transform.image_transform.levels = value;
549                                 return transform;
550                         }, duration, tween));
551                 }
552                 else if(boost::iequals(parameters()[0], L"VOLUME"))
553                 {
554                         int duration = parameters().size() > 2 ? boost::lexical_cast<int>(parameters()[2]) : 0;
555                         std::wstring tween = parameters().size() > 3 ? parameters()[3] : L"linear";
556                         double value = boost::lexical_cast<double>(parameters()[1]);
557
558                         transforms.push_back(stage::transform_tuple_t(layer_index(), [=](frame_transform transform) -> frame_transform
559                         {
560                                 transform.audio_transform.volume = value;
561                                 return transform;
562                         }, duration, tween));
563                 }
564                 else if(boost::iequals(parameters()[0], L"CLEAR"))
565                 {
566                         int layer = layer_index(std::numeric_limits<int>::max());
567
568                         if (layer == std::numeric_limits<int>::max())
569                         {
570                                 channel()->stage().clear_transforms();
571                                 channel()->mixer().clear_blend_modes();
572                         }
573                         else
574                         {
575                                 channel()->stage().clear_transforms(layer);
576                                 channel()->mixer().clear_blend_mode(layer);
577                         }
578                 }
579                 else if(boost::iequals(parameters()[0], L"COMMIT"))
580                 {
581                         transforms = std::move(deferred_transforms[channel_index()]);
582                 }
583                 else
584                 {
585                         SetReplyString(TEXT("404 MIXER ERROR\r\n"));
586                         return false;
587                 }
588
589                 if(defer)
590                 {
591                         auto& defer_tranforms = deferred_transforms[channel_index()];
592                         defer_tranforms.insert(defer_tranforms.end(), transforms.begin(), transforms.end());
593                 }
594                 else
595                         channel()->stage().apply_transforms(transforms);
596         
597                 SetReplyString(TEXT("202 MIXER OK\r\n"));
598
599                 return true;
600         }
601         catch(file_not_found&)
602         {
603                 CASPAR_LOG_CURRENT_EXCEPTION();
604                 SetReplyString(TEXT("404 MIXER ERROR\r\n"));
605                 return false;
606         }
607         catch(...)
608         {
609                 CASPAR_LOG_CURRENT_EXCEPTION();
610                 SetReplyString(TEXT("502 MIXER FAILED\r\n"));
611                 return false;
612         }
613 }
614
615 bool SwapCommand::DoExecute()
616 {       
617         //Perform loading of the clip
618         try
619         {
620                 if(layer_index(-1) != -1)
621                 {
622                         std::vector<std::string> strs;
623                         boost::split(strs, parameters()[0], boost::is_any_of("-"));
624                         
625                         auto ch1 = channel();
626                         auto ch2 = channels().at(boost::lexical_cast<int>(strs.at(0))-1);
627
628                         int l1 = layer_index();
629                         int l2 = boost::lexical_cast<int>(strs.at(1));
630
631                         ch1->stage().swap_layer(l1, l2, ch2.channel->stage());
632                 }
633                 else
634                 {
635                         auto ch1 = channel();
636                         auto ch2 = channels().at(boost::lexical_cast<int>(parameters()[0])-1);
637                         ch1->stage().swap_layers(ch2.channel->stage());
638                 }
639                 
640                 SetReplyString(TEXT("202 SWAP OK\r\n"));
641
642                 return true;
643         }
644         catch(file_not_found&)
645         {
646                 CASPAR_LOG_CURRENT_EXCEPTION();
647                 SetReplyString(TEXT("404 SWAP ERROR\r\n"));
648                 return false;
649         }
650         catch(...)
651         {
652                 CASPAR_LOG_CURRENT_EXCEPTION();
653                 SetReplyString(TEXT("502 SWAP FAILED\r\n"));
654                 return false;
655         }
656 }
657
658 bool AddCommand::DoExecute()
659 {       
660         //Perform loading of the clip
661         try
662         {
663                 //create_consumer still expects all parameters to be uppercase
664                 BOOST_FOREACH(std::wstring& str, parameters())
665                 {
666                         boost::to_upper(str);
667                 }
668
669                 auto consumer = create_consumer(parameters());
670                 channel()->output().add(layer_index(consumer->index()), consumer);
671         
672                 SetReplyString(TEXT("202 ADD OK\r\n"));
673
674                 return true;
675         }
676         catch(file_not_found&)
677         {
678                 CASPAR_LOG_CURRENT_EXCEPTION();
679                 SetReplyString(TEXT("404 ADD ERROR\r\n"));
680                 return false;
681         }
682         catch(...)
683         {
684                 CASPAR_LOG_CURRENT_EXCEPTION();
685                 SetReplyString(TEXT("502 ADD FAILED\r\n"));
686                 return false;
687         }
688 }
689
690 bool RemoveCommand::DoExecute()
691 {       
692         //Perform loading of the clip
693         try
694         {
695                 auto index = layer_index(std::numeric_limits<int>::min());
696                 if(index == std::numeric_limits<int>::min())
697                 {
698                         //create_consumer still expects all parameters to be uppercase
699                         BOOST_FOREACH(std::wstring& str, parameters())
700                         {
701                                 boost::to_upper(str);
702                         }
703
704                         index = create_consumer(parameters())->index();
705                 }
706
707                 channel()->output().remove(index);
708
709                 SetReplyString(TEXT("202 REMOVE OK\r\n"));
710
711                 return true;
712         }
713         catch(file_not_found&)
714         {
715                 CASPAR_LOG_CURRENT_EXCEPTION();
716                 SetReplyString(TEXT("404 REMOVE ERROR\r\n"));
717                 return false;
718         }
719         catch(...)
720         {
721                 CASPAR_LOG_CURRENT_EXCEPTION();
722                 SetReplyString(TEXT("502 REMOVE FAILED\r\n"));
723                 return false;
724         }
725 }
726
727 bool LoadCommand::DoExecute()
728 {       
729         //Perform loading of the clip
730         try
731         {
732                 auto pFP = create_producer(channel()->frame_factory(), channel()->video_format_desc(), parameters());           
733                 channel()->stage().load(layer_index(), pFP, true);
734         
735                 SetReplyString(TEXT("202 LOAD OK\r\n"));
736
737                 return true;
738         }
739         catch(file_not_found&)
740         {
741                 CASPAR_LOG_CURRENT_EXCEPTION();
742                 SetReplyString(TEXT("404 LOAD ERROR\r\n"));
743                 return false;
744         }
745         catch(...)
746         {
747                 CASPAR_LOG_CURRENT_EXCEPTION();
748                 SetReplyString(TEXT("502 LOAD FAILED\r\n"));
749                 return false;
750         }
751 }
752
753
754
755 //std::function<std::wstring()> channel_cg_add_command::parse(const std::wstring& message, const std::vector<renderer::render_device_ptr>& channels)
756 //{
757 //      static boost::wregex expr(L"^CG\\s(?<video_channel>\\d+)-?(?<LAYER>\\d+)?\\sADD\\s(?<FLASH_LAYER>\\d+)\\s(?<TEMPLATE>\\S+)\\s?(?<START_LABEL>\\S\\S+)?\\s?(?<PLAY_ON_LOAD>\\d)?\\s?(?<DATA>.*)?");
758 //
759 //      boost::wsmatch what;
760 //      if(!boost::regex_match(message, what, expr))
761 //              return nullptr;
762 //
763 //      auto info = channel_info::parse(what, channels);
764 //
765 //      int flash_layer_index = boost::lexical_cast<int>(what["FLASH_LAYER"].str());
766 //
767 //      std::wstring templatename = what["TEMPLATE"].str();
768 //      bool play_on_load = what["PLAY_ON_LOAD"].matched ? what["PLAY_ON_LOAD"].str() != L"0" : 0;
769 //      std::wstring start_label = what["START_LABEL"].str();   
770 //      std::wstring data = get_data(what["DATA"].str());
771 //      
772 //      boost::replace_all(templatename, "\"", "");
773 //
774 //      return [=]() -> std::wstring
775 //      {       
776 //              std::wstring fullFilename = flash::flash_producer::find_template(server::template_folder() + templatename);
777 //              if(fullFilename.empty())
778 //                      CASPAR_THROW_EXCEPTION(file_not_found());
779 //      
780 //              std::wstring extension = boost::filesystem::wpath(fullFilename).extension();
781 //              std::wstring filename = templatename;
782 //              filename.append(extension);
783 //
784 //              flash::flash::create_cg_proxy(info.video_channel, std::max<int>(DEFAULT_CHANNEL_LAYER+1, info.layer_index))
785 //                      ->add(flash_layer_index, filename, play_on_load, start_label, data);
786 //
787 //              CASPAR_LOG(info) << L"Executed [amcp_channel_cg_add]";
788 //              return L"";
789 //      };
790
791 bool LoadbgCommand::DoExecute()
792 {
793         transition_info transitionInfo;
794         
795         bool bLoop = false;
796
797         // TRANSITION
798
799         std::wstring message;
800         for(size_t n = 0; n < parameters().size(); ++n)
801                 message += boost::to_upper_copy(parameters()[n]) + L" ";
802                 
803         static const boost::wregex expr(L".*(?<TRANSITION>CUT|PUSH|SLIDE|WIPE|MIX)\\s*(?<DURATION>\\d+)\\s*(?<TWEEN>(LINEAR)|(EASE[^\\s]*))?\\s*(?<DIRECTION>FROMLEFT|FROMRIGHT|LEFT|RIGHT)?.*");
804         boost::wsmatch what;
805         if(boost::regex_match(message, what, expr))
806         {
807                 auto transition = what["TRANSITION"].str();
808                 transitionInfo.duration = boost::lexical_cast<size_t>(what["DURATION"].str());
809                 auto direction = what["DIRECTION"].matched ? what["DIRECTION"].str() : L"";
810                 auto tween = what["TWEEN"].matched ? what["TWEEN"].str() : L"";
811                 transitionInfo.tweener = tween;         
812
813                 if(transition == TEXT("CUT"))
814                         transitionInfo.type = transition_type::cut;
815                 else if(transition == TEXT("MIX"))
816                         transitionInfo.type = transition_type::mix;
817                 else if(transition == TEXT("PUSH"))
818                         transitionInfo.type = transition_type::push;
819                 else if(transition == TEXT("SLIDE"))
820                         transitionInfo.type = transition_type::slide;
821                 else if(transition == TEXT("WIPE"))
822                         transitionInfo.type = transition_type::wipe;
823                 
824                 if(direction == TEXT("FROMLEFT"))
825                         transitionInfo.direction = transition_direction::from_left;
826                 else if(direction == TEXT("FROMRIGHT"))
827                         transitionInfo.direction = transition_direction::from_right;
828                 else if(direction == TEXT("LEFT"))
829                         transitionInfo.direction = transition_direction::from_right;
830                 else if(direction == TEXT("RIGHT"))
831                         transitionInfo.direction = transition_direction::from_left;
832         }
833         
834         //Perform loading of the clip
835         try
836         {
837                 std::shared_ptr<core::frame_producer> pFP;
838                 
839                 static boost::wregex expr(L"\\[(?<CHANNEL>\\d+)\\]", boost::regex::icase);
840                         
841                 boost::wsmatch what;
842                 if(boost::regex_match(parameters().at(0), what, expr))
843                 {
844                         auto channel_index = boost::lexical_cast<int>(what["CHANNEL"].str());
845                         pFP = reroute::create_producer(*channels().at(channel_index-1).channel); 
846                 }
847                 else
848                 {
849                         pFP = create_producer(channel()->frame_factory(), channel()->video_format_desc(), parameters());
850                 }
851                 
852                 if(pFP == frame_producer::empty())
853                         CASPAR_THROW_EXCEPTION(file_not_found() << msg_info(parameters().size() > 0 ? parameters()[0] : L""));
854
855                 bool auto_play = contains_param(L"AUTO", parameters());
856
857                 auto pFP2 = create_transition_producer(channel()->video_format_desc().field_mode, spl::make_shared_ptr(pFP), transitionInfo);
858                 if(auto_play)
859                         channel()->stage().load(layer_index(), pFP2, false, transitionInfo.duration); // TODO: LOOP
860                 else
861                         channel()->stage().load(layer_index(), pFP2, false); // TODO: LOOP
862         
863                 
864                 SetReplyString(TEXT("202 LOADBG OK\r\n"));
865
866                 return true;
867         }
868         catch(file_not_found&)
869         {               
870                 CASPAR_LOG(error) << L"File not found. No match found for parameters. Check syntax.";
871                 SetReplyString(TEXT("404 LOADBG ERROR\r\n"));
872                 return false;
873         }
874         catch(...)
875         {
876                 CASPAR_LOG_CURRENT_EXCEPTION();
877                 SetReplyString(TEXT("502 LOADBG FAILED\r\n"));
878                 return false;
879         }
880 }
881
882 bool PauseCommand::DoExecute()
883 {
884         try
885         {
886                 channel()->stage().pause(layer_index());
887                 SetReplyString(TEXT("202 PAUSE OK\r\n"));
888                 return true;
889         }
890         catch(...)
891         {
892                 SetReplyString(TEXT("501 PAUSE FAILED\r\n"));
893         }
894
895         return false;
896 }
897
898 bool PlayCommand::DoExecute()
899 {
900         try
901         {
902                 if(!parameters().empty())
903                 {
904                         LoadbgCommand lbg(*this);
905
906                         if(!lbg.Execute())
907                                 throw std::exception();
908                 }
909
910                 channel()->stage().play(layer_index());
911                 
912                 SetReplyString(TEXT("202 PLAY OK\r\n"));
913                 return true;
914         }
915         catch(...)
916         {
917                 SetReplyString(TEXT("501 PLAY FAILED\r\n"));
918         }
919
920         return false;
921 }
922
923 bool StopCommand::DoExecute()
924 {
925         try
926         {
927                 channel()->stage().stop(layer_index());
928                 SetReplyString(TEXT("202 STOP OK\r\n"));
929                 return true;
930         }
931         catch(...)
932         {
933                 SetReplyString(TEXT("501 STOP FAILED\r\n"));
934         }
935
936         return false;
937 }
938
939 bool ClearCommand::DoExecute()
940 {
941         int index = layer_index(std::numeric_limits<int>::min());
942         if(index != std::numeric_limits<int>::min())
943                 channel()->stage().clear(index);
944         else
945                 channel()->stage().clear();
946                 
947         SetReplyString(TEXT("202 CLEAR OK\r\n"));
948
949         return true;
950 }
951
952 bool PrintCommand::DoExecute()
953 {
954         channel()->output().add(create_consumer(boost::assign::list_of(L"IMAGE")));
955                 
956         SetReplyString(TEXT("202 PRINT OK\r\n"));
957
958         return true;
959 }
960
961 bool LogCommand::DoExecute()
962 {
963         if(boost::iequals(parameters().at(0), L"LEVEL"))
964                 log::set_log_level(parameters().at(1));
965
966         SetReplyString(TEXT("202 LOG OK\r\n"));
967
968         return true;
969 }
970
971 bool CGCommand::DoExecute()
972 {
973         try
974         {
975                 std::wstring command = boost::to_upper_copy(parameters()[0]);
976                 if(command == TEXT("ADD"))
977                         return DoExecuteAdd();
978                 else if(command == TEXT("PLAY"))
979                         return DoExecutePlay();
980                 else if(command == TEXT("STOP"))
981                         return DoExecuteStop();
982                 else if(command == TEXT("NEXT"))
983                         return DoExecuteNext();
984                 else if(command == TEXT("REMOVE"))
985                         return DoExecuteRemove();
986                 else if(command == TEXT("CLEAR"))
987                         return DoExecuteClear();
988                 else if(command == TEXT("UPDATE"))
989                         return DoExecuteUpdate();
990                 else if(command == TEXT("INVOKE"))
991                         return DoExecuteInvoke();
992                 else if(command == TEXT("INFO"))
993                         return DoExecuteInfo();
994         }
995         catch(...)
996         {
997                 CASPAR_LOG_CURRENT_EXCEPTION();
998         }
999
1000         SetReplyString(TEXT("403 CG ERROR\r\n"));
1001         return false;
1002 }
1003
1004 bool CGCommand::ValidateLayer(const std::wstring& layerstring) {
1005         int length = layerstring.length();
1006         for(int i = 0; i < length; ++i) {
1007                 if(!_istdigit(layerstring[i])) {
1008                         return false;
1009                 }
1010         }
1011
1012         return true;
1013 }
1014
1015 bool CGCommand::DoExecuteAdd() {
1016         //CG 1 ADD 0 "template_folder/templatename" [STARTLABEL] 0/1 [DATA]
1017
1018         int layer = 0;                          //_parameters[1]
1019 //      std::wstring templateName;      //_parameters[2]
1020         std::wstring label;             //_parameters[3]
1021         bool bDoStart = false;          //_parameters[3] alt. _parameters[4]
1022 //      std::wstring data;                      //_parameters[4] alt. _parameters[5]
1023
1024         if(parameters().size() < 4) 
1025         {
1026                 SetReplyString(TEXT("402 CG ERROR\r\n"));
1027                 return false;
1028         }
1029         unsigned int dataIndex = 4;
1030
1031         if(!ValidateLayer(parameters()[1])) 
1032         {
1033                 SetReplyString(TEXT("403 CG ERROR\r\n"));
1034                 return false;
1035         }
1036
1037         layer = boost::lexical_cast<int>(parameters()[1]);
1038
1039         if(parameters()[3].length() > 1) 
1040         {       //read label
1041                 label = parameters()[3];
1042                 ++dataIndex;
1043
1044                 if(parameters().size() > 4 && parameters()[4].length() > 0)     //read play-on-load-flag
1045                         bDoStart = (parameters()[4][0]==TEXT('1')) ? true : false;
1046                 else 
1047                 {
1048                         SetReplyString(TEXT("402 CG ERROR\r\n"));
1049                         return false;
1050                 }
1051         }
1052         else if(parameters()[3].length() > 0) { //read play-on-load-flag
1053                 bDoStart = (parameters()[3][0]==TEXT('1')) ? true : false;
1054         }
1055         else 
1056         {
1057                 SetReplyString(TEXT("403 CG ERROR\r\n"));
1058                 return false;
1059         }
1060
1061         const TCHAR* pDataString = 0;
1062         std::wstringstream data;
1063         std::wstring dataFromFile;
1064         if(parameters().size() > dataIndex) 
1065         {       //read data
1066                 const std::wstring& dataString = parameters()[dataIndex];
1067
1068                 if(dataString[0] == TEXT('<')) //the data is an XML-string
1069                         pDataString = dataString.c_str();
1070                 else 
1071                 {
1072                         //The data is not an XML-string, it must be a filename
1073                         std::wstring filename = env::data_folder();
1074                         filename.append(dataString);
1075                         filename.append(TEXT(".ftd"));
1076
1077                         dataFromFile = read_file(boost::filesystem::wpath(filename));
1078                         pDataString = dataFromFile.c_str();
1079                 }
1080         }
1081
1082         std::wstring fullFilename = flash::find_template(env::template_folder() + parameters()[2]);
1083         if(!fullFilename.empty())
1084         {
1085                 std::wstring extension = boost::filesystem::path(fullFilename).extension().wstring();
1086                 std::wstring filename = parameters()[2];
1087                 filename.append(extension);
1088
1089                 flash::create_cg_proxy(spl::shared_ptr<core::video_channel>(channel()), layer_index(flash::cg_proxy::DEFAULT_LAYER)).add(layer, filename, bDoStart, label, (pDataString!=0) ? pDataString : TEXT(""));
1090                 SetReplyString(TEXT("202 CG OK\r\n"));
1091         }
1092         else
1093         {
1094                 CASPAR_LOG(warning) << "Could not find template " << parameters()[2];
1095                 SetReplyString(TEXT("404 CG ERROR\r\n"));
1096         }
1097         return true;
1098 }
1099
1100 bool CGCommand::DoExecutePlay()
1101 {
1102         if(parameters().size() > 1)
1103         {
1104                 if(!ValidateLayer(parameters()[1])) 
1105                 {
1106                         SetReplyString(TEXT("403 CG ERROR\r\n"));
1107                         return false;
1108                 }
1109                 int layer = boost::lexical_cast<int>(parameters()[1]);
1110                 flash::create_cg_proxy(spl::shared_ptr<core::video_channel>(channel()), layer_index(flash::cg_proxy::DEFAULT_LAYER)).play(layer);
1111         }
1112         else
1113         {
1114                 SetReplyString(TEXT("402 CG ERROR\r\n"));
1115                 return true;
1116         }
1117
1118         SetReplyString(TEXT("202 CG OK\r\n"));
1119         return true;
1120 }
1121
1122 bool CGCommand::DoExecuteStop() 
1123 {
1124         if(parameters().size() > 1)
1125         {
1126                 if(!ValidateLayer(parameters()[1])) 
1127                 {
1128                         SetReplyString(TEXT("403 CG ERROR\r\n"));
1129                         return false;
1130                 }
1131                 int layer = boost::lexical_cast<int>(parameters()[1]);
1132                 flash::create_cg_proxy(spl::shared_ptr<core::video_channel>(channel()), layer_index(flash::cg_proxy::DEFAULT_LAYER)).stop(layer, 0);
1133         }
1134         else 
1135         {
1136                 SetReplyString(TEXT("402 CG ERROR\r\n"));
1137                 return true;
1138         }
1139
1140         SetReplyString(TEXT("202 CG OK\r\n"));
1141         return true;
1142 }
1143
1144 bool CGCommand::DoExecuteNext()
1145 {
1146         if(parameters().size() > 1) 
1147         {
1148                 if(!ValidateLayer(parameters()[1])) 
1149                 {
1150                         SetReplyString(TEXT("403 CG ERROR\r\n"));
1151                         return false;
1152                 }
1153
1154                 int layer = boost::lexical_cast<int>(parameters()[1]);
1155                 flash::create_cg_proxy(spl::shared_ptr<core::video_channel>(channel()), layer_index(flash::cg_proxy::DEFAULT_LAYER)).next(layer);
1156         }
1157         else 
1158         {
1159                 SetReplyString(TEXT("402 CG ERROR\r\n"));
1160                 return true;
1161         }
1162
1163         SetReplyString(TEXT("202 CG OK\r\n"));
1164         return true;
1165 }
1166
1167 bool CGCommand::DoExecuteRemove() 
1168 {
1169         if(parameters().size() > 1) 
1170         {
1171                 if(!ValidateLayer(parameters()[1])) 
1172                 {
1173                         SetReplyString(TEXT("403 CG ERROR\r\n"));
1174                         return false;
1175                 }
1176
1177                 int layer = boost::lexical_cast<int>(parameters()[1]);
1178                 flash::create_cg_proxy(spl::shared_ptr<core::video_channel>(channel()), layer_index(flash::cg_proxy::DEFAULT_LAYER)).remove(layer);
1179         }
1180         else 
1181         {
1182                 SetReplyString(TEXT("402 CG ERROR\r\n"));
1183                 return true;
1184         }
1185
1186         SetReplyString(TEXT("202 CG OK\r\n"));
1187         return true;
1188 }
1189
1190 bool CGCommand::DoExecuteClear() 
1191 {
1192         channel()->stage().clear(layer_index(flash::cg_proxy::DEFAULT_LAYER));
1193         SetReplyString(TEXT("202 CG OK\r\n"));
1194         return true;
1195 }
1196
1197 bool CGCommand::DoExecuteUpdate() 
1198 {
1199         try
1200         {
1201                 if(!ValidateLayer(parameters().at(1)))
1202                 {
1203                         SetReplyString(TEXT("403 CG ERROR\r\n"));
1204                         return false;
1205                 }
1206                                                 
1207                 std::wstring dataString = parameters().at(2);                           
1208                 if(dataString.at(0) != TEXT('<'))
1209                 {
1210                         //The data is not an XML-string, it must be a filename
1211                         std::wstring filename = env::data_folder();
1212                         filename.append(dataString);
1213                         filename.append(TEXT(".ftd"));
1214
1215                         dataString = read_file(boost::filesystem::wpath(filename));
1216                 }               
1217
1218                 int layer = boost::lexical_cast<int>(parameters()[1]);
1219                 flash::create_cg_proxy(spl::shared_ptr<core::video_channel>(channel()), layer_index(flash::cg_proxy::DEFAULT_LAYER)).update(layer, dataString);
1220         }
1221         catch(...)
1222         {
1223                 SetReplyString(TEXT("402 CG ERROR\r\n"));
1224                 return true;
1225         }
1226
1227         SetReplyString(TEXT("202 CG OK\r\n"));
1228         return true;
1229 }
1230
1231 bool CGCommand::DoExecuteInvoke() 
1232 {
1233         std::wstringstream replyString;
1234         replyString << TEXT("201 CG OK\r\n");
1235
1236         if(parameters().size() > 2)
1237         {
1238                 if(!ValidateLayer(parameters()[1]))
1239                 {
1240                         SetReplyString(TEXT("403 CG ERROR\r\n"));
1241                         return false;
1242                 }
1243                 int layer = boost::lexical_cast<int>(parameters()[1]);
1244                 auto result = flash::create_cg_proxy(spl::shared_ptr<core::video_channel>(channel()), layer_index(flash::cg_proxy::DEFAULT_LAYER)).invoke(layer, parameters()[2]);
1245                 replyString << result << TEXT("\r\n"); 
1246         }
1247         else 
1248         {
1249                 SetReplyString(TEXT("402 CG ERROR\r\n"));
1250                 return true;
1251         }
1252         
1253         SetReplyString(replyString.str());
1254         return true;
1255 }
1256
1257 bool CGCommand::DoExecuteInfo() 
1258 {
1259         std::wstringstream replyString;
1260         replyString << TEXT("201 CG OK\r\n");
1261
1262         if(parameters().size() > 1)
1263         {
1264                 if(!ValidateLayer(parameters()[1]))
1265                 {
1266                         SetReplyString(TEXT("403 CG ERROR\r\n"));
1267                         return false;
1268                 }
1269
1270                 int layer = boost::lexical_cast<int>(parameters()[1]);
1271                 auto desc = flash::create_cg_proxy(spl::shared_ptr<core::video_channel>(channel()), layer_index(flash::cg_proxy::DEFAULT_LAYER)).description(layer);
1272                 
1273                 replyString << desc << TEXT("\r\n"); 
1274         }
1275         else 
1276         {
1277                 auto info = flash::create_cg_proxy(spl::shared_ptr<core::video_channel>(channel()), layer_index(flash::cg_proxy::DEFAULT_LAYER)).template_host_info();
1278                 replyString << info << TEXT("\r\n"); 
1279         }       
1280
1281         SetReplyString(replyString.str());
1282         return true;
1283 }
1284
1285 bool DataCommand::DoExecute()
1286 {
1287         std::wstring command = boost::to_upper_copy(parameters()[0]);
1288         if(command == TEXT("STORE"))
1289                 return DoExecuteStore();
1290         else if(command == TEXT("RETRIEVE"))
1291                 return DoExecuteRetrieve();
1292         else if(command == TEXT("REMOVE"))
1293                 return DoExecuteRemove();
1294         else if(command == TEXT("LIST"))
1295                 return DoExecuteList();
1296
1297         SetReplyString(TEXT("403 DATA ERROR\r\n"));
1298         return false;
1299 }
1300
1301 bool DataCommand::DoExecuteStore() 
1302 {
1303         if(parameters().size() < 3) 
1304         {
1305                 SetReplyString(TEXT("402 DATA STORE ERROR\r\n"));
1306                 return false;
1307         }
1308
1309         std::wstring filename = env::data_folder();
1310         filename.append(parameters()[1]);
1311         filename.append(TEXT(".ftd"));
1312
1313         auto data_path = boost::filesystem::wpath(
1314                 boost::filesystem::wpath(filename).parent_path());
1315
1316         if(!boost::filesystem::exists(data_path))
1317                 boost::filesystem::create_directories(data_path);
1318
1319         std::wofstream datafile(filename.c_str());
1320         if(!datafile) 
1321         {
1322                 SetReplyString(TEXT("501 DATA STORE FAILED\r\n"));
1323                 return false;
1324         }
1325
1326         datafile << static_cast<wchar_t>(65279); // UTF-8 BOM character
1327         datafile << parameters()[2] << std::flush;
1328         datafile.close();
1329
1330         std::wstring replyString = TEXT("202 DATA STORE OK\r\n");
1331         SetReplyString(replyString);
1332         return true;
1333 }
1334
1335 bool DataCommand::DoExecuteRetrieve() 
1336 {
1337         if(parameters().size() < 2) 
1338         {
1339                 SetReplyString(TEXT("402 DATA RETRIEVE ERROR\r\n"));
1340                 return false;
1341         }
1342
1343         std::wstring filename = env::data_folder();
1344         filename.append(parameters()[1]);
1345         filename.append(TEXT(".ftd"));
1346
1347         std::wstring file_contents = read_file(boost::filesystem::wpath(filename));
1348
1349         if (file_contents.empty()) 
1350         {
1351                 SetReplyString(TEXT("404 DATA RETRIEVE ERROR\r\n"));
1352                 return false;
1353         }
1354
1355         std::wstringstream reply(TEXT("201 DATA RETRIEVE OK\r\n"));
1356
1357         std::wstringstream file_contents_stream(file_contents);
1358         std::wstring line;
1359         
1360         bool firstLine = true;
1361         while(std::getline(file_contents_stream, line))
1362         {
1363                 if(firstLine)
1364                         firstLine = false;
1365                 else
1366                         reply << "\n";
1367
1368                 reply << line;
1369         }
1370
1371         reply << "\r\n";
1372         SetReplyString(reply.str());
1373         return true;
1374 }
1375
1376 bool DataCommand::DoExecuteRemove()
1377
1378         if (parameters().size() < 2)
1379         {
1380                 SetReplyString(TEXT("402 DATA REMOVE ERROR\r\n"));
1381                 return false;
1382         }
1383
1384         std::wstring filename = env::data_folder();
1385         filename.append(parameters()[1]);
1386         filename.append(TEXT(".ftd"));
1387
1388         if (!boost::filesystem::exists(filename))
1389         {
1390                 SetReplyString(TEXT("404 DATA REMOVE ERROR\r\n"));
1391                 return false;
1392         }
1393
1394         if (!boost::filesystem::remove(filename))
1395         {
1396                 SetReplyString(TEXT("403 DATA REMOVE ERROR\r\n"));
1397                 return false;
1398         }
1399
1400         SetReplyString(TEXT("201 DATA REMOVE OK\r\n"));
1401
1402         return true;
1403 }
1404
1405 bool DataCommand::DoExecuteList() 
1406 {
1407         std::wstringstream replyString;
1408         replyString << TEXT("200 DATA LIST OK\r\n");
1409
1410         for (boost::filesystem::recursive_directory_iterator itr(env::data_folder()), end; itr != end; ++itr)
1411         {                       
1412                 if(boost::filesystem::is_regular_file(itr->path()))
1413                 {
1414                         if(!boost::iequals(itr->path().extension().wstring(), L".ftd"))
1415                                 continue;
1416                         
1417                         auto relativePath = boost::filesystem::wpath(itr->path().wstring().substr(env::data_folder().size()-1, itr->path().wstring().size()));
1418                         
1419                         auto str = relativePath.replace_extension(TEXT("")).native();
1420                         if(str[0] == '\\' || str[0] == '/')
1421                                 str = std::wstring(str.begin() + 1, str.end());
1422
1423                         replyString << str << TEXT("\r\n");     
1424                 }
1425         }
1426         
1427         replyString << TEXT("\r\n");
1428
1429         SetReplyString(boost::to_upper_copy(replyString.str()));
1430         return true;
1431 }
1432
1433 bool CinfCommand::DoExecute()
1434 {
1435         std::wstringstream replyString;
1436         
1437         try
1438         {
1439                 std::wstring info;
1440                 for (boost::filesystem::recursive_directory_iterator itr(env::media_folder()), end; itr != end && info.empty(); ++itr)
1441                 {
1442                         auto path = itr->path();
1443                         auto file = path.replace_extension(L"").filename();
1444                         if(boost::iequals(file.wstring(), parameters().at(0)))
1445                                 info += MediaInfo(itr->path()) + L"\r\n";
1446                 }
1447
1448                 if(info.empty())
1449                 {
1450                         SetReplyString(TEXT("404 CINF ERROR\r\n"));
1451                         return false;
1452                 }
1453                 replyString << TEXT("200 CINF OK\r\n");
1454                 replyString << info << "\r\n";
1455         }
1456         catch(...)
1457         {
1458                 CASPAR_LOG_CURRENT_EXCEPTION();
1459                 SetReplyString(TEXT("404 CINF ERROR\r\n"));
1460                 return false;
1461         }
1462         
1463         SetReplyString(replyString.str());
1464         return true;
1465 }
1466
1467 void GenerateChannelInfo(int index, const spl::shared_ptr<core::video_channel>& pChannel, std::wstringstream& replyString)
1468 {
1469         replyString << index+1 << TEXT(" ") << pChannel->video_format_desc().name << TEXT(" PLAYING") << TEXT("\r\n");
1470 }
1471
1472 bool InfoCommand::DoExecute()
1473 {
1474         std::wstringstream replyString;
1475         
1476         boost::property_tree::xml_writer_settings<wchar_t> w(' ', 3);
1477
1478         try
1479         {
1480                 if(parameters().size() >= 1 && boost::iequals(parameters()[0], L"TEMPLATE"))
1481                 {               
1482                         replyString << L"201 INFO TEMPLATE OK\r\n";
1483
1484                         // Needs to be extended for any file, not just flash.
1485
1486                         auto filename = flash::find_template(env::template_folder() + parameters().at(1));
1487                                                 
1488                         std::wstringstream str;
1489                         str << u16(flash::read_template_meta_info(filename));
1490                         boost::property_tree::wptree info;
1491                         boost::property_tree::xml_parser::read_xml(str, info, boost::property_tree::xml_parser::trim_whitespace | boost::property_tree::xml_parser::no_comments);
1492
1493                         boost::property_tree::xml_parser::write_xml(replyString, info, w);
1494                 }
1495                 else if(parameters().size() >= 1 && boost::iequals(parameters()[0], L"CONFIG"))
1496                 {               
1497                         replyString << L"201 INFO CONFIG OK\r\n";
1498
1499                         boost::property_tree::write_xml(replyString, caspar::env::properties(), w);
1500                 }
1501                 else if(parameters().size() >= 1 && boost::iequals(parameters()[0], L"PATHS"))
1502                 {
1503                         replyString << L"201 INFO PATHS OK\r\n";
1504
1505                         boost::property_tree::wptree info;
1506                         info.add_child(L"paths", caspar::env::properties().get_child(L"configuration.paths"));
1507                         info.add(L"paths.initial-path", boost::filesystem3::initial_path().wstring() + L"\\");
1508
1509                         boost::property_tree::write_xml(replyString, info, w);
1510                 }
1511                 else if(parameters().size() >= 1 && boost::iequals(parameters()[0], L"SYSTEM"))
1512                 {
1513                         replyString << L"201 INFO SYSTEM OK\r\n";
1514                         
1515                         boost::property_tree::wptree info;
1516                         
1517                         info.add(L"system.name",                                        caspar::system_product_name());
1518                         info.add(L"system.windows.name",                        caspar::win_product_name());
1519                         info.add(L"system.windows.service-pack",        caspar::win_sp_version());
1520                         info.add(L"system.cpu",                                         caspar::cpu_info());
1521         
1522                         BOOST_FOREACH(auto device, caspar::decklink::device_list())
1523                                 info.add(L"system.decklink.device", device);
1524
1525                         BOOST_FOREACH(auto device, caspar::bluefish::device_list())
1526                                 info.add(L"system.bluefish.device", device);
1527                                 
1528                         info.add(L"system.flash",                                       caspar::flash::version());
1529                         //info.add(L"system.free-image",                                caspar::image::version());
1530                         info.add(L"system.ffmpeg.avcodec",                      caspar::ffmpeg::avcodec_version());
1531                         info.add(L"system.ffmpeg.avformat",                     caspar::ffmpeg::avformat_version());
1532                         info.add(L"system.ffmpeg.avfilter",                     caspar::ffmpeg::avfilter_version());
1533                         info.add(L"system.ffmpeg.avutil",                       caspar::ffmpeg::avutil_version());
1534                         info.add(L"system.ffmpeg.swscale",                      caspar::ffmpeg::swscale_version());
1535                                                 
1536                         boost::property_tree::write_xml(replyString, info, w);
1537                 }
1538                 else if(parameters().size() >= 1 && boost::iequals(parameters()[0], L"SERVER"))
1539                 {
1540                         replyString << L"201 INFO SERVER OK\r\n";
1541                         
1542                         boost::property_tree::wptree info;
1543
1544                         int index = 0;
1545                         BOOST_FOREACH(auto channel, channels())
1546                                 info.add_child(L"channels.channel", channel.channel->info())
1547                                         .add(L"index", ++index);
1548                         
1549                         boost::property_tree::write_xml(replyString, info, w);
1550                 }
1551                 else // channel
1552                 {                       
1553                         if(parameters().size() >= 1)
1554                         {
1555                                 replyString << TEXT("201 INFO OK\r\n");
1556                                 boost::property_tree::wptree info;
1557
1558                                 std::vector<std::wstring> split;
1559                                 boost::split(split, parameters()[0], boost::is_any_of("-"));
1560                                         
1561                                 int layer = std::numeric_limits<int>::min();
1562                                 int channel = boost::lexical_cast<int>(split[0]) - 1;
1563
1564                                 if(split.size() > 1)
1565                                         layer = boost::lexical_cast<int>(split[1]);
1566                                 
1567                                 if(layer == std::numeric_limits<int>::min())
1568                                 {       
1569                                         info.add_child(L"channel", channels().at(channel).channel->info())
1570                                                         .add(L"index", channel);
1571                                 }
1572                                 else
1573                                 {
1574                                         if(parameters().size() >= 2)
1575                                         {
1576                                                 if(boost::iequals(parameters()[1], L"B"))
1577                                                         info.add_child(L"producer", channels().at(channel).channel->stage().background(layer).get()->info());
1578                                                 else
1579                                                         info.add_child(L"producer", channels().at(channel).channel->stage().foreground(layer).get()->info());
1580                                         }
1581                                         else
1582                                         {
1583                                                 info.add_child(L"layer", channels().at(channel).channel->stage().info(layer).get())
1584                                                         .add(L"index", layer);
1585                                         }
1586                                 }
1587                                 boost::property_tree::xml_parser::write_xml(replyString, info, w);
1588                         }
1589                         else
1590                         {
1591                                 // This is needed for backwards compatibility with old clients
1592                                 replyString << TEXT("200 INFO OK\r\n");
1593                                 for(size_t n = 0; n < channels().size(); ++n)
1594                                         GenerateChannelInfo(n, channels()[n].channel, replyString);
1595                         }
1596
1597                 }
1598         }
1599         catch(...)
1600         {
1601                 CASPAR_LOG_CURRENT_EXCEPTION();
1602                 SetReplyString(TEXT("403 INFO ERROR\r\n"));
1603                 return false;
1604         }
1605
1606         replyString << TEXT("\r\n");
1607         SetReplyString(replyString.str());
1608         return true;
1609 }
1610
1611 bool ClsCommand::DoExecute()
1612 {
1613 /*
1614                 wav = audio
1615                 mp3 = audio
1616                 swf     = movie
1617                 dv  = movie
1618                 tga = still
1619                 col = still
1620         */
1621         try
1622         {
1623                 std::wstringstream replyString;
1624                 replyString << TEXT("200 CLS OK\r\n");
1625                 replyString << ListMedia();
1626                 replyString << TEXT("\r\n");
1627                 SetReplyString(boost::to_upper_copy(replyString.str()));
1628         }
1629         catch(...)
1630         {
1631                 CASPAR_LOG_CURRENT_EXCEPTION();
1632                 SetReplyString(TEXT("501 CLS FAILED\r\n"));
1633                 return false;
1634         }
1635
1636         return true;
1637 }
1638
1639 bool TlsCommand::DoExecute()
1640 {
1641         try
1642         {
1643                 std::wstringstream replyString;
1644                 replyString << TEXT("200 TLS OK\r\n");
1645
1646                 replyString << ListTemplates();
1647                 replyString << TEXT("\r\n");
1648
1649                 SetReplyString(replyString.str());
1650         }
1651         catch(...)
1652         {
1653                 CASPAR_LOG_CURRENT_EXCEPTION();
1654                 SetReplyString(TEXT("501 TLS FAILED\r\n"));
1655                 return false;
1656         }
1657         return true;
1658 }
1659
1660 bool VersionCommand::DoExecute()
1661 {
1662         std::wstring replyString = TEXT("201 VERSION OK\r\n") + env::version() + TEXT("\r\n");
1663
1664         if(parameters().size() > 0)
1665         {
1666                 if(boost::iequals(parameters()[0], L"FLASH"))
1667                         replyString = TEXT("201 VERSION OK\r\n") + flash::version() + TEXT("\r\n");
1668                 else if(boost::iequals(parameters()[0], L"TEMPLATEHOST"))
1669                         replyString = TEXT("201 VERSION OK\r\n") + flash::cg_version() + TEXT("\r\n");
1670                 else if(!boost::iequals(parameters()[0], L"SERVER"))
1671                         replyString = TEXT("403 VERSION ERROR\r\n");
1672         }
1673
1674         SetReplyString(replyString);
1675         return true;
1676 }
1677
1678 bool ByeCommand::DoExecute()
1679 {
1680         client()->disconnect();
1681         return true;
1682 }
1683
1684 bool SetCommand::DoExecute()
1685 {
1686         try
1687         {
1688                 std::wstring name = boost::to_upper_copy(parameters()[0]);
1689                 std::wstring value = boost::to_upper_copy(parameters()[1]);
1690
1691                 if(name == TEXT("MODE"))
1692                 {
1693                         auto format_desc = core::video_format_desc(value);
1694                         if(format_desc.format != core::video_format::invalid)
1695                         {
1696                                 channel()->video_format_desc(format_desc);
1697                                 SetReplyString(TEXT("202 SET MODE OK\r\n"));
1698                         }
1699                         else
1700                                 SetReplyString(TEXT("501 SET MODE FAILED\r\n"));
1701                 }
1702                 else
1703                 {
1704                         this->SetReplyString(TEXT("403 SET ERROR\r\n"));
1705                 }
1706         }
1707         catch(...)
1708         {
1709                 CASPAR_LOG_CURRENT_EXCEPTION();
1710                 SetReplyString(TEXT("501 SET FAILED\r\n"));
1711                 return false;
1712         }
1713
1714         return true;
1715 }
1716
1717 bool LockCommand::DoExecute()
1718 {
1719         try
1720         {
1721                 auto it = parameters().begin();
1722
1723                 std::shared_ptr<caspar::IO::lock_container> lock;
1724                 try
1725                 {
1726                         int channel_index = boost::lexical_cast<int>(*it) - 1;
1727                         lock = channels().at(channel_index).lock;
1728                 }
1729                 catch(const boost::bad_lexical_cast&) {}
1730                 catch(...)
1731                 {
1732                         SetReplyString(L"401 LOCK ERROR\r\n");
1733                         return false;
1734                 }
1735
1736                 if(lock)
1737                         ++it;
1738
1739                 if(it == parameters().end())    //too few parameters
1740                 {
1741                         SetReplyString(L"402 LOCK ERROR\r\n");
1742                         return false;
1743                 }
1744
1745                 std::wstring command = boost::to_upper_copy(*it);
1746                 if(command == L"ACQUIRE")
1747                 {
1748                         ++it;
1749                         if(it == parameters().end())    //too few parameters
1750                         {
1751                                 SetReplyString(L"402 LOCK ACQUIRE ERROR\r\n");
1752                                 return false;
1753                         }
1754                         std::wstring lock_phrase = (*it);
1755
1756                         //TODO: read options
1757
1758                         if(lock)
1759                         {
1760                                 //just lock one channel
1761                                 if(!lock->try_lock(lock_phrase, client()))
1762                                 {
1763                                         SetReplyString(L"503 LOCK ACQUIRE FAILED\r\n");
1764                                         return false;
1765                                 }
1766                         }
1767                         else
1768                         {
1769                                 //TODO: lock all channels
1770                                 CASPAR_THROW_EXCEPTION(not_implemented());
1771                         }
1772                         SetReplyString(L"202 LOCK ACQUIRE OK\r\n");
1773
1774                 }
1775                 else if(command == L"RELEASE")
1776                 {
1777                         if(lock)
1778                         {
1779                                 lock->release_lock(client());
1780                         }
1781                         else
1782                         {
1783                                 //TODO: release all channels
1784                                 CASPAR_THROW_EXCEPTION(not_implemented());
1785                         }
1786                         SetReplyString(L"202 LOCK RELEASE OK\r\n");
1787                 }
1788                 else if(command == L"CLEAR")
1789                 {
1790                         std::wstring override_phrase = env::properties().get(L"configuration.lock-clear-phrase", L"");
1791                         std::wstring client_override_phrase;
1792                         if(!override_phrase.empty())
1793                         {
1794                                 ++it;
1795                                 if(it == parameters().end())
1796                                 {
1797                                         SetReplyString(L"402 LOCK CLEAR ERROR\r\n");
1798                                         return false;
1799                                 }
1800                                 client_override_phrase = (*it);
1801                         }
1802
1803                         if(lock)
1804                         {
1805                                 //just clear one channel
1806                                 if(client_override_phrase != override_phrase)
1807                                 {
1808                                         SetReplyString(L"503 LOCK CLEAR FAILED\r\n");
1809                                         return false;
1810                                 }
1811                                 
1812                                 lock->clear_locks();
1813                         }
1814                         else
1815                         {
1816                                 //TODO: clear all channels
1817                                 CASPAR_THROW_EXCEPTION(not_implemented());
1818                         }
1819
1820                         SetReplyString(L"202 LOCK CLEAR OK\r\n");
1821                 }
1822                 else
1823                 {
1824                         SetReplyString(L"403 LOCK ERROR\r\n");
1825                         return false;
1826                 }
1827         }
1828         catch(not_implemented&)
1829         {
1830                 SetReplyString(L"600 LOCK FAILED\r\n");
1831                 return false;
1832         }
1833         catch(...)
1834         {
1835                 CASPAR_LOG_CURRENT_EXCEPTION();
1836                 SetReplyString(L"501 LOCK FAILED\r\n");
1837                 return false;
1838         }
1839
1840         return true;
1841 }
1842
1843 bool ThumbnailCommand::DoExecute()
1844 {
1845         std::wstring command = boost::to_upper_copy(parameters()[0]);
1846
1847         if (command == TEXT("RETRIEVE"))
1848                 return DoExecuteRetrieve();
1849         else if (command == TEXT("LIST"))
1850                 return DoExecuteList();
1851         else if (command == TEXT("GENERATE"))
1852                 return DoExecuteGenerate();
1853         else if (command == TEXT("GENERATE_ALL"))
1854                 return DoExecuteGenerateAll();
1855
1856         SetReplyString(TEXT("403 THUMBNAIL ERROR\r\n"));
1857         return false;
1858 }
1859
1860 bool ThumbnailCommand::DoExecuteRetrieve() 
1861 {
1862         if(parameters().size() < 2) 
1863         {
1864                 SetReplyString(TEXT("402 THUMBNAIL RETRIEVE ERROR\r\n"));
1865                 return false;
1866         }
1867
1868         std::wstring filename = env::thumbnails_folder();
1869         filename.append(parameters()[1]);
1870         filename.append(TEXT(".png"));
1871
1872         std::wstring file_contents = read_file_base64(boost::filesystem::wpath(filename));
1873
1874         if (file_contents.empty())
1875         {
1876                 SetReplyString(TEXT("404 THUMBNAIL RETRIEVE ERROR\r\n"));
1877                 return false;
1878         }
1879
1880         std::wstringstream reply;
1881
1882         reply << L"201 THUMBNAIL RETRIEVE OK\r\n";
1883         reply << file_contents;
1884         reply << L"\r\n";
1885         SetReplyString(reply.str());
1886         return true;
1887 }
1888
1889 bool ThumbnailCommand::DoExecuteList()
1890 {
1891         std::wstringstream replyString;
1892         replyString << TEXT("200 THUMBNAIL LIST OK\r\n");
1893
1894         for (boost::filesystem::recursive_directory_iterator itr(env::thumbnails_folder()), end; itr != end; ++itr)
1895         {      
1896                 if(boost::filesystem::is_regular_file(itr->path()))
1897                 {
1898                         if(!boost::iequals(itr->path().extension().wstring(), L".png"))
1899                                 continue;
1900
1901                         auto relativePath = boost::filesystem::wpath(itr->path().wstring().substr(env::thumbnails_folder().size()-1, itr->path().wstring().size()));
1902
1903                         auto str = relativePath.replace_extension(L"").native();
1904                         if(str[0] == '\\' || str[0] == '/')
1905                                 str = std::wstring(str.begin() + 1, str.end());
1906
1907                         auto mtime = boost::filesystem::last_write_time(itr->path());
1908                         auto mtime_readable = boost::posix_time::to_iso_wstring(boost::posix_time::from_time_t(mtime));
1909                         auto file_size = boost::filesystem::file_size(itr->path());
1910
1911                         replyString << L"\"" << str << L"\" " << mtime_readable << L" " << file_size << L"\r\n";
1912                 }
1913         }
1914
1915         replyString << TEXT("\r\n");
1916
1917         SetReplyString(boost::to_upper_copy(replyString.str()));
1918         return true;
1919 }
1920
1921 bool ThumbnailCommand::DoExecuteGenerate()
1922 {
1923         if (parameters().size() < 2) 
1924         {
1925                 SetReplyString(L"402 THUMBNAIL GENERATE ERROR\r\n");
1926                 return false;
1927         }
1928
1929         if (thumb_gen_)
1930         {
1931                 thumb_gen_->generate(parameters()[1]);
1932                 SetReplyString(L"202 THUMBNAIL GENERATE OK\r\n");
1933                 return true;
1934         }
1935         else
1936         {
1937                 SetReplyString(L"500 THUMBNAIL GENERATE ERROR\r\n");
1938                 return false;
1939         }
1940 }
1941
1942 bool ThumbnailCommand::DoExecuteGenerateAll()
1943 {
1944         if (thumb_gen_)
1945         {
1946                 thumb_gen_->generate_all();
1947                 SetReplyString(L"202 THUMBNAIL GENERATE_ALL OK\r\n");
1948                 return true;
1949         }
1950         else
1951         {
1952                 SetReplyString(L"500 THUMBNAIL GENERATE_ALL ERROR\r\n");
1953                 return false;
1954         }
1955 }
1956
1957 bool KillCommand::DoExecute()
1958 {
1959         shutdown_server_now_->set_value(false); //false for not waiting for keypress
1960         SetReplyString(TEXT("202 KILL OK\r\n"));
1961         return true;
1962 }
1963
1964 }       //namespace amcp
1965 }}      //namespace caspar