45 |
|
|
46 |
sub readConf { |
sub readConf { |
47 |
my ($self) = @_; |
my ($self) = @_; |
48 |
$self->{$_}->readConf foreach (qw(general dns)); |
$self->{$_}->readConf foreach qw(general dns); |
49 |
$_->readConf foreach values %{$self->{interfaces}} |
$_->readConf foreach values %{$self->{interfaces}} |
50 |
} |
} |
51 |
|
|
52 |
sub writeConf { |
sub writeConf { |
53 |
my ($self) = @_; |
my ($self) = @_; |
54 |
$self->{$_}->writeConf foreach (qw(general dns)); |
$self->{$_}->writeConf foreach qw(general dns); |
55 |
$_->writeConf foreach values %{$self->{interfaces}} |
$_->writeConf foreach values %{$self->{interfaces}} |
56 |
} |
} |
57 |
|
|