#! 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
}