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