{
    $OUT = "";
    if ((%pptpd) and (exists $pptpd{Interfaces}))
    {
	my @interfaces = split /,/, $pptpd{Interfaces};
	foreach my $interface (sort @interfaces)
	{
	    $OUT .=<<"EOF";
    /sbin/iptables --insert \$NEW_PPPconn --in-interface $interface -j ACCEPT
    /sbin/iptables --insert \$NEW_PPPconn --out-interface $interface -j ACCEPT
EOF
	}
    }
}
