256 |
debug "value : $value"; |
debug "value : $value"; |
257 |
my @pos = $obj->{libconf}->findAtomPos({ type => 'VALUE', type2 => 'RESOLV_DOMAIN' }); |
my @pos = $obj->{libconf}->findAtomPos({ type => 'VALUE', type2 => 'RESOLV_DOMAIN' }); |
258 |
if (@pos > 0) { |
if (@pos > 0) { |
259 |
$obj->{libconf}->ediAtom($pos[-1], {type => 'VALUE', type2 => 'RESOLV_DOMAIN', value => $value}); |
$obj->{libconf}->editAtom($pos[-1], {type => 'VALUE', type2 => 'RESOLV_DOMAIN', value => $value}); |
260 |
} else { |
} else { |
261 |
$obj->{libconf}->appendAtom({type => 'VALUE', type2 => 'RESOLV_DOMAIN', value => $value}); |
$obj->{libconf}->appendAtom({type => 'VALUE', type2 => 'RESOLV_DOMAIN', value => $value}); |
262 |
} |
} |
404 |
my @pos = $obj->{libconf}->findAtomPos({ type => 'LIST', type2 => 'RESOLV_SORTLIST' }); |
my @pos = $obj->{libconf}->findAtomPos({ type => 'LIST', type2 => 'RESOLV_SORTLIST' }); |
405 |
my @tab = @{$obj->{libconf}->getAtom($pos[-1])->{list}}; |
my @tab = @{$obj->{libconf}->getAtom($pos[-1])->{list}}; |
406 |
$tab[$idx] = $value; |
$tab[$idx] = $value; |
407 |
$obj->{libconf}->ediAtom($pos[-1], { list => \@tab }); |
$obj->{libconf}->editAtom($pos[-1], { list => \@tab }); |
408 |
} |
} |
409 |
|
|
410 |
sub FETCHSIZE { |
sub FETCHSIZE { |
519 |
my @pos = $obj->{libconf}->findAtomPos({ type => 'LIST', type2 => 'RESOLV_OPTIONS' }); |
my @pos = $obj->{libconf}->findAtomPos({ type => 'LIST', type2 => 'RESOLV_OPTIONS' }); |
520 |
my @tab = @{$obj->{libconf}->getAtom($pos[-1])->{list}}; |
my @tab = @{$obj->{libconf}->getAtom($pos[-1])->{list}}; |
521 |
$tab[$idx] = $value; |
$tab[$idx] = $value; |
522 |
$obj->{libconf}->ediAtom($pos[-1], { list => \@tab }); |
$obj->{libconf}->editAtom($pos[-1], { list => \@tab }); |
523 |
} |
} |
524 |
|
|
525 |
sub FETCHSIZE { |
sub FETCHSIZE { |