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

2
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,

5
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 ) {