Thanks for the code.
But can we do this in UNIX shell script or Java?
Thanks again
Steven
--- Charlie Mengler <[EMAIL PROTECTED]> wrote:
> 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).
__________________________________________________
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).
