1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
|
// $Id$
#include "orbsvcs/Log_Macros.h"
#include "orbsvcs/PortableGroup/UIPMC_Profile.h"
#include "orbsvcs/PortableGroup/UIPMC_Acceptor.h"
#include "orbsvcs/PortableGroup/UIPMC_Mcast_Connection_Handler.h"
#include "tao/ORB_Core.h"
#include "tao/debug.h"
#include "ace/os_include/os_netdb.h"
#if !defined(__ACE_INLINE__)
#include "orbsvcs/PortableGroup/UIPMC_Acceptor.inl"
#endif /* __ACE_INLINE__ */
TAO_BEGIN_VERSIONED_NAMESPACE_DECL
TAO_UIPMC_Acceptor::TAO_UIPMC_Acceptor (
bool listen_on_all_ifs,
const char *listener_interfaces)
: TAO_Acceptor (IOP::TAG_UIPMC),
addrs_ (0),
hosts_ (0),
endpoint_count_ (0),
version_ (TAO_DEF_GIOP_MAJOR, TAO_DEF_GIOP_MINOR),
orb_core_ (0),
listen_on_all_ (listen_on_all_ifs),
listener_interfaces_ (listener_interfaces)
{
}
TAO_UIPMC_Acceptor::~TAO_UIPMC_Acceptor (void)
{
// Make sure we are closed before we start destroying the
// strategies.
this->close ();
delete [] this->addrs_;
for (size_t i = 0u; i < this->endpoint_count_; ++i)
CORBA::string_free (this->hosts_[i]);
delete [] this->hosts_;
}
int
TAO_UIPMC_Acceptor::create_profile (
const TAO::ObjectKey &,
TAO_MProfile &,
CORBA::Short)
{
// The standard mechanism for adding profiles to object references
// for each pluggable protocol doesn't apply to UIPMC profiles, so
// this function just returns success without doing anything. The
// appropiate mechanism for getting UIPMC profiles is to call the
// multicast group manager to get a Group reference. Invocations
// sent to this group reference will be dispatched to the servants
// that belong to that group.
return 0;
}
int
TAO_UIPMC_Acceptor::is_collocated (const TAO_Endpoint *)
{
// @@ Not clear how
// to best handle collation. For example, one servant could
// be collocated, but we still need to send the request out on
// the network to see if there are any other servants in the
// group.
return 0; // Not collocated
}
int
TAO_UIPMC_Acceptor::close (void)
{
return 0;
}
int
TAO_UIPMC_Acceptor::open (
TAO_ORB_Core *orb_core,
ACE_Reactor *reactor,
int major,
int minor,
const char *address,
const char *options)
{
this->orb_core_ = orb_core;
if (this->hosts_ != 0)
{
// The hostname cache has already been set!
// This is bad mojo, i.e. an internal TAO error.
ORBSVCS_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("TAO (%P|%t) - UIPMC_Acceptor::open, ")
ACE_TEXT ("hostname already set\n")),
-1);
}
if (address == 0)
return -1;
if (major >= 0 && minor >= 0)
this->version_.set_version (static_cast<CORBA::Octet> (major),
static_cast<CORBA::Octet> (minor));
// Parse options
if (this->parse_options (options) == -1)
return -1;
ACE_INET_Addr addr;
const char *port_separator_loc = ACE_OS::strchr (address, ':');
const char *specified_hostname = 0;
char tmp_host[MAXHOSTNAMELEN + 1];
#if defined (ACE_HAS_IPV6)
// Check if this is a (possibly) IPv6 supporting profile containing a
// numeric IPv6 address representation.
if ( (this->version_.major > TAO_MIN_IPV6_IIOP_MAJOR
||
(this->version_.major == TAO_MIN_IPV6_IIOP_MAJOR
&&
this->version_.minor >= TAO_MIN_IPV6_IIOP_MINOR)
) && address[0] == '[')
{
// In this case we have to find the end of the numeric address and
// start looking for the port separator from there.
const char *cp_pos = ACE_OS::strchr(address, ']');
if (cp_pos == 0)
{
// No valid IPv6 address specified.
ORBSVCS_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("TAO (%P|%t) - UIPMC_Acceptor::open, ")
ACE_TEXT ("Invalid IPv6 decimal address specified\n")),
-1);
}
else
{
if (cp_pos[1] == ':') // Look for a port
port_separator_loc = cp_pos + 1;
else
port_separator_loc = 0;
// Extract out just the host part of the address.
const size_t len = cp_pos - (address + 1);
ACE_OS::memcpy (tmp_host, address + 1, len);
tmp_host[len] = '\0';
}
}
else
#endif /* ACE_HAS_IPV6 */
{
// Extract out just the host part of the address.
size_t len = port_separator_loc - address;
ACE_OS::memcpy (tmp_host, address, len);
tmp_host[len] = '\0';
}
// Both host and port have to be specified.
if (port_separator_loc == 0)
{
ORBSVCS_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("TAO (%P|%t) - UIPMC_Acceptor::open, ")
ACE_TEXT ("port is not specified\n")),
-1);
}
if (addr.set (address) != 0)
return -1;
specified_hostname = tmp_host;
#if defined (ACE_HAS_IPV6)
// Check for violation of ORBConnectIPV6Only option
if (this->orb_core_->orb_params ()->connect_ipv6_only () &&
(addr.get_type () != AF_INET6 ||
addr.is_ipv4_mapped_ipv6 ()))
{
ORBSVCS_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("TAO (%P|%t) - UIPMC_Acceptor::open, ")
ACE_TEXT ("non-IPv6 endpoints not allowed when ")
ACE_TEXT ("connect_ipv6_only is set\n")),
-1);
}
#endif /* ACE_HAS_IPV6 */
this->endpoint_count_ = 1; // Only one hostname to store
ACE_NEW_RETURN (this->addrs_,
ACE_INET_Addr[this->endpoint_count_],
-1);
ACE_NEW_RETURN (this->hosts_,
char *[this->endpoint_count_],
-1);
this->hosts_[0] = 0;
if (this->hostname (orb_core,
addr,
this->hosts_[0],
specified_hostname) != 0)
return -1;
// Copy the addr. The port is (re)set in
// TAO_UIPMC_Acceptor::open_i().
if (this->addrs_[0].set (addr) != 0)
return -1;
return this->open_i (addr,
reactor);
}
int
TAO_UIPMC_Acceptor::open_default (
TAO_ORB_Core *,
ACE_Reactor *,
int,
int,
const char *)
{
// There is no such thing as a default multicast listen
// port. The mechanism for choosing these ports is done
// when creating the group ids. (I.e. not here).
return -1;
}
int
TAO_UIPMC_Acceptor::open_i (
const ACE_INET_Addr &addr,
ACE_Reactor *reactor)
{
// Check for the special "CopyPreferredInterfaces" token(s) stored in the
// listener_interfaces_ string. If found, subsitute each one for the actual
// -ORBPreferredInterfaces string set on the ORB_init command line.
for (ACE_CString::size_type foundToken =
this->listener_interfaces_.find (CopyPreferredInterfaceToken);
ACE_CString::npos != foundToken;
foundToken =
this->listener_interfaces_.find (CopyPreferredInterfaceToken))
{
ACE_CString
left = this->listener_interfaces_.substr (0, foundToken),
right = this->listener_interfaces_.substr (foundToken +
static_cast<ACE_CString::size_type> (
sizeof (CopyPreferredInterfaceToken)-1u ));
const char *preferred_interfaces =
this->orb_core_->orb_params ()->preferred_interfaces ();
if (preferred_interfaces && preferred_interfaces[0])
{
// Subsitute the token for the actual string, if not null
// left/right will always end/start with a ','
this->listener_interfaces_ =
left + preferred_interfaces + right;
}
else
{
// No preferred_interfaces specified
if (',' == right[0]) // Right is not null
{
// Need to remove the token, AND one of the seporating ','
this->listener_interfaces_ =
left + right.substr (1);
}
else // Since right must also be a null string
{
const ACE_CString::size_type length= left.length ();
if (length)
{
// Since we only have the left, remove the trailing ','
this->listener_interfaces_ = left.substr (0, length-1);
}
else
{
// Since BOTH left and right are empty, removing the
// token leaves an empty string.
this->listener_interfaces_ = "";
}
}
}
} // End loop replacing all preferred_interfaces tokens.
// Create our connection handler and pass it our configurtion options.
TAO_UIPMC_Mcast_Connection_Handler *connection_handler = 0;
ACE_NEW_RETURN (connection_handler,
TAO_UIPMC_Mcast_Connection_Handler (this->orb_core_),
-1);
connection_handler->local_addr (addr);
connection_handler->listen_on_all (this->listen_on_all_);
connection_handler->listener_interfaces (
this->listener_interfaces_.c_str ());
if (connection_handler->open (0))
{
ORBSVCS_DEBUG ((LM_ERROR,
ACE_TEXT("TAO (%P|%t) - TAO_UIPMC_Acceptor::open_i, ")
ACE_TEXT("failed to open connection handler.\n")
));
delete connection_handler;
return -1;
}
int result =
reactor->register_handler (connection_handler,
ACE_Event_Handler::READ_MASK);
if (result == -1)
{
// Close the handler (this will also delete connection_handler).
connection_handler->close ();
return result;
}
// Connection handler ownership now belongs to the Reactor.
connection_handler->remove_reference ();
// Set the port for each addr. If there is more than one network
// interface then the endpoint created on each interface will be on
// the same port. This is how a wildcard socket bind() is supposed
// to work.
u_short port = addr.get_port_number ();
for (size_t j = 0u; j < this->endpoint_count_; ++j)
{
this->addrs_[j].set_port_number (port, 1);
if (TAO_debug_level > 5)
{
ORBSVCS_DEBUG ((LM_DEBUG,
ACE_TEXT ("TAO (%P|%t) - UIPMC_Acceptor::open_i, ")
ACE_TEXT ("listening on: <%C:%u>\n"),
this->hosts_[j],
this->addrs_[j].get_port_number ()));
}
}
return 0;
}
int
TAO_UIPMC_Acceptor::hostname (
TAO_ORB_Core *,
ACE_INET_Addr &addr,
char *&host,
const char *)
{
// Only have dotted decimal addresses for multicast.
return this->dotted_decimal_address (addr, host);
}
int
TAO_UIPMC_Acceptor::dotted_decimal_address (
ACE_INET_Addr &addr,
char *&host)
{
char tmp[INET6_ADDRSTRLEN];
if (!addr.get_host_addr (tmp, sizeof tmp))
{
if (TAO_debug_level)
ORBSVCS_DEBUG ((LM_DEBUG,
ACE_TEXT ("TAO (%P|%t) - UIPMC_Acceptor::")
ACE_TEXT ("dotted_decimal_address, cannot determine ")
ACE_TEXT ("hostname (Errno: '%m')\n")));
return -1;
}
host = CORBA::string_dup (tmp);
return 0;
}
CORBA::ULong
TAO_UIPMC_Acceptor::endpoint_count (void)
{
return this->endpoint_count_;
}
int
TAO_UIPMC_Acceptor::object_key (
IOP::TaggedProfile &,
TAO::ObjectKey &)
{
// No object key to extract. Just return success.
return 1;
}
int
TAO_UIPMC_Acceptor::parse_options (const char *str)
{
if (str == 0)
return 0; // No options to parse. Not a problem.
// Use an option format similar to the one used for CGI scripts in
// HTTP URLs.
// e.g.: option1=foo&option2=bar
ACE_CString options (str);
size_t len = options.length ();
const char option_delimiter = '&';
// Count the number of options.
CORBA::ULong option_count = 1;
// Only check for endpoints after the protocol specification and
// before the object key.
for (size_t i = 0; i < len; ++i)
if (options[i] == option_delimiter)
++option_count;
// The idea behind the following loop is to split the options into
// (option, name) pairs.
// For example,
// `option1=foo&option2=bar'
// will be parsed into:
// `option1=foo'
// `option2=bar'
ACE_CString::size_type begin = 0;
ACE_CString::size_type end = 0;
for (CORBA::ULong j = 0u; j < option_count;)
{
if (j < option_count - 1)
end = options.find (option_delimiter, begin);
else
end = len;
++j; // In this way we fight MS VS warning about unreachable code.
if (end == begin)
ORBSVCS_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("TAO (%P|%t) Zero length UIPMC option.\n")),
-1);
else if (end != ACE_CString::npos)
{
ACE_CString opt = options.substring (begin, end);
ACE_CString::size_type const slot = opt.find ("=");
if (slot == len - 1
|| slot == ACE_CString::npos)
ORBSVCS_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("TAO (%P|%t) UIPMC option <%s> is ")
ACE_TEXT ("missing a value.\n"),
opt.c_str ()),
-1);
ACE_CString name = opt.substring (0, slot);
ACE_CString value = opt.substring (slot + 1);
begin = end + 1;
if (name.length () == 0)
ORBSVCS_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("TAO (%P|%t) Zero length UIPMC ")
ACE_TEXT ("option name.\n")),
-1);
if (name == "priority")
{
ORBSVCS_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("TAO (%P|%t) Invalid UIPMC endpoint format: ")
ACE_TEXT ("endpoint priorities no longer supported.\n"),
value.c_str ()),
-1);
}
else
ORBSVCS_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("TAO (%P|%t) Invalid UIPMC option: <%s>\n"),
name.c_str ()),
-1);
}
else
break; // No other options.
}
return 0;
}
TAO_END_VERSIONED_NAMESPACE_DECL
|