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

Tweak buildproto.pl

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6619 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-06-20 19:49:19 +00:00
parent 3a29f37109
commit bfe9682521
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Shorewall-perl/Shorewall/Config.pm
View File

@ -89,7 +89,7 @@ our %capabilities;
# #
# /etc/protocols and /etc/services # /etc/protocols and /etc/services
# #
# Protocol and Services tables generated using buildproto.pl - Wed Jun 19 21:05:31 2007 # Protocol and Services tables generated using buildproto.pl - Wed Jun 20 12:47:57 2007
# #
our %protocols = ( our %protocols = (
ip => 0, ip => 0,
@ -181,7 +181,7 @@ our %protocols = (
SCTP => 132, SCTP => 132,
fc => 133, fc => 133,
FC => 133, FC => 133,
); );
our %services = ( our %services = (
tcpmux => 1, tcpmux => 1,
@ -570,7 +570,7 @@ our %services = (
dircproxy => 57000, dircproxy => 57000,
tfido => 60177, tfido => 60177,
fido => 60179, fido => 60179,
); );
# #
# Capabilities # Capabilities
# #

9
Shorewall-perl/buildproto.pl
View File

@ -58,7 +58,7 @@ sub print_service( $$ ) {
} }
} }
set_shorewall_dir($ARGV[0] ? $ARGV[0] : '/etc'); set_shorewall_dir($ARGV[0] || '/etc');
ensure_config_path; ensure_config_path;
@ -68,10 +68,9 @@ print <<"EOF";
# #
# Protocol and Services tables generated using buildproto.pl - $date # Protocol and Services tables generated using buildproto.pl - $date
# #
our %protocols = (
EOF EOF
print "our %protocols = (\n";
open_file 'protocols' or fatal_error "Cannot open protocols: $!"; open_file 'protocols' or fatal_error "Cannot open protocols: $!";
while ( read_a_line1 ) { while ( read_a_line1 ) {
@ -81,7 +80,7 @@ while ( read_a_line1 ) {
print_it( $proto2, $number ) unless $proto2 eq '-' || $proto3 ne '-'; print_it( $proto2, $number ) unless $proto2 eq '-' || $proto3 ne '-';
} }
print "\t\t );\n\n"; print "\t\t );\n\n";
print "our %services = (\n"; print "our %services = (\n";
@ -99,4 +98,4 @@ while ( read_a_line1 ) {
} }
} }
print "\t\t );\n"; print "\t\t );\n";