Report the file/line where action invoked

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2017-03-05 09:29:00 -08:00
parent 63ec936f21
commit c1e7fce1c5
No known key found for this signature in database
GPG Key ID: 96E6B3F2423A4D10

View File

@ -2999,8 +2999,8 @@ sub process_compiler_directive( $$$$ ) {
$filename ,
$linenumber ,
1 ) ,
$filename ,
$linenumber ) unless $omitting;
$actparams{callfile} ,
$actparams{callline} ) unless $omitting;
} ,
WARNING => sub() {
@ -3009,8 +3009,8 @@ sub process_compiler_directive( $$$$ ) {
$filename ,
$linenumber ,
1 ),
$filename ,
$linenumber ) unless $omitting;
$actparams{callfile} ,
$actparams{callline} ) unless $omitting;
} ,
INFO => sub() {
@ -3019,8 +3019,8 @@ sub process_compiler_directive( $$$$ ) {
$filename ,
$linenumber ,
1 ),
$filename ,
$linenumber ) unless $omitting;
$actparams{callfile} ,
$actparams{callline} ) unless $omitting;
} ,
'WARNING!' => sub() {
@ -3029,8 +3029,8 @@ sub process_compiler_directive( $$$$ ) {
$filename ,
$linenumber ,
1 ),
$filename ,
$linenumber ) unless $omitting;
$actparams{callfile} ,
$actparams{callline} ) unless $omitting;
} ,
'INFO!' => sub() {
@ -3039,8 +3039,8 @@ sub process_compiler_directive( $$$$ ) {
$filename ,
$linenumber ,
1 ),
$filename ,
$linenumber ) unless $omitting;
$actparams{callfile} ,
$actparams{callline} ) unless $omitting;
} ,
REQUIRE => sub() {
@ -3548,6 +3548,8 @@ sub push_action_params( $$$$$$ ) {
$actparams{logtag} = $logtag;
$actparams{caller} = $caller;
$actparams{disposition} = '' if $chainref->{action};
$actparams{callfile} = $currentfilename;
$actparams{callline} = $currentlinenumber;
#
# The Shorewall variable '@chain' has non-word characters other than hyphen removed
#