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