Metacat

} elsif ($ARGV[0]) {

    $skinName = $ARGV[0];

} else {

    print "Content-type: text/html\n\n";

    print 'Registry Error: The registry requires a skin name to continue.';

    exit();

# Metacat isn't initialized, the registry will fail in strange ways.

if (!($metacatUrl)) {

    print "Content-type: text/html\n\n";

    'Registry Error: Metacat is not initialized! Make sure' .

        ' MetacatUrl is set correctly in ' .  $skinName . '.cfg';

# Get the CGI input variables

my $query = new CGI;

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

# Set up the Template Toolkit to read html form templates

        $ldapConfig->{$o}{'dn'} = $ldapConfig->{$o}{'base'};

    }

}

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

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

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

        $ldap->bind( version => 3, dn => $ldapUsername, password => $ldapPassword );

        #print "Inserting new entry...\n";

        my $dn = 'uid=' . $query->param('uid') . ',' . $dnBase;

    my $msg = shift;

    if ($debug) {

    }

}