#############################################################
## This sub will pass in an entry to be adjusted and a value 
## to adjust with.  It will only work on a single directory  
## and a single task.
#############################################################
sub add_dir_one{
  my ($dn, $entry_to_modify) = @_;

  my $ldap = Net::LDAP->new($directory) 
     or die "Couldn't connect: $@\n";
  my $mesg = $ldap->bind("cn=directory manager, ou=a really long dn", password => "password" ) 
     or die "Could not bind $@\n";;
  $ldap -> modify ($dn, add => {attribute_to_be_adjusted => $entry_to_beadded}) 
     or die "Ya screwed up again!";}
}

#############################################################
## This sub will pass in an entry to be adjusted and a value 
## to adjust with.  It will only work on a second directory  
## and a single task.
#############################################################
sub add_dir_2{
  my ($dn2, $entry_to_modify) = @_;

  my $ldap = Net::LDAP->new($directory2) 
     or die "Couldn't connect: $@\n";
  my $mesg = $ldap->bind("cn=directory manager2, ou=a really long dn", password => "password2" ) 
     or die "Could not bind $@\n";;
  $ldap -> modify ($dn2, add => {attribute_to_be_adjusted => $entry_to_beadded}) 
     or die "Ya screwed up again!";}
}