extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-16 11:20:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

Modify compiler to be able to run under 3.4

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5497 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-11 21:23:55 +00:00
parent 8c062d98c6
commit c50bbf2255
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
New/compiler.pl
View File

@ -95,6 +95,7 @@ my %config = ( STARTUP_ENABLED => undef,
USE_ACTIONS=> undef,
OPTIMIZE => undef,
EXPORTPARAMS => undef,
EXPERIMENTAL => undef,
#
# Packet Disposition
#
@ -5434,6 +5435,8 @@ sub compile_firewall( $ ) {
fatal_error "$@" if $@;
copy find_file 'prog.header';
my $date = localtime;
emit "#\n# Compiled firewall script generated by Shorewall $env{VERSION} - $date\n#";
@ -5473,14 +5476,15 @@ sub compile_firewall( $ ) {
$indent = ' ';
while ( my ( $option, $value ) = ( each %config ) ) {
emit "${option}=${value}";
$value |= '';
emit "${option}=\"${value}\"";
}
emit '}';
$indent = '';
copy "$env{SHAREDIR}/prog.functions";
copy find_file 'prog.functions';
}
#
@ -5563,6 +5567,7 @@ sub compile_firewall( $ ) {
#
unless ( $command eq 'check' ) {
progress_message2 "Creating iptables-restore input..."; create_iptables_restore_file;
copy find_file 'prog.footer';
$file = "$dir/$file";
rename $tempfile, $file;
chmod 0700, $file;