On Wed, 16 Feb 2005 15:14:47 -0500, AstroDrabb <[EMAIL PROTECTED]> wrote:
> Hello group,
> 
> I am new to Perl but not to programming.  The company I work for
> bought a product called
> WebEvent View (http://www.webevent.com/products/view/).

Here is the def for %usermap

BEGIN { @LDIF::User::ISA = qw/Mutator/; }

my %usermap;
BEGIN {
    %usermap =
#       Name in Darden's AD             Name in User object
#       -------------------             -------------------
    qw(
        sAMAccountName                  uid
        givenName                       first
        sn                              last
        mail                            email
        company                         concept
        division                        division
        Darden-Region                   region
        physicalDeliveryOfficeName      id
        dn                              dn
        changetype                      type
        Darden-Security-Code            security_code
        Darden-Manager-Level            manager_level
    );
}


-- 
----------------------------------------------------------
The box said: "Requires Windows 98/2000/XP/NT, or better."
So, I installed LINUX!
----------------------------------------------------------
James Drabb JR
Senior Programmer
Clermont, FL USA

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to