Commit a910b961 authored by Jonathon Duerig's avatar Jonathon Duerig

Actually add the update file.

parent 451b93e0
# Update Flash policy server implemented via inetd
use strict;
use libinstall;
my $INETD_CONF = "/etc/inetd.conf";
my $INET_LINE = "'flashpolicy stream tcp nowait root /bin/echo /bin/echo '\\''<cross-domain-policy> <site-control permitted-cross-domain-policies=\"master-only\"/> <allow-access-from domain=\"*\" to-ports=\"80,443,$PROTOGENI_RPCPORT,$OUTERBOSS_XMLRPCPORT\"/> </cross-domain-policy>'\\'";
my $SERVICES_LINE = "'flashpolicy 843/tcp'";
sub InstallUpdate($$)
my ($version, $phase) = @_;
# If something should run in the pre-install phase.
if ($phase eq "pre") {
Phase "inetd", "Updating inetd services", sub {
Phase "inetd.conf", "Updating $INETD_CONF", sub {
ExecQuietFatal("sed -i .orig -e '/^flashpolicy/d' $INETD_CONF");
ExecQuietFatal("echo $INET_LINE >> $INETD_CONF");
Phase "inetd", "Restarting inetd", sub {
return 0;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment