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