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

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

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

revision 1.1 by dams, Fri Sep 26 22:21:58 2003 UTC revision 1.2 by dams, Mon Oct 20 12:55:21 2003 UTC
# Line 61  $templates{hosts} = { Line 61  $templates{hosts} = {
61                                             if ($index == -1) {                                             if ($index == -1) {
62                                                 my $i = 0;                                                 my $i = 0;
63                                                 foreach (@{$out->{atoms}}) {                                                 foreach (@{$out->{atoms}}) {
64                                                     $_->{key} eq $args{key} and $index = $i; #we don't exit the loop, to have the last atom if multiples ones match                                                     $_->{key} eq $args{key} and $index = $i; #we do not exit the loop, to have the last atom if multiples ones match
65                                                     $i++;                                                     $i++;
66                                                 }                                                 }
67                                                 $index == -1 and return -2;                                                 $index == -1 and return -2;
68                                             }                                             }
69                                               if (defined $args{type}) { @{$out->{atoms}}[$index]->{type} = $args{type}; }
70                                               if (defined $args{key}) { @{$out->{atoms}}[$index]->{key} = $args{key}; }
71                                             if (defined $args{values}) {                                             if (defined $args{values}) {
72                                                 defined $args{values}{canonical_hostname} and                                                 defined $args{values}{canonical_hostname} and
73                                                     @{$out->{atoms}}[$index]->{values}{canonical_hostname} = $args{values}{canonical_hostname};                                                     @{$out->{atoms}}[$index]->{values}{canonical_hostname} = $args{values}{canonical_hostname};
# Line 79  $templates{hosts} = { Line 81  $templates{hosts} = {
81                                               my @res;                                               my @res;
82                                               foreach my $atom (@{$out->{atoms}}) {                                               foreach my $atom (@{$out->{atoms}}) {
83                                                   my $flag = 1;                                                   my $flag = 1;
84                                                   if (defined $args{key}) { $atom->{key} eq $args{$key} or $flag = 0 }                                                   if (defined $args{key}) { $atom->{key} eq $args{key} or $flag = 0; }
85                                                   if (defined $args{values}) {                                                   if (defined $args{values}) {
86                                                       if (defined $args{values}->{canonical_hostname}) {                                                       if (defined $args{values}->{canonical_hostname}) {
87                                                           $atom->{values}->{$_} eq $args{values}->{$_} or $flag = 0                                                           $atom->{values}->{canonical_hostname} eq $args{values}->{canonical_hostname} or $flag = 0;
88                                                       }                                                       }
89                                                       if (defined $args{values}->{aliases}) {                                                       if (defined $args{values}->{aliases}) {
90                                                       foreach (0..@{$args{values}->{aliases}}) {                                                           foreach (0..@{$args{values}->{aliases}}) {
91                                                           $atom->{values}->{aliases}->[$_] eq $args{values}->{aliases}->{$_} or $flag = 0;                                                               $atom->{values}->{aliases}->[$_] eq $args{values}->{aliases}->[$_] or $flag = 0;
92                                                             }
93                                                       }                                                       }
94                                                   }                                                   }
95                                                   $flag and push(@res, $i);                                                   $flag and push(@res, $i);

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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