49 |
if ($in =~ s/^\s*search\s+(.+)\s*$//) { |
if ($in =~ s/^\s*search\s+(.+)\s*$//) { |
50 |
$atom->{type} = 'LIST'; |
$atom->{type} = 'LIST'; |
51 |
$atom->{type2} = 'RESOLV_SEARCH'; |
$atom->{type2} = 'RESOLV_SEARCH'; |
52 |
$atom->{list} = [ split(' ', $2) ]; |
$atom->{list} = [ split(' ', $1) ]; |
53 |
$atom->{sections} = [ @{$out->{current_sections}} ]; |
$atom->{sections} = [ @{$out->{current_sections}} ]; |
54 |
$matched = 1; |
$matched = 1; |
55 |
} |
} |
80 |
VALUE => q( |
VALUE => q( |
81 |
my $temp = lc($atom->{type2}); |
my $temp = lc($atom->{type2}); |
82 |
$temp =~ s/resolv_//; |
$temp =~ s/resolv_//; |
83 |
"$temp " . $atom->{value}; |
"$temp " . $atom->{value} . "\n"; |
84 |
), |
), |
85 |
LIST => q( |
LIST => q( |
86 |
if ($atom->{type2} eq 'RESOLV_SEARCH') { |
if ($atom->{type2} eq 'RESOLV_SEARCH') { |
88 |
} elsif ($atom->{type2} eq 'RESOLV_SORTLIST') { |
} elsif ($atom->{type2} eq 'RESOLV_SORTLIST') { |
89 |
join(' ', 'sortlist', map { @$_ } @{$atom->{list}}) . "\n"; |
join(' ', 'sortlist', map { @$_ } @{$atom->{list}}) . "\n"; |
90 |
} elsif ($atom->{type2} eq 'RESOLV_OPTIONS') { |
} elsif ($atom->{type2} eq 'RESOLV_OPTIONS') { |
91 |
join(' ', 'sortlist', map { ref ? $_->[0] . ':' . $_->[1] : $_ } @{$atom->{list}}) . "\n"; |
join(' ', 'sortlist', map { ref($_) ? $_->[0] . ':' . $_->[1] : $_ } @{$atom->{list}}) . "\n"; |
92 |
} |
} |
93 |
), |
), |
94 |
}, |
}, |