Metacat

# Define the main program logic that calls subroutines to do the work

#--------------------------------------------------------------------------80c->

# The processing step we are handling

my $stage = $query->param('stage') || $templates->{'stage'};

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

# define the possible stages

my %stages = (

    my $foundAccounts = 0;

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

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

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

    $ldap->bind( version => 3, anonymous => 1);