6 |
my $resolv = new Libconf::Glueconf::Resolv('resolv.conf'); |
my $resolv = new Libconf::Glueconf::Resolv('resolv.conf'); |
7 |
print Data::Dumper->Dump([$resolv], ['resolv']) . "\n"; |
print Data::Dumper->Dump([$resolv], ['resolv']) . "\n"; |
8 |
|
|
9 |
#$resolv->readConf(); |
#$resolv->{search}->[3] = 'mdk.fr'; |
10 |
|
push(@{$resolv->{nameserver}}, '192.168.76.7'); |
11 |
|
|
12 |
#print Data::Dumper->Dump([$resolv], ['resolv']) . "\n"; |
print Data::Dumper->Dump([$resolv], ['resolv']) . "\n"; |
13 |
|
|
14 |
|
splice(@{$resolv->{nameserver}}, 1, 2, '192.168.76.222', '192.168.76.223'); |
15 |
|
|
16 |
|
print Data::Dumper->Dump([$resolv], ['resolv']) . "\n"; |
17 |
|
#$resolv->writeConf(); |
18 |
|
|
|
#$resolv->{DEVICE} = 'eth1'; |
|
19 |
|
|
20 |
#print Data::Dumper->Dump([$resolv], ['resolv']) . "\n"; |
#print Data::Dumper->Dump([$resolv], ['resolv']) . "\n"; |
21 |
|
|