-if (!GetOptions ('allow-from=s@' => \$opt_allow_from,
- 'deny-from=s@' => \$opt_deny_from,
- 'policy=s' => \$opt_policy,
- 'debug' => \$opt_debug)) {
- die "usage: $0 [--allow-from CIDR{,CIRD}] [--deny-from CIDR{,CIRD}] [--policy (allow|deny)] [--debug]\n";
-}
-
-$opt_deny_from = [ split(/,/, join(',', @$opt_deny_from)) ] if $opt_deny_from;
-$opt_allow_from = [ split(/,/, join(',', @$opt_allow_from)) ] if $opt_allow_from;
-
-die "unknown policy '$opt_policy'\n" if $opt_policy && $opt_policy !~ m/^(allow|deny)$/;
-
-if ($opt_deny_from) {
- my $ips = [];
- foreach my $ip (@$opt_deny_from) {
- $ip = "0/0" if $ip eq 'all';
- push @$ips, Net::IP->new($ip) || die Net::IP::Error() . "\n";
- }
-
- $opt_deny_from = $ips;
-}
-
-if ($opt_allow_from) {
- my $ips = [];
- foreach my $ip (@$opt_allow_from) {
- $ip = "0/0" if $ip eq 'all';
- push @$ips, Net::IP->new($ip) || die Net::IP::Error() . "\n";
- }
- $opt_allow_from = $ips;