annotate OrthancServer/Scheduler/StorePeerCommand.cpp @ 1160:80671157d051

generalization of create-dicom
author Sebastien Jodogne <s.jodogne@gmail.com>
date Wed, 17 Sep 2014 11:57:28 +0200
parents 060e8918d7a4
children 0561f2087cc9
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
1099
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
69 try
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
70 {
1099
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
71 context_.ReadFile(client.AccessPostData(), *it, FileContentType_Dicom);
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
72
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
73 std::string answer;
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
74 if (!client.Apply(answer))
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
75 {
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
76 LOG(ERROR) << "Unable to send resource " << *it << " to peer \"" << peer_.GetUrl() << "\"";
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
77 throw OrthancException(ErrorCode_NetworkProtocol);
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
78 }
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
79
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
80 // Only chain with other commands if this command succeeds
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
81 outputs.push_back(*it);
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
82 }
1099
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
83 catch (OrthancException& e)
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
84 {
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
85 LOG(ERROR) << "Unable to forward to an Orthanc peer in a Lua script (instance "
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
86 << *it << ", peer " << peer_.GetUrl() << "): " << e.What();
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
87 }
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
88 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
89
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
90 return true;
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
91 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
92 }