sub new {
        my $self = {};
        $self->{_ldap} =  Net::LDAP->new($LDAP_SERVER);
        bless $self;
        return $self;
}

##</code><code>##

sub alias_add_entry {
        my $self = shift;
        my $alias = shift;
        my $user = shift;
        my $result;

        die "Not enough args to alias_add_entry() $@" if not defined ($alias and $user);

        $result = $self{"_ldap"}->modify (
                dn => "cn=$alias,ou=Aliases,dc=mydomain,dc=com",
                add => { rfc822mailmember => $user }
                );
        return $result;
}

##</code><code>##

sub authenticate {
        my $self = shift;
        my $pw = shift;
        my $user = shift;

        die "Not enough args to authenticate() $@" if not defined $pw;
        $user = "Manager" if ($user eq "");
        my $result = $self->{"_ldap"}->bind (
                dn        => "cn=$user, dc=sigmatel, dc=com",
                password  => $pw
            );
        return $result;
}