server/ext/tcp_flashpolicy.ext

#! perl # optional depends=tcp

# permissive flash policy socket server

our $DETECTOR = ext::tcp::register flashpolicy => 23, sub {
   m{^<policy-file-request/>\x00}
}, sub {
   # socket policy file, just write answer and hope the kernel accepts it in one go
   syswrite $_[1], <<EOF . "\x00";
<?xml version="1.0"?>
<!DOCTYPE cross-domain-policy SYSTEM "http://www.adobe.com/xml/dtds/cross-domain-policy.dtd">
<cross-domain-policy>
    <allow-access-from domain="*" to-ports="*"/>
</cross-domain-policy>
EOF
}

Revision:	1.1
Committed:	Tue Nov 6 01:25:48 2012 UTC (11 years, 6 months ago) by root
Branch:	MAIN
CVS Tags:	rel-3_1, HEAD
Log Message:	* empty log message *
#	Content
1	#! perl # optional depends=tcp
2
3	# permissive flash policy socket server
4
5	our $DETECTOR = ext::tcp::register flashpolicy => 23, sub {
6	m{^<policy-file-request/>\x00}
7	}, sub {
8	# socket policy file, just write answer and hope the kernel accepts it in one go
9	syswrite $_[1], <<EOF . "\x00";
10	<?xml version="1.0"?>
11	<!DOCTYPE cross-domain-policy SYSTEM "http://www.adobe.com/xml/dtds/cross-domain-policy.dtd">
12	<cross-domain-policy>
13	<allow-access-from domain="" to-ports=""/>
14	</cross-domain-policy>
15	EOF
16	}
17