extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-15 12:14:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

Change several more compiler progress messages

Browse Source
This commit is contained in:
Tom Eastep 2010-12-31 14:19:31 -08:00
parent f8e04b4110
commit b36ad0d065
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shorewall/Perl/Shorewall/Chains.pm
View File

@ -1267,7 +1267,7 @@ sub ensure_accounting_chain( $$ )
my $file = find_file $chain;
if ( -f $file ) {
progress_message "Processing $file...";
progress_message "Running $file...";
my ( $level, $tag ) = ( '', '' );

6
Shorewall/Perl/Shorewall/Config.pm
View File

@ -3480,7 +3480,7 @@ sub run_user_exit( $ ) {
my $file = find_file $chainref->{name};
if ( -f $file ) {
progress_message2 "Processing $file...";
progress_message2 "Running $file...";
my $command = qq(package Shorewall::User;\nno strict;\n# line 1 "$file"\n) . `cat $file`;
@ -3501,7 +3501,7 @@ sub run_user_exit1( $ ) {
my $file = find_file $_[0];
if ( -f $file ) {
progress_message2 "Processing $file...";
progress_message2 "Running $file...";
#
# File may be empty -- in which case eval would fail
#
@ -3532,7 +3532,7 @@ sub run_user_exit2( $$ ) {
my ($file, $chainref) = ( find_file $_[0], $_[1] );
if ( -f $file ) {
progress_message2 "Processing $file...";
progress_message2 "Running $file...";
#
# File may be empty -- in which case eval would fail
#

4
Shorewall/Perl/Shorewall/Rules.pm
View File

@ -215,7 +215,7 @@ sub createlogactionchain( $$$$$ ) {
my $file = find_file $chain;
if ( -f $file ) {
progress_message "Processing $file...";
progress_message "Running $file...";
my @params = split /,/, $param;
@ -249,7 +249,7 @@ sub createsimpleactionchain( $ ) {
my $file = find_file $action;
if ( -f $file ) {
progress_message "Processing $file...";
progress_message "Running $file...";
my ( $level, $tag ) = ( '', '' );