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
|
// $Id$
#include "ace/INET_Addr.h"
#include "orbsvcs/RtecUDPAdminC.h"
#include "orbsvcs/RtecEventCommC.h"
#include "ace/OS_NS_strings.h"
const ACE_TCHAR *ior = ACE_TEXT("file://as.ior");
int
ACE_TMAIN (int argc, ACE_TCHAR *argv[])
{
try
{
CORBA::ORB_var orb =
CORBA::ORB_init (argc, argv);
for (int i = 1; i < argc; i++)
{
if (ACE_OS::strcasecmp(argv[i], ACE_TEXT("-k")) == 0)
{
if (argv[i+1] != 0)
ior = argv[++i];
}
else
ACE_ERROR_RETURN ((LM_ERROR,
"usage: %s "
"-k <ior> "
"\n",
argv [0]),
1);
}
CORBA::Object_var tmp =
orb->string_to_object(ior);
RtecUDPAdmin::AddrServer_var as =
RtecUDPAdmin::AddrServer::_narrow (tmp.in());
if (CORBA::is_nil (as.in ()))
{
ACE_ERROR_RETURN ((LM_DEBUG,
"Nil AddrServer reference <%s>\n",
ior),
1);
}
RtecEventComm::EventHeader header;
header.type = 0;
ACE_INET_Addr addr;
ACE_INET_Addr inet_addr;
try
{
RtecUDPAdmin::UDP_Address_var udp_addr;
as->get_address (header, udp_addr.out());
switch (udp_addr->_d())
{
case RtecUDPAdmin::Rtec_inet:
inet_addr.set(udp_addr->v4_addr().port,
udp_addr->v4_addr().ipaddr);
break;
case RtecUDPAdmin::Rtec_inet6:
#if defined (ACE_HAS_IPV6)
inet_addr.set_type(PF_INET6);
inet_addr.set_address(udp_addr->v6_addr().ipaddr,16,0);
inet_addr.set_port_number(udp_addr->v6_addr().port);
#else
ACE_ERROR_RETURN ((LM_ERROR,
"ERROR: address server returned "
"an unusable IPv6 address\n"),
1);
#endif /* ACE_HAS_IPV6 */
break;
}
}
catch (const ::CORBA::BAD_OPERATION &)
{
// server only supports IPv4
// Grab the right mcast group for this event...
RtecUDPAdmin::UDP_Addr udp_addr;
as->get_addr (header, udp_addr);
inet_addr.set (udp_addr.port, udp_addr.ipaddr);
}
ACE_TCHAR buffer[256];
inet_addr.addr_to_string (buffer,256);
ACE_DEBUG ((LM_DEBUG,"Should be IPv4: %s\n",buffer));
ACE_OS::memset (buffer,0,255);
header.type = 1;
try
{
RtecUDPAdmin::UDP_Address_var udp_addr;
as->get_address (header, udp_addr.out());
switch (udp_addr->_d())
{
case RtecUDPAdmin::Rtec_inet:
inet_addr.set(udp_addr->v4_addr().port,
udp_addr->v4_addr().ipaddr);
break;
case RtecUDPAdmin::Rtec_inet6:
#if defined (ACE_HAS_IPV6)
inet_addr.set_type(PF_INET6);
inet_addr.set_address(udp_addr->v6_addr().ipaddr,16,0);
inet_addr.set_port_number(udp_addr->v6_addr().port);
#else
ACE_ERROR_RETURN ((LM_ERROR,
"ERROR: address server returned "
"an unusable IPv6 address\n"),
1);
#endif /* ACE_HAS_IPV6 */
break;
}
}
catch (const ::CORBA::BAD_OPERATION &)
{
// server only supports IPv4
// Grab the right mcast group for this event...
RtecUDPAdmin::UDP_Addr udp_addr;
as->get_addr (header, udp_addr);
inet_addr.set (udp_addr.port, udp_addr.ipaddr);
}
ACE_OS::memset(buffer,0,256);
inet_addr.addr_to_string (buffer,256);
ACE_DEBUG ((LM_DEBUG,"Should be IPv6: %s\n",buffer));
orb->destroy ();
}
catch (const CORBA::Exception& ex)
{
ex._tao_print_exception ("Exception caught:");
return 1;
}
return 0;
}
|
