| 1580 | | unless ($NAT_access_str =~ /^$ip_re,\d+$/) { |
|---|
| 1581 | | die "[*] Must specify '<internal_IP>,<external_port>'"; |
|---|
| 1582 | | } |
|---|
| 1583 | | } |
|---|
| | 1580 | unless ($NAT_access_str =~ /^$ip_re,\d+$/ |
|---|
| | 1581 | or $NAT_access_str =~ /^$ip_re:\d+$/) { |
|---|
| | 1582 | die "[*] Must specify '<internal_IP>:<external_port>'"; |
|---|
| | 1583 | } |
|---|
| | 1584 | } |
|---|
| | 1585 | |
|---|
| | 1586 | ### change ":" to "," for the fwknopd server (which uses colons |
|---|
| | 1587 | ### to separate SPA packet fields, but colons are a better |
|---|
| | 1588 | ### syntax for the fwknop command line) |
|---|
| | 1589 | $NAT_access_str =~ s/:/,/; |
|---|