@@ -12,7 +12,8 @@ $s = socket_create(AF_INET6, SOCK_DGRAM, SOL_UDP);
12
12
if ($ s === false ) {
13
13
die ("skip unable to create socket " );
14
14
}
15
- $ br = socket_bind ($ s , ':: ' , 3000 );
15
+ $ br = socket_bind ($ s , ':: ' , 0 );
16
+ socket_getsockname ($ s , $ unused , $ port );
16
17
/* On Linux, there is no route ff00::/8 by default on lo, which makes it
17
18
* troublesome to send multicast traffic from lo, which we must since
18
19
* we're dealing with interface-local traffic... */
@@ -23,7 +24,7 @@ $so = @socket_set_option($s, IPPROTO_IPV6, MCAST_JOIN_GROUP, array(
23
24
if ($ so === false ) {
24
25
die ('skip unable to join multicast group on any interface. ' );
25
26
}
26
- $ r = socket_sendto ($ s , $ m = "testing packet " , strlen ($ m ), 0 , 'ff01::114 ' , 3000 );
27
+ $ r = socket_sendto ($ s , $ m = "testing packet " , strlen ($ m ), 0 , 'ff01::114 ' , $ port );
27
28
if ($ r === false ) {
28
29
die ('skip unable to send multicast packet. ' );
29
30
}
@@ -59,23 +60,24 @@ var_dump($sends1);
59
60
echo "creating receive socket \n" ;
60
61
$ s = socket_create ($ domain , SOCK_DGRAM , SOL_UDP ) or die ("err " );
61
62
var_dump ($ s );
62
- $ br = socket_bind ($ s , '::0 ' , 3000 ) or die ("err " );
63
+ $ br = socket_bind ($ s , '::0 ' , 0 ) or die ("err " );
63
64
var_dump ($ br );
65
+ socket_getsockname ($ s , $ unused , $ port );
64
66
65
67
$ so = socket_set_option ($ s , $ level , MCAST_JOIN_GROUP , array (
66
68
"group " => $ mcastaddr ,
67
69
"interface " => $ interface ,
68
70
)) or die ("err " );
69
71
var_dump ($ so );
70
72
71
- $ r = socket_sendto ($ sends1 , $ m = "testing packet " , strlen ($ m ), 0 , $ mcastaddr , 3000 );
73
+ $ r = socket_sendto ($ sends1 , $ m = "testing packet " , strlen ($ m ), 0 , $ mcastaddr , $ port );
72
74
var_dump ($ r );
73
75
checktimeout ($ s , 500 );
74
76
$ r = socket_recvfrom ($ s , $ str , 2000 , 0 , $ from , $ fromPort );
75
77
var_dump ($ r , $ str , $ from );
76
78
$ sblock = $ from ;
77
79
78
- $ r = socket_sendto ($ sends1 , $ m = "initial packet " , strlen ($ m ), 0 , $ mcastaddr , 3000 );
80
+ $ r = socket_sendto ($ sends1 , $ m = "initial packet " , strlen ($ m ), 0 , $ mcastaddr , $ port );
79
81
var_dump ($ r );
80
82
81
83
$ i = 0 ;
@@ -91,9 +93,9 @@ if ($i == 1) {
91
93
"interface " => $ interface ,
92
94
));
93
95
var_dump ($ so );
94
- $ r = socket_sendto ($ sends1 , $ m = "ignored mcast packet " , strlen ($ m ), 0 , $ mcastaddr , 3000 );
96
+ $ r = socket_sendto ($ sends1 , $ m = "ignored mcast packet " , strlen ($ m ), 0 , $ mcastaddr , $ port );
95
97
var_dump ($ r );
96
- $ r = socket_sendto ($ sends1 , $ m = "unicast packet " , strlen ($ m ), 0 , "::1 " , 3000 );
98
+ $ r = socket_sendto ($ sends1 , $ m = "unicast packet " , strlen ($ m ), 0 , "::1 " , $ port );
97
99
var_dump ($ r );
98
100
}
99
101
if ($ i == 2 ) {
@@ -103,7 +105,7 @@ if ($i == 2) {
103
105
"interface " => $ interface ,
104
106
));
105
107
var_dump ($ so );
106
- $ r = socket_sendto ($ sends1 , $ m = "mcast packet " , strlen ($ m ), 0 , $ mcastaddr , 3000 );
108
+ $ r = socket_sendto ($ sends1 , $ m = "mcast packet " , strlen ($ m ), 0 , $ mcastaddr , $ port );
107
109
var_dump ($ r );
108
110
}
109
111
if ($ i == 3 ) {
@@ -114,9 +116,9 @@ if ($i == 3) {
114
116
"source " => $ sblock ,
115
117
));
116
118
var_dump ($ so );
117
- $ r = socket_sendto ($ sends1 , $ m = "ignored packet (blocked source) " , strlen ($ m ), 0 , $ mcastaddr , 3000 );
119
+ $ r = socket_sendto ($ sends1 , $ m = "ignored packet (blocked source) " , strlen ($ m ), 0 , $ mcastaddr , $ port );
118
120
var_dump ($ r );
119
- $ r = socket_sendto ($ sends1 , $ m = "unicast packet " , strlen ($ m ), 0 , "::1 " , 3000 );
121
+ $ r = socket_sendto ($ sends1 , $ m = "unicast packet " , strlen ($ m ), 0 , "::1 " , $ port );
120
122
var_dump ($ r );
121
123
}
122
124
if ($ i == 4 ) {
@@ -127,7 +129,7 @@ if ($i == 4) {
127
129
"source " => $ sblock ,
128
130
));
129
131
var_dump ($ so );
130
- $ r = socket_sendto ($ sends1 , $ m = "mcast packet " , strlen ($ m ), 0 , $ mcastaddr , 3000 );
132
+ $ r = socket_sendto ($ sends1 , $ m = "mcast packet " , strlen ($ m ), 0 , $ mcastaddr , $ port );
131
133
var_dump ($ r );
132
134
}
133
135
if ($ i == 5 ) {
@@ -137,9 +139,9 @@ if ($i == 5) {
137
139
"interface " => $ interface ,
138
140
));
139
141
var_dump ($ so );
140
- $ r = socket_sendto ($ sends1 , $ m = "ignored mcast packet " , strlen ($ m ), 0 , $ mcastaddr , 3000 );
142
+ $ r = socket_sendto ($ sends1 , $ m = "ignored mcast packet " , strlen ($ m ), 0 , $ mcastaddr , $ port );
141
143
var_dump ($ r );
142
- $ r = socket_sendto ($ sends1 , $ m = "unicast packet " , strlen ($ m ), 0 , "::1 " , 3000 );
144
+ $ r = socket_sendto ($ sends1 , $ m = "unicast packet " , strlen ($ m ), 0 , "::1 " , $ port );
143
145
var_dump ($ r );
144
146
}
145
147
if ($ i == 6 ) {
@@ -150,7 +152,7 @@ if ($i == 6) {
150
152
"source " => $ sblock ,
151
153
));
152
154
var_dump ($ so );
153
- $ r = socket_sendto ($ sends1 , $ m = "mcast packet from desired source " , strlen ($ m ), 0 , $ mcastaddr , 3000 );
155
+ $ r = socket_sendto ($ sends1 , $ m = "mcast packet from desired source " , strlen ($ m ), 0 , $ mcastaddr , $ port );
154
156
var_dump ($ r );
155
157
}
156
158
if ($ i == 7 ) {
@@ -161,9 +163,9 @@ if ($i == 7) {
161
163
"source " => $ sblock ,
162
164
));
163
165
var_dump ($ so );
164
- $ r = socket_sendto ($ sends1 , $ m = "ignored mcast packet " , strlen ($ m ), 0 , $ mcastaddr , 3000 );
166
+ $ r = socket_sendto ($ sends1 , $ m = "ignored mcast packet " , strlen ($ m ), 0 , $ mcastaddr , $ port );
165
167
var_dump ($ r );
166
- $ r = socket_sendto ($ sends1 , $ m = "unicast packet " , strlen ($ m ), 0 , "::1 " , 3000 );
168
+ $ r = socket_sendto ($ sends1 , $ m = "unicast packet " , strlen ($ m ), 0 , "::1 " , $ port );
167
169
var_dump ($ r );
168
170
}
169
171
if ($ i == 8 ) {
0 commit comments