]>
git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blob - src/rc.d/helper/writeipac.pl
3 # Helper program to write a new IPAC settings file
5 # (c) Lawrence Manning, 2001
11 require 'CONFIG_ROOT/general-functions.pl';
16 General
::readhash
("${General::swroot}/ethernet/settings", \
%settings);
18 if (!open(FILE
, '>/etc/ipac-ng/rules.conf')) {
19 die "Unable to create /etc/ipac-ng/rules.conf"; }
21 if (open(IFACE
, "${General::swroot}/red/iface"))
28 print FILE
"incoming GREEN ($settings{'GREEN_DEV'})|ipac~o|$settings{'GREEN_DEV'}|all|||\n";
29 print FILE
"outgoing GREEN ($settings{'GREEN_DEV'})|ipac~i|$settings{'GREEN_DEV'}|all|||\n";
30 print FILE
"forwarded incoming GREEN ($settings{'GREEN_DEV'})|ipac~fi|$settings{'GREEN_DEV'}|all|||\n";
31 print FILE
"forwarded outgoing GREEN ($settings{'GREEN_DEV'})|ipac~fo|$settings{'GREEN_DEV'}|all|||\n";
33 if ($settings{'CONFIG_TYPE'} =~ /^(1|3|5|7)$/ )
35 print FILE
"incoming ORANGE ($settings{'ORANGE_DEV'})|ipac~o|$settings{'ORANGE_DEV'}|all|||\n";
36 print FILE
"outgoing ORANGE ($settings{'ORANGE_DEV'})|ipac~i|$settings{'ORANGE_DEV'}|all|||\n";
37 print FILE
"forwarded incoming ORANGE ($settings{'ORANGE_DEV'})|ipac~fi|$settings{'ORANGE_DEV'}|all|||\n";
38 print FILE
"forwarded outgoing ORANGE ($settings{'ORANGE_DEV'})|ipac~fo|$settings{'ORANGE_DEV'}|all|||\n";
41 if ($settings{'CONFIG_TYPE'} =~ /^(4|5|6|7)$/ )
43 print FILE
"incoming BLUE ($settings{'BLUE_DEV'})|ipac~o|$settings{'BLUE_DEV'}|all|||\n";
44 print FILE
"outgoing BLUE ($settings{'BLUE_DEV'})|ipac~i|$settings{'BLUE_DEV'}|all|||\n";
45 print FILE
"forwarded incoming BLUE ($settings{'BLUE_DEV'})|ipac~fi|$settings{'BLUE_DEV'}|all|||\n";
46 print FILE
"forwarded outgoing BLUE ($settings{'BLUE_DEV'})|ipac~fo|$settings{'BLUE_DEV'}|all|||\n";
49 print FILE
"incoming RED ($iface)|ipac~o|$iface|all|||\n";
50 print FILE
"outgoing RED ($iface)|ipac~i|$iface|all|||\n";
51 print FILE
"forwarded incoming RED ($iface)|ipac~fi|$iface|all|||\n";
52 print FILE
"forwarded outgoing RED ($iface)|ipac~fo|$iface|all|||\n";