{
    $OUT = "";
    if ((%pptpd) and (exists $pptpd{Interfaces}))
    {
	$OUT .=<<'EOF';
    OLD_PPPconn=$(get_safe_id PPPconn filter find)
    NEW_PPPconn=$(get_safe_id PPPconn filter new)
    /sbin/iptables --new-chain $NEW_PPPconn
EOF
    }
}
