annotate OrthancServer/Scheduler/StorePeerCommand.cpp @ 1065:921532f67770

Lua scripts can invoke system commands, with CallSystem()
author Sebastien Jodogne <s.jodogne@gmail.com>
date Fri, 25 Jul 2014 16:59:33 +0200
parents 871c49c9b11d
children 060e8918d7a4
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
1 /**
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
2 * Orthanc - A Lightweight, RESTful DICOM Store
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
3 * Copyright (C) 2012-2014 Medical Physics Department, CHU of Liege,
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
4 * Belgium
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
5 *
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
6 * This program is free software: you can redistribute it and/or
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
7 * modify it under the terms of the GNU General Public License as
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
8 * published by the Free Software Foundation, either version 3 of the
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
9 * License, or (at your option) any later version.
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
10 *
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
11 * In addition, as a special exception, the copyright holders of this
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
12 * program give permission to link the code of its release with the
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
13 * OpenSSL project's "OpenSSL" library (or with modified versions of it
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
14 * that use the same license as the "OpenSSL" library), and distribute
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
15 * the linked executables. You must obey the GNU General Public License
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
16 * in all respects for all of the code used other than "OpenSSL". If you
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
17 * modify file(s) with this exception, you may extend this exception to
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
18 * your version of the file(s), but you are not obligated to do so. If
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
19 * you do not wish to do so, delete this exception statement from your
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
20 * version. If you delete this exception statement from all source files
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
21 * in the program, then also delete it here.
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
22 *
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
23 * This program is distributed in the hope that it will be useful, but
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
24 * WITHOUT ANY WARRANTY; without even the implied warranty of
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
25 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
26 * General Public License for more details.
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
27 *
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
28 * You should have received a copy of the GNU General Public License
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
29 * along with this program. If not, see <http://www.gnu.org/licenses/>.
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
30 **/
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
31
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
32
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
33 #include "StorePeerCommand.h"
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
34
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
35 #include "../../Core/HttpClient.h"
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
36
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
37 #include <glog/logging.h>
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
38
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
39 namespace Orthanc
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
40 {
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
41 StorePeerCommand::StorePeerCommand(ServerContext& context,
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
42 const OrthancPeerParameters& peer) :
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
43 context_(context),
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
44 peer_(peer)
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
45 {
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
46 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
47
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
48 bool StorePeerCommand::Apply(ListOfStrings& outputs,
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
49 const ListOfStrings& inputs)
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
50 {
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
51 // Configure the HTTP client
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
52 HttpClient client;
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
53 if (peer_.GetUsername().size() != 0 &&
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
54 peer_.GetPassword().size() != 0)
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
55 {
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
56 client.SetCredentials(peer_.GetUsername().c_str(),
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
57 peer_.GetPassword().c_str());
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
58 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
59
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
60 client.SetUrl(peer_.GetUrl() + "instances");
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
61 client.SetMethod(HttpMethod_Post);
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
62
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
63 for (ListOfStrings::const_iterator
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
64 it = inputs.begin(); it != inputs.end(); ++it)
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
65 {
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
66 LOG(INFO) << "Sending resource " << *it << " to peer \""
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
67 << peer_.GetUrl() << "\"";
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
68
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
69 context_.ReadFile(client.AccessPostData(), *it, FileContentType_Dicom);
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
70
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
71 std::string answer;
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
72 if (!client.Apply(answer))
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
73 {
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
74 LOG(ERROR) << "Unable to send resource " << *it << " to peer \"" << peer_.GetUrl() << "\"";
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
75 throw OrthancException(ErrorCode_NetworkProtocol);
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
76 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
77
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
78 outputs.push_back(*it);
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
79 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
80
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
81 return true;
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
82 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
83 }