annotate OrthancServer/Scheduler/StorePeerCommand.cpp @ 1177:5b2d8c280ac2 db-changes

Plugins can monitor changes through callbacks
author Sebastien Jodogne <s.jodogne@gmail.com>
date Wed, 24 Sep 2014 17:37:44 +0200
parents 0561f2087cc9
children 88010d8e12cf
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,
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;
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
55 if (peer_.GetUsername().size() != 0 &&
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
56 peer_.GetPassword().size() != 0)
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
57 {
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
58 client.SetCredentials(peer_.GetUsername().c_str(),
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
59 peer_.GetPassword().c_str());
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
60 }
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 client.SetUrl(peer_.GetUrl() + "instances");
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
63 client.SetMethod(HttpMethod_Post);
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
64
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
65 for (ListOfStrings::const_iterator
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
66 it = inputs.begin(); it != inputs.end(); ++it)
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
67 {
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
68 LOG(INFO) << "Sending resource " << *it << " to peer \""
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
69 << peer_.GetUrl() << "\"";
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 try
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
72 {
1099
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
73 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
74
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
75 std::string answer;
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
76 if (!client.Apply(answer))
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
77 {
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
78 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
79 throw OrthancException(ErrorCode_NetworkProtocol);
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
80 }
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 // 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
83 outputs.push_back(*it);
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
84 }
1099
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
85 catch (OrthancException& e)
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
86 {
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
87 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
88 << *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
89
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 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
91 {
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 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
93 }
1099
060e8918d7a4 More fault-tolerant commands in Lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents: 1007
diff changeset
94 }
1007
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
95 }
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 return true;
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
98 }
871c49c9b11d lua routing is working
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
diff changeset
99 }