extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-01-26 07:29:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

Make 'map_old_actions' a little cleaner

Browse Source
This commit is contained in:
Tom Eastep 2009-09-09 12:37:49 -07:00
parent 7c1dd35a00
commit 212937a29d
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
Shorewall/Perl/Shorewall/Actions.pm
View File

@ -268,25 +268,29 @@ sub add_requiredby ( $$ ) {
#
# Map pre-3.0 actions to the corresponding Macro invocation
#
sub find_old_action ( $$$ ) {
my ( $target, $macro, $param ) = @_;
if ( my $actiontype = find_macro( $macro ) ) {
( $macro, $actiontype , $param );
} else {
( $target, 0, '' );
}
}
sub map_old_actions( $ ) {
my $target = shift;
my $macro;
my $param;
if ( $target =~ /^Allow(.*)$/ ) {
$macro = $1;
$param = 'ACCEPT';
} elsif ( $target =~ /^Drop(.*)$/ ) {
$macro = $1;
$param = 'DROP';
find_old_action( $target, $1, 'ACCEPT' );
} elsif ( $target =~ /^Drop(.*)$/ ) {
find_old_action( $target, $1, 'DROP' );
} elsif ( $target = /^Reject(.*)$/ ) {
$macro = $1;
$param = 'REJECT';
find_old_action( $target, $1, 'REJECT' );
} else {
return ( $target, 0, '' );
( $target, 0, '' );
}
( $macro, find_macro( $macro ) , $param );
}
#