&General::readhasharray("$configipsec", \%ipsecconf);
&General::readhasharray("$configsrv", \%customservice);
&General::readhasharray("$configsrvgrp", \%customservicegrp);
+&General::get_aliases(\%aliases);
sub get_srv_prot
{
# Aliases
} else {
- my %alias = &get_alias($value);
- if (%alias) {
- push(@ret, $alias{"IPT"});
+ my $alias = &get_alias($value);
+ if ($alias) {
+ push(@ret, $alias);
}
}
foreach my $alias (sort keys %aliases) {
if ($id eq $alias) {
- return $aliases{$alias};
+ return $aliases{$alias}{"IPT"};
}
}
}
-sub get_nat_address
-{
+
+sub get_nat_address {
my $zone = shift;
my $source = shift;
} elsif ($zone eq "RED" || $zone eq "GREEN" || $zone eq "ORANGE" || $zone eq "BLUE") {
return $netsettings{$zone . "_ADDRESS"};
- } elsif ($zone eq "Default IP") {
+ } elsif ($zone ~~ ["Default IP", "ALL"]) {
return &get_external_address();
} else {
- return &get_alias($zone);
+ my $alias = &get_alias($zone);
+ unless ($alias) {
+ $alias = &get_external_address();
+ }
+ return $alias;
}
print_error("Could not find NAT address");
}
+
sub get_internal_firewall_ip_addresses
{
my $use_orange = shift;
my %configinputfw=();
my %configoutgoingfw=();
my %confignatfw=();
-my %aliases=();
my @p2ps=();
my $configfwdfw = "${General::swroot}/firewall/config";
&General::readhasharray($configinput, \%configinputfw);
&General::readhasharray($configoutgoing, \%configoutgoingfw);
&General::readhasharray($configgrp, \%customgrp);
-&General::get_aliases(\%aliases);
my @log_limit_options = &make_log_limit_options();