annotate OrthancServer/Scheduler/StorePeerCommand.cpp @ 1952:ecf8b8ebfb52 dcmtk-3.6.1

Closed branch dcmtk-3.6.1
author Sebastien Jodogne <s.jodogne@gmail.com>
date Tue, 05 Apr 2016 15:08:03 +0200
parents 0a2ad4a6858f
children b1291df2f780
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
1288
6e7e5ed91c2d upgrade to year 2015
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1273
diff changeset
3 * Copyright (C) 2012-2015 Sebastien Jodogne, Medical Physics
6e7e5ed91c2d upgrade to year 2015
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1273
diff changeset
4 * Department, University Hospital of Liege, Belgium
1007
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
1624
0a2ad4a6858f fix missing precompiled headers
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1606
diff changeset
33 #include "../PrecompiledHeadersServer.h"
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
34 #include "StorePeerCommand.h"
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
35
1486
f967bdf8534e refactoring to Logging.h
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1288
diff changeset
36 #include "../../Core/Logging.h"
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
37 #include "../../Core/HttpClient.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,
1165
0561f2087cc9 Fix reporting of errors in Orthanc Explorer when sending images to peers/modalities
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1099
diff changeset
42 const OrthancPeerParameters& peer,
0561f2087cc9 Fix reporting of errors in Orthanc Explorer when sending images to peers/modalities
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1099
diff changeset
43 bool ignoreExceptions) :
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
44 context_(context),
1165
0561f2087cc9 Fix reporting of errors in Orthanc Explorer when sending images to peers/modalities
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1099
diff changeset
45 peer_(peer),
0561f2087cc9 Fix reporting of errors in Orthanc Explorer when sending images to peers/modalities
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1099
diff changeset
46 ignoreExceptions_(ignoreExceptions)
1007
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 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
49
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
50 bool StorePeerCommand::Apply(ListOfStrings& outputs,
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
51 const ListOfStrings& inputs)
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
52 {
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
53 // Configure the HTTP client
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
54 HttpClient client;
1273
88010d8e12cf Support of HTTP proxy
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1165
diff changeset
55 client.SetProxy(Configuration::GetGlobalStringParameter("HttpProxy", ""));
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
56 if (peer_.GetUsername().size() != 0 &&
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
57 peer_.GetPassword().size() != 0)
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 client.SetCredentials(peer_.GetUsername().c_str(),
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
60 peer_.GetPassword().c_str());
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
61 }
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 client.SetUrl(peer_.GetUrl() + "instances");
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
64 client.SetMethod(HttpMethod_Post);
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 for (ListOfStrings::const_iterator
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
67 it = inputs.begin(); it != inputs.end(); ++it)
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 LOG(INFO) << "Sending resource " << *it << " to peer \""
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
70 << peer_.GetUrl() << "\"";
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
71
1099
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
72 try
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
73 {
1606
31f4adefb88f issuing HTTP requests from the plugin SDK
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1486
diff changeset
74 context_.ReadFile(client.GetBody(), *it, FileContentType_Dicom);
1099
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 std::string answer;
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
77 if (!client.Apply(answer))
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 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
80 throw OrthancException(ErrorCode_NetworkProtocol);
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
81 }
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
82
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
83 // 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
84 outputs.push_back(*it);
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
85 }
1099
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
86 catch (OrthancException& e)
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
87 {
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
88 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
89 << *it << ", peer " << peer_.GetUrl() << "): " << e.What();
1165
0561f2087cc9 Fix reporting of errors in Orthanc Explorer when sending images to peers/modalities
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1099
diff changeset
90
0561f2087cc9 Fix reporting of errors in Orthanc Explorer when sending images to peers/modalities
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1099
diff changeset
91 if (!ignoreExceptions_)
0561f2087cc9 Fix reporting of errors in Orthanc Explorer when sending images to peers/modalities
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1099
diff changeset
92 {
0561f2087cc9 Fix reporting of errors in Orthanc Explorer when sending images to peers/modalities
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1099
diff changeset
93 throw;
0561f2087cc9 Fix reporting of errors in Orthanc Explorer when sending images to peers/modalities
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1099
diff changeset
94 }
1099
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
95 }
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
96 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
97
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
98 return true;
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
99 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
100 }