############################################################# ## This sub will pass in an directory name, binding usre/password, ## action to be taken, entry to be adjusted and a value ## to adjust with. It will only work on a single directory ## and a single task. ############################################################# sub modify_generic_directory{ my ($dir, $dir_manager, $pass, $action_to_be_taken, $entry_to_be_adjusted, $attribute_to_be_adjusted, $value_to_adjust_with) = @_; my $ldap = Net::LDAP->new($dir) or die "Couldn't connect: $@\n"; my $mesg = $ldap->bind($dir_manager, password => $pass) or die "Could not bind $@\n"; $ldap -> modify ($entry_to_be_adjusted, $action_to_be_taken => {$attribute_to_be_adjusted => $entry_to_be_adjusted}) or die "Ya screwed up again!";} }