27 |
use Libconf::Glueconf::Shell; |
use Libconf::Glueconf::Shell; |
28 |
use Libconf::Glueconf::Resolv; |
use Libconf::Glueconf::Resolv; |
29 |
use Libconf::Glueconf::Hosts; |
use Libconf::Glueconf::Hosts; |
30 |
|
use Libconf::Glueconf::Network; |
31 |
use Libconf::System::DirectoryWrapper; |
use Libconf::System::DirectoryWrapper; |
32 |
|
|
33 |
@ISA = qw(Libconf); |
@ISA = qw(Libconf); |
36 |
my ($pkg) = @_; |
my ($pkg) = @_; |
37 |
tie my %h_interfaces, 'Libconf::System::DirectoryWrapper', '/etc/sysconfig/network-scripts', 'ifcfg-*', 'shell'; |
tie my %h_interfaces, 'Libconf::System::DirectoryWrapper', '/etc/sysconfig/network-scripts', 'ifcfg-*', 'shell'; |
38 |
bless { |
bless { |
39 |
general => new Libconf::Glueconf::Shell('/etc/sysconfig/network'), |
general => new Libconf::Glueconf::Network('/etc/sysconfig/network'), |
40 |
dns => new Libconf::Glueconf::Resolv('/etc/resolv.conf'), |
dns => new Libconf::Glueconf::Resolv('/etc/resolv.conf'), |
41 |
interfaces => \%h_interfaces, |
interfaces => \%h_interfaces, |
42 |
hosts => new Libconf::Glueconf::Hosts('/etc/hosts'), |
hosts => new Libconf::Glueconf::Hosts('/etc/hosts'), |