# # This software is Copyright 2005 by Elsevier Inc. You may use it # under the terms of the license at http://perl.plover.com/hop/LICENSE.txt . # ### ### read_config_userparam ### ## Chapter 2 section 1.3 sub read_config { my ($filename, $actions, $user_param) = @_; open my($CF), $filename or return; # Failure while (<$CF>) { my ($directive, $rest) = split /\s+/, $_, 2; if (exists $actions->{$directive}) { $actions->{$directive}->($rest, $userparam, $actions); } else { die "Unrecognized directive $directive on line $. of $filename; aborting"; } } return 1; # Success }