X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=config%2Ffirewall%2Fconvert-xtaccess;h=d11e09c7c6622fa7d982ba6b2aca625a67eaa61f;hb=c366dbb4337921e3e581498bc2b85f787a6913f4;hp=d86c445afc2067b905f93181e0977c28543d6e97;hpb=6921f0ea0a62b09fd3bb9772ffc50b86b49bef97;p=ipfire-2.x.git diff --git a/config/firewall/convert-xtaccess b/config/firewall/convert-xtaccess index d86c445afc..d11e09c7c6 100755 --- a/config/firewall/convert-xtaccess +++ b/config/firewall/convert-xtaccess @@ -28,7 +28,7 @@ my @alias=(); my %configinputfw=(); require '/var/ipfire/general-functions.pl'; my $xtaccessconfig = "${General::swroot}/xtaccess/config"; -my $inputfwconfig = "${General::swroot}/forward/input"; +my $inputfwconfig = "${General::swroot}/firewall/input"; my $aliasconfig = "${General::swroot}/ethernet/aliases"; my $field0='ACCEPT'; my $field1='INPUTFW'; @@ -49,6 +49,17 @@ my $field28 = ''; my $field29 = 'ALL'; my $field30 = ''; my $field31 = 'dnat'; + +if (! -e "$xtaccessconfig") { + print "Config file for external access not found. Exiting!\n"; + exit(1); +} + +if (! -s "$xtaccessconfig") { + print "Empty external access configuration file. Nothing to do. Exiting...\n"; + exit(0); +} + open(FILE, $xtaccessconfig) or die 'Unable to open config file.'; my @current = ; close(FILE); @@ -113,12 +124,12 @@ foreach my $line (@current){ $configinputfw{$key}[5] = $field5; $configinputfw{$key}[6] = $field6; $configinputfw{$key}[7] = ''; - $configinputfw{$key}[8] = ''; + $configinputfw{$key}[8] = $field12; $configinputfw{$key}[9] = ''; $configinputfw{$key}[10] = ''; $configinputfw{$key}[11] = $field11; - $configinputfw{$key}[12] = $field12; - $configinputfw{$key}[13] = $field13; + $configinputfw{$key}[12] = ''; + $configinputfw{$key}[13] = ''; $configinputfw{$key}[14] = $field14; $configinputfw{$key}[15] = $field15; $configinputfw{$key}[16] = $field16;