I hope you can read UGLY Perl code. HTH & YMMV!
#!/usr/local/bin/perl # File: chg-oracle-passwd.cgi use Net::LDAP; use Carp; use DBI; $ENV{"ORACLE_HOME"} = "/db02/app/oracle/product/8.1.6"; print "Content-type: text/html\n\n"; print "<HTML>\n\n<BODY>\n\n"; #print "METHOD = $ENV{'REQUEST_METHOD'}\n"; if ($ENV{'REQUEST_METHOD'} eq 'GET') { $form_info = $ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { $form_info = ''; $bytes = $ENV{'CONTENT_LENGTH'}; read (STDIN, $form_info, $bytes); } @pairs = split(/&/, $form_info); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($name eq "UNAME") { $istring = $value; } if ($name eq "PWORD") { $passwd = $value; } if ($name eq "DATABASE") { $dbase = $value; } } # my ($ldap, $res, $code); $mypasswd = $passwd; $myuid = $istring; $ldap = Net::LDAP->new('ldap.mwh.com:389') || die "$@"; $mesg = $ldap->bind('cn=Directory Manager') || die("failed to bind with ", $mesg->code(),"\n"); $res = $ldap->search ( base => "ou=People,o=mwh.com", filter => "&(uid=$myuid ) (!(objectclass=alias))", attrs => [] ) || die; $code = $res->code; $cnt = $res->count; #print "After 1st LDAP call using $myuid with results = $code<br>\n"; #die "User $myuid not found" if $code || $res->count != 1; if ( $code == 1 || $cnt == 1 ) { $valid_username = 1; #print "code equal to $code and count = $cnt <br>\n"; my $entry = $res->entry(0); $res = $ldap->bind(dn => $entry->dn, password => $mypasswd) or die; $code = $res->code; #print "LDAP return value = $code \n"; #die "Login failed" if $code; if ( $code != 0 ) { $pwmatch = 0; } else { $pwmatch = 1; } #$mesg = $ldap->search #print "mesg is $mesg <br>"; } else { $valid_username = 0; $pwmatch = 0; #print "invalid username <br>"; } $ldap->unbind; Steven Joshua wrote: > > Hello: > > Hope the subject make sense. I'm new to LDAP, and > don't know how it works. > I need to use SQL Loader to load a text file into > Oracle817 Database from a unix box. The file/data > comes from LDAP server. My question is: how do I get > the file/object from LDAP site from my unix script? > > Does anyone has any examples? or know a helpful URL? > > Thanks > > From Steven > > __________________________________________________ > Do You Yahoo!? > Yahoo! Health - your guide to health and wellness > http://health.yahoo.com > -- > Please see the official ORACLE-L FAQ: http://www.orafaq.com > -- > Author: Steven Joshua > INET: [EMAIL PROTECTED] > > Fat City Network Services -- (858) 538-5051 FAX: (858) 538-5051 > San Diego, California -- Public Internet access / Mailing Lists > -------------------------------------------------------------------- > To REMOVE yourself from this mailing list, send an E-Mail message > to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in > the message BODY, include a line containing: UNSUB ORACLE-L > (or the name of mailing list you want to be removed from). You may > also send the HELP command for other information (like subscribing). -- Charlie Mengler Maintenance Warehouse [EMAIL PROTECTED] 10641 Scripps Summit Ct. 858-831-2229 San Diego, CA 92131 Am I sure? Of course I'm sure. I could be wrong, but I'm sure for now! -- Please see the official ORACLE-L FAQ: http://www.orafaq.com -- Author: Charlie Mengler INET: [EMAIL PROTECTED] Fat City Network Services -- (858) 538-5051 FAX: (858) 538-5051 San Diego, California -- Public Internet access / Mailing Lists -------------------------------------------------------------------- To REMOVE yourself from this mailing list, send an E-Mail message to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in the message BODY, include a line containing: UNSUB ORACLE-L (or the name of mailing list you want to be removed from). You may also send the HELP command for other information (like subscribing).