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 *
#	User	Rev	Content
1	root	1.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