Policy и сокеты.

[Resonan]

Целый день ушел в пустую :/
Есть простой демон на перле:

use IO::Socket;

my $serv = IO::Socket::INET->new(
      LocalPort => 7777,
      Proto     => 'tcp',
      Listen    => 10,
      Reuse     => 1)
   or die "fig";

$police='<cross-domain-policy><allow-access-from-domain="*" to-ports="7777" /></cross-domain-policy>';

while (my $cl = $serv->accept()) {
   my $msg = <$cl>;
   if ($msg eq '<policy-file-request/>') {
       print $cl "$police";
       warn "Request\n";
       close $cl;
   } else {
        warn "Connected\n";
   }
}
close $serv;

и флешка:

package {
 import flash.display.*;
 import flash.events.*;
 import flash.net.*;
 import flash.text.*;
 
 public class sockConn extends Sprite {
	 function sockConn() {
		var socket = new Socket();
		socket.addEventListener (Event.CONNECT, connLis);
 
		socket.connect ('localhost', 7777);
	 }
 
	 function connLis (e:Event):void {
		 text1.appendText("connected\n");
	 }
 }
}

Флешка подключается, запрашивает полис, демон благополучно его отдает, и все :/

[Psycho Tiger]

А в чем проблема?..

[etc]

Забыли нулевой байт в сокет отправить.

[Resonan]

Сообщение от __etc

Забыли нулевой байт в сокет отправить.

PHP код:

$police='<cross-domain-policy><allow-access-from-domain="*" to-ports="7777" /></cross-domain-policy>\0'; 


так?

Сообщение от Psycho Tiger

А в чем проблема?..

text1 не выводит connected

[etc]

Сообщение от Resonan

так?

Не думаю. Нужно отправить именно нулевой байт, а не строковое значение.

[Resonan]

Сообщение от __etc

Не думаю. Нужно отправить именно нулевой байт, а не строковое значение.

Вот тут у меня тупик. Каким образом это делается?

[dimarik]

может так?
$police='<cross-domain-policy><allow-access-from-domain="*" to-ports="7777" /></cross-domain-policy>'."\0";

В двойных кавычках содержимое интерпретируется. В одинарных - представляет собой стринг как есть.

Может можно и как $police='<cross-domain-policy><allow-access-from-domain="*" to-ports="7777" /></cross-domain-policy>'.0;

Давно с перлом не общался. Могу ошибаться.

[Resonan]

Вышел из тупика
http://www.adobe.com/devnet/flashpla...icy_files.html
если кому интересно, по перлу и питону.

Сообщение от dimarik

может так?
$police='<cross-domain-policy><allow-access-from-domain="*" to-ports="7777" /></cross-domain-policy>'."\0";

В двойных кавычках содержимое интерпретируется. В одинарных - представляет собой стринг как есть.

Может можно и как $police='<cross-domain-policy><allow-access-from-domain="*" to-ports="7777" /></cross-domain-policy>'.0;

Давно с перлом не общался. Могу ошибаться.

$NULLBYTE = pack( 'c', 0 );


В любом случае, всем спасиб