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
#
# 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 = (
ip => 0,
@ -181,7 +181,7 @@ our %protocols = (
SCTP => 132,
fc => 133,
FC => 133,
);
);
our %services = (
tcpmux => 1,
@ -570,7 +570,7 @@ our %services = (
dircproxy => 57000,
tfido => 60177,
fido => 60179,
);
);
#
# 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;
@ -68,10 +68,9 @@ print <<"EOF";
#
# Protocol and Services tables generated using buildproto.pl - $date
#
our %protocols = (
EOF
print "our %protocols = (\n";
open_file 'protocols' or fatal_error "Cannot open protocols: $!";
while ( read_a_line1 ) {
@ -81,7 +80,7 @@ while ( read_a_line1 ) {
print_it( $proto2, $number ) unless $proto2 eq '-' || $proto3 ne '-';
}
print "\t\t );\n\n";
print "\t\t );\n\n";
print "our %services = (\n";
@ -99,4 +98,4 @@ while ( read_a_line1 ) {
}
}
print "\t\t );\n";
print "\t\t );\n";