immernoch das alte Problem...

[ipfire-2.x.git] / src / rc.d / helper / writeipac.pl

#!/usr/bin/perl\r
#\r
# Helper program to write a new IPAC settings file\r
#\r
# (c) Lawrence Manning, 2001\r
#\r
# $id\r
#\r
\r
use strict;\r
require 'CONFIG_ROOT/general-functions.pl';\r
\r
my %settings;\r
my $iface;\r
\r
General::readhash("${General::swroot}/ethernet/settings", \%settings);\r
\r
if (!open(FILE, '>/etc/ipac-ng/rules.conf')) {\r
	die "Unable to create /etc/ipac-ng/rules.conf"; }\r
\r
if (open(IFACE, "${General::swroot}/red/iface"))\r
{\r
	$iface = <IFACE>;\r
	close IFACE;\r
	chomp ($iface);\r
}\r
\r
print FILE "incoming GREEN ($settings{'GREEN_DEV'})|ipac~o|$settings{'GREEN_DEV'}|all|||\n";\r
print FILE "outgoing GREEN ($settings{'GREEN_DEV'})|ipac~i|$settings{'GREEN_DEV'}|all|||\n";\r
print FILE "forwarded incoming GREEN ($settings{'GREEN_DEV'})|ipac~fi|$settings{'GREEN_DEV'}|all|||\n";\r
print FILE "forwarded outgoing GREEN ($settings{'GREEN_DEV'})|ipac~fo|$settings{'GREEN_DEV'}|all|||\n";\r
\r
if ($settings{'CONFIG_TYPE'} =~ /^(1|3|5|7)$/ )\r
{\r
        print FILE "incoming ORANGE ($settings{'ORANGE_DEV'})|ipac~o|$settings{'ORANGE_DEV'}|all|||\n";\r
        print FILE "outgoing ORANGE ($settings{'ORANGE_DEV'})|ipac~i|$settings{'ORANGE_DEV'}|all|||\n";\r
        print FILE "forwarded incoming ORANGE ($settings{'ORANGE_DEV'})|ipac~fi|$settings{'ORANGE_DEV'}|all|||\n";\r
        print FILE "forwarded outgoing ORANGE ($settings{'ORANGE_DEV'})|ipac~fo|$settings{'ORANGE_DEV'}|all|||\n";\r
}\r
\r
if ($settings{'CONFIG_TYPE'} =~ /^(4|5|6|7)$/ )\r
{\r
        print FILE "incoming BLUE ($settings{'BLUE_DEV'})|ipac~o|$settings{'BLUE_DEV'}|all|||\n";\r
        print FILE "outgoing BLUE ($settings{'BLUE_DEV'})|ipac~i|$settings{'BLUE_DEV'}|all|||\n";\r
        print FILE "forwarded incoming BLUE ($settings{'BLUE_DEV'})|ipac~fi|$settings{'BLUE_DEV'}|all|||\n";\r
        print FILE "forwarded outgoing BLUE ($settings{'BLUE_DEV'})|ipac~fo|$settings{'BLUE_DEV'}|all|||\n";\r
}\r
if ($iface) {\r
	print FILE "incoming RED ($iface)|ipac~o|$iface|all|||\n";\r
	print FILE "outgoing RED ($iface)|ipac~i|$iface|all|||\n";\r
	print FILE "forwarded incoming RED ($iface)|ipac~fi|$iface|all|||\n";\r
	print FILE "forwarded outgoing RED ($iface)|ipac~fo|$iface|all|||\n";\r
}\r
\r
close FILE;\r