holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Prospective fix for Blahdeblah's /etc/protocols problem

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6685 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-06-26 23:06:34 +00:00
parent 47419bee3f
commit 379ed95564
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Shorewall-perl/buildports.pl
View File

@ -121,10 +121,14 @@ EOF
open_file 'protocols' or fatal_error "Cannot open protocols: $!";
while ( read_a_line1 ) {
my ( $proto1, $number, $proto2, $proto3 ) = split_line( 2, 4, '/etc/protocols entry');
my ( $proto1, $number, @aliases ) = split_line( 2, 10, '/etc/protocols entry');
print_it( $proto1, $number );
print_it( $proto2, $number ) unless $proto2 eq '-' || $proto3 ne '-';
for my $alias ( @aliases ) {
last if $alias eq '-';
print_it( $alias, $number );
}
}
print "\t\t );\n\n";