Metacat

sub createTemporaryAccount {

    my $allParams = shift;

    #my $org = $query->param('o'); 

    my $ou = $query->param('ou');

    #my $ou = 'LTER';

    my $uid = $query->param('uid');

        debug("LDAP connection to $ldapurl...");    

        #if main ldap server is down, a html file containing warning message will be returned

        my $ldap = Net::LDAP->new($ldapurl, timeout => $timeout) or handleLDAPBindFailure($ldapurl);

        if ($ldap) {

            $ldap->start_tls( verify => 'none');

            debug("Attempting to bind to LDAP server with dn = $ldapUsername, pwd = $ldapPassword");

                'o'   => $org,

                'objectclass' => ['top', 'organization']

                ];

             } else {

                $additions = [ 

                'ou'   => $ou,

                'objectclass' => ['top', 'organizationalUnit']

                ];

             }

            if ($result->code()) {

                fullTemplate( ['registerFailed', 'register'], { stage => "register",

                                                            allParams => $allParams,

        my $searchBase = $ldapConfig->{$o}{'base'};

        my $dnBase = $ldapConfig->{$o}{'dn'};

        my $ldapUsername = $ldapConfig->{$o}{'user'};

        my $ldapPassword = $ldapConfig->{$o}{'password'};

        debug("LDAP connection to $ldapurl...");