if (! -s "$outfwsettings") {
print "Empty DMZ configuration file. Nothing to do. Exiting...\n";
+ #Fill the firewall settings file
+ open (SETTINGS, ">/var/ipfire/firewall/settings");
+ print SETTINGS "POLICY=MODE2\n";
+ print SETTINGS "POLICY1=MODE2\n";
+ close (SETTINGS);
exit(0);
}
$grp1='std_net_src';
$source='ORANGE';
}elsif ($configline[2] eq 'red') {
- $grp1='std_net_src';
- $source='IPFire';
+ $grp1='ipfire_src';
+ $source='RED1';
&General::readhash($fwdfwsettings,\%fwdsettings);
$fwdsettings{'POLICY1'}=$outsettings{'POLICY'};
$fwdsettings{'POLICY'}=$outsettings{'POLICY'};
my $chain;
foreach my $protocol (@prot){
my $now=localtime;
- if ($source eq 'IPFire'){
+ if ($source eq 'RED1'){
$chain='OUTGOINGFW';
}else{
$chain='FORWARDFW';