. . . # implementatie functie bind_object: zie reeks 6, oefening 4
. . . # implementatie functie valueattribuut: zie oefening 1


@ARGV == 1 or die "geef als enige parameter de naam van de ou relatief t.o.v. de container ou=labo,dc=hogent,dc=hogent,dc=be\n";
my $ou_naam=$ARGV[0];

my $ou=bind_object("ou=".$ou_naam.",OU=Labo,DC=iii,DC=hogent,DC=be");

wis($ou);

print "controle, de container ".ou->{name}." bevat: ";
foreach (in $ou){
     print "\n",$_->{name};
 }

sub wis{
   my $ou=shift;
   foreach (in $ou){

     print $_->{adspath}. " wissen ok (j=ja) ?\n";
     chomp($antw=);
     if ($antw eq "j"){
         wis($_);
         $ou->delete ($_->{class},$_->{name});
     }
   }
 }