/[libconf]/libconf/perl-Libconf/templates/resolv_template.pm
ViewVC logotype

Diff of /libconf/perl-Libconf/templates/resolv_template.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dams, Mon Apr 21 13:12:08 2003 UTC revision 1.4 by dams, Mon Apr 21 13:58:36 2003 UTC
# Line 49  $templates{resolv} = { Line 49  $templates{resolv} = {
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                                         }                                         }
# Line 80  $templates{resolv} = { Line 80  $templates{resolv} = {
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') {
# Line 88  $templates{resolv} = { Line 88  $templates{resolv} = {
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                                       },                                       },

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26