forked from extern/shorewall_code
Remove anachronistic functions from prog.functions
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5683 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
parent
40eaf6f671
commit
381d59995b
@ -98,6 +98,14 @@ sub fatal_error
|
||||
die;
|
||||
}
|
||||
|
||||
#
|
||||
# Pre-process a line from a configuration file.
|
||||
#
|
||||
# chomp it.
|
||||
# compress out redundent white space.
|
||||
# ensure that it has an appropriate number of columns.
|
||||
# supply '-' in omitted trailing columns.
|
||||
#
|
||||
sub split_line( $$ ) {
|
||||
my ( $columns, $description ) = @_;
|
||||
|
||||
|
@ -125,22 +125,6 @@ run_tc() {
|
||||
fi
|
||||
}
|
||||
|
||||
#
|
||||
# Functions to appease unconverted extension scripts
|
||||
#
|
||||
save_command()
|
||||
{
|
||||
return 0
|
||||
}
|
||||
|
||||
run_and_save_command() {
|
||||
eval $@
|
||||
}
|
||||
|
||||
ensure_and_save_command() {
|
||||
eval $@ || fatal_error "Command \"$@\" failed"
|
||||
}
|
||||
|
||||
restore_dynamic_rules() {
|
||||
if [ -f ${VARDIR}/save ]; then
|
||||
progress_message2 "Setting up dynamic rules..."
|
||||
|
Loading…
Reference in New Issue
Block a user