Cross Reference: /netbsd-current/external/mpl/dhcp/dist/contrib/ldap/dhcpd-conf-to-ldap

140   $curentry{'current_dn'} = $current_dn;
161    if (%curentry) {
162      $curentry{'current_dn'} = $current_dn;
163      push(@entrystack, {%curentry});
164      undef(%curentry);
171   if (%curentry) {
172     push(@outputlist, {%curentry});
175   %curentry = %$rentry if $rentry;
182   return if (scalar keys %curentry == 0);
184   if (!defined ($curentry{'type'}))
191       print "dhcpServiceDN: $curentry{'current_dn'}\n";
203       print "dn: $curentry{'current_dn'}\n";
207       if (defined ($curentry{'options'}))
217   elsif ($curentry{'type'} eq 'subnet')
219       print "dn: $curentry{'current_dn'}\n";
220       print "cn: " . $curentry{'ip'} . "\n";
223       if (defined ($curentry{'options'}))
228       print "dhcpNetMask: " . $curentry{'netmask'} . "\n";
229       if (defined ($curentry{'ranges'}))
231           foreach $statement (@{$curentry{'ranges'}})
237   elsif ($curentry{'type'} eq 'shared-network')
239       print "dn: $curentry{'current_dn'}\n";
240       print "cn: " . $curentry{'descr'} . "\n";
243       if (defined ($curentry{'options'}))
248   elsif ($curentry{'type'} eq 'group')
250       print "dn: $curentry{'current_dn'}\n";
251       print "cn: group", $curentry{'idx'}, "\n";
254       if (defined ($curentry{'options'}))
259   elsif ($curentry{'type'} eq 'host')
261       print "dn: $curentry{'current_dn'}\n";
262       print "cn: " . $curentry{'host'} . "\n";
265       if (defined ($curentry{'options'}))
270       if (defined ($curentry{'hwaddress'}))
272           $curentry{'hwaddress'} =~ y/[A-Z]/[a-z]/;
273           print "dhcpHWAddress: " . $curentry{'hwaddress'} . "\n";
276   elsif ($curentry{'type'} eq 'pool')
278       print "dn: $curentry{'current_dn'}\n";
279       print "cn: pool", $curentry{'idx'}, "\n";
282       if (defined ($curentry{'options'}))
287       if (defined ($curentry{'ranges'}))
289           foreach $statement (@{$curentry{'ranges'}})
295   elsif ($curentry{'type'} eq 'class')
297       print "dn: $curentry{'current_dn'}\n";
298       print "cn: " . $curentry{'class'} . "\n";
301       if (defined ($curentry{'options'}))
306   elsif ($curentry{'type'} eq 'subclass')
308       print "dn: $curentry{'current_dn'}\n";
309       print "cn: " . $curentry{'subclass'} . "\n";
312       if (defined ($curentry{'options'}))
316       print "dhcpClassData: " . $curentry{'class'} . "\n";
319   if (defined ($curentry{'statements'}))
321       foreach $statement (@{$curentry{'statements'}})
327   if (defined ($curentry{'options'}))
329       foreach $statement (@{$curentry{'options'}})
336   undef (%curentry);
386   $curentry{'type'} = 'subnet';
387   $curentry{'ip'} = $ip;
388   $curentry{'netmask'} = $netmask;
408   $curentry{'type'} = 'shared-network';
409   $curentry{'descr'} = $descr;
427   $curentry{'type'} = 'host';
428   $curentry{'host'} = $host;
450   $curentry{'type'} = 'group';
451   $curentry{'idx'} = $idx;
473   $curentry{'type'} = 'pool';
474   $curentry{'idx'} = $idx;
493   $curentry{'type'} = 'class';
494   $curentry{'class'} = $class;
519   $curentry{'type'} = 'subclass';
520   $curentry{'class'} = $class;
521   $curentry{'subclass'} = $subclass;
541   $curentry{'hwaddress'} = "$type $hw";
554       push (@{$curentry{'ranges'}}, $str);
567       push (@{$curentry{'options'}}, $str);
612               push (@{$curentry{'statements'}}, $token. " " . $str);
622       push (@{$curentry{'statements'}}, $str);
626       push (@{$curentry{'statements'}}, $1);
631       push (@{$curentry{'statements'}}, $str);
719 $curentry{'current_dn'} = $current_dn;
720 $curentry{'descr'} = $dhcpcn;
791     %curentry = %$rentry;