Perl / CGI and IIS6

This is a multipart message in MIME format.
--===============1393215416==
Content-Type: multipart/alternative;
boundary="=_alternative 0046295B862575CF_="

This is a multipart message in MIME format.
--=_alternative 0046295B862575CF_=
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=us-ascii

Greetings Perl experts
I am trying to convert a ton of standalone tools written in perl
to be web based
these tools are mostly windows administration tools.
Just looking for some advice on using perl on IIS. I have used the CGI
module
to create dynamic pages but Im not sure how to handle things like
authentication.
For instance I would like to have my users authenticated against and
Active Directory service
which will validate what they can use on the site.

Tony B. Okusanya

Tony B. Okusanya

Windows Standards Group
Phone (651)-962-2702
Pager: 7639136132 [at] messaging.sprintpcs.com
Cell: (763)-913-6132
Fax: (651)-767-3122
Mail Code:EP-MN-O2NS
U.S. BANCORP made the following annotations
------------------------------------------------------------ ---------
Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation.

------------------------------------------------------------ ---------

--=_alternative 0046295B862575CF_=
Content-Transfer-Encoding: 7bit
Content-Type: text/html;
charset=us-ascii

 Greetings Perl experts
 I
am trying to convert a ton of standalone tools written in perl to be web
based
 these tools are mostly windows administration
tools. 
 Just looking for some advice on using
perl on IIS. I have used the CGI module
 to create dynamic pages but Im not sure
how to handle things like authentication.
 For instance I would like to have my
users authenticated against and Active Directory service
 which will validate what they can use
on the site. 
 
 
Tony B. Okusanya
 
 
 
 
Tony B. Okusanya 
 
Windows Standards Group 
Phone (651)-962-2702 
Pager: 7639136132 [at] messaging.sprintpcs.com 
Cell: (763)-913-6132 
Fax: (651)-767-3122 
Mail Code:EP-MN-O2NS
U.S. BANCORP made the following annotations ------------------------------------------------------------ --------- Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation. 
 
------------------------------------------------------------ --------- 

--=_alternative 0046295B862575CF_=--

--===============1393215416==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1393215416==--

anthony.okusanya [ Mo, 08 Juni 2009 14:46 ] [ ID #2004248 ]

RE: Perl / CGI and IIS6

--===============1048266622==
Content-Class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C9E838.C189AC88"

------_=_NextPart_001_01C9E838.C189AC88
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

Anthony, I wrote a little method for my libraries which I use to
authenticate all of my web-based apps off of Active Directory (LDAP).

You will need to use the Net::LDAP module. This works on all platforms.

Hope this helps,

Scott

*******************************************************

=3Ditem B<ldap_authenticate()>

This method accepts a username, password, and an array of LDAP servers,
in that order. It returns a true/false code, and a message.

IE: ldap_authenticate("USER [at] mydomain.com","MYPass", [at] dc_list)

=3Dcut

sub ldap_authenticate{

my($class,$username,$password, [at] ldap_servers)=3D [at] _;

#LDAP Connect#

my $ldap =3D Net::LDAP->new(\ [at] ldap_servers, async =3D> =
1);

if(!$ldap){

return("0","LDAP ERROR! Cannot connect
to LDAP server(s).");

}

else{

#If LDAP servers are listening, attempt
BIND (Authentication)#

my
$msg=3D$ldap->bind("$username",password=3D>"$password");

if($msg->error=3D~m/success/i){

$ldap->unbind;

return(1,"Successful
Logon");

}

else{

$ldap->unbind;

return(0,"Error: " .
$msg->error);

}

}

}

*******************************************************

From: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of
anthony.okusanya [at] usbank.com
Sent: Monday, June 08, 2009 8:46 AM
To: ActivePerl [at] listserv.ActiveState.com
Subject: Perl / CGI and IIS6

Greetings Perl experts
I am trying to convert a ton of standalone tools written in perl
to be web based
these tools are mostly windows administration tools.
Just looking for some advice on using perl on IIS. I have used the CGI
module
to create dynamic pages but Im not sure how to handle things like
authentication.
For instance I would like to have my users authenticated against and
Active Directory service
which will validate what they can use on the site.

Tony B. Okusanya

Tony B. Okusanya

Windows Standards Group
Phone (651)-962-2702
Pager: 7639136132 [at] messaging.sprintpcs.com
Cell: (763)-913-6132
Fax: (651)-767-3122
Mail Code:EP-MN-O2NS

U.S. BANCORP made the following annotations
------------------------------------------------------------ ---------
Electronic Privacy Notice. This e-mail, and any attachments, contains
information that is, or may be, covered by electronic communications
privacy laws, and is also confidential and proprietary in nature. If you
are not the intended recipient, please be advised that you are legally
prohibited from retaining, using, copying, distributing, or otherwise
disclosing this information in any manner. Instead, please reply to the
sender that you have received this communication in error, and then
immediately delete it. Thank you in advance for your cooperation.

------------------------------------------------------------ ---------

------_=_NextPart_001_01C9E838.C189AC88
Content-Type: text/html; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:x=3D"urn:schemas-microsoft-com:office:excel" =
xmlns:p=3D"urn:schemas-microsoft-com:office:powerpoint" =
xmlns:a=3D"urn:schemas-microsoft-com:office:access" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns:s=3D"uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" =
xmlns:rs=3D"urn:schemas-microsoft-com:rowset" xmlns:z=3D"#RowsetSchema" =
xmlns:b=3D"urn:schemas-microsoft-com:office:publisher" =
xmlns:ss=3D"urn:schemas-microsoft-com:office:spreadsheet" =
xmlns:c=3D"urn:schemas-microsoft-com:office:component:spread sheet" =
xmlns:odc=3D"urn:schemas-microsoft-com:office:odc" =
xmlns:oa=3D"urn:schemas-microsoft-com:office:activation" =
xmlns:html=3D"http://www.w3.org/TR/REC-html40" =
xmlns:q=3D"http://schemas.xmlsoap.org/soap/envelope/" =
xmlns:rtc=3D"http://microsoft.com/officenet/conferencing" =
xmlns:D=3D"DAV:" xmlns:Repl=3D"http://schemas.microsoft.com/repl/" =
xmlns:mt=3D"http://schemas.microsoft.com/sharepoint/soap/mee tings/" =
xmlns:x2=3D"http://schemas.microsoft.com/office/excel/2003/x ml" =
xmlns:ppda=3D"http://www.passport.com/NameSpace.xsd" =
xmlns:ois=3D"http://schemas.microsoft.com/sharepoint/soap/oi s/" =
xmlns:dir=3D"http://schemas.microsoft.com/sharepoint/soap/di rectory/" =
xmlns:ds=3D"http://www.w3.org/2000/09/xmldsig#" =
xmlns:dsp=3D"http://schemas.microsoft.com/sharepoint/dsp" =
xmlns:udc=3D"http://schemas.microsoft.com/data/udc" =
xmlns:xsd=3D"http://www.w3.org/2001/XMLSchema" =
xmlns:sub=3D"http://schemas.microsoft.com/sharepoint/soap/20 02/1/alerts/"=
xmlns:ec=3D"http://www.w3.org/2001/04/xmlenc#" =
xmlns:sp=3D"http://schemas.microsoft.com/sharepoint/" =
xmlns:sps=3D"http://schemas.microsoft.com/sharepoint/soap/" =
xmlns:xsi=3D"http://www.w3.org/2001/XMLSchema-instance" =
xmlns:udcs=3D"http://schemas.microsoft.com/data/udc/soap" =
xmlns:udcxf=3D"http://schemas.microsoft.com/data/udc/xmlfile " =
xmlns:udcp2p=3D"http://schemas.microsoft.com/data/udc/partto part" =
xmlns:wf=3D"http://schemas.microsoft.com/sharepoint/soap/wor kflow/" =
xmlns:dsss=3D"http://schemas.microsoft.com/office/2006/digsi g-setup" =
xmlns:dssi=3D"http://schemas.microsoft.com/office/2006/digsi g" =
xmlns:mdssi=3D"http://schemas.openxmlformats.org/package/200 6/digital-sig=
nature" =
xmlns:mver=3D"http://schemas.openxmlformats.org/markup-compa tibility/2006=
" xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" =
xmlns:mrels=3D"http://schemas.openxmlformats.org/package/200 6/relationshi=
ps" xmlns:spwp=3D"http://microsoft.com/sharepoint/webpartpages" =
xmlns:ex12t=3D"http://schemas.microsoft.com/exchange/service s/2006/types"=
=
xmlns:ex12m=3D"http://schemas.microsoft.com/exchange/service s/2006/messag=
es" =
xmlns:pptsl=3D"http://schemas.microsoft.com/sharepoint/soap/ SlideLibrary/=
" =
xmlns:spsl=3D"http://microsoft.com/webservices/SharePointPor talServer/Pub=
lishedLinksService" xmlns:Z=3D"urn:schemas-microsoft-com:" =
xmlns:st=3D"" xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii">
<meta name=3DGenerator content=3D"Microsoft Word 12 (filtered medium)">
<style>

</style>

</head>

<body lang=3DEN-US link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

Anthony, I wrote a little method for my libraries which I =
use to
authenticate all of my web-based apps off of Active Directory =
(LDAP).<o:p></o:p>

You will need to use the Net::LDAP module. This =
works on
all platforms.<o:p></o:p>

<o:p> </o:p>

Hope this helps,<o:p></o:p>

Scott<o:p></o:p>

<o:p> </o:p>

********************************************* **********<o:=
p></o:p>

=3Ditem =
B<ldap_authenticate()><o:p></o:p>

<o:p> </o:p>

This method accepts a username, password, and an array of =
LDAP
servers, in that order. It returns a true/false code, and a =
message.<o:p></o:p>

IE: =
ldap_authenticate("USER [at] mydomain.com","MYPass", [at] dc_li=
st)<o:p></o:p>

<o:p> </o:p>

=3Dcut<o:p></o:p>

<o:p> </o:p>

sub ldap_authenticate{<o:p></o:p>

 &nbs=
p; =
my($class,$username,$password, [at] ldap_servers)=3D [at] _;<o:p></o:p>

<o:p> </o:p>

 &nbs=
p; #LDAP
Connect#<o:p></o:p>

 &nbs=
p; my
$ldap =3D Net::LDAP->new(\ [at] ldap_servers, async =3D> =
1);<o:p></o:p>

 &nbs=
p; <o:p></o:p>

 &nbs=
p; if(!$ldap){<o:p></o:p>

 &nbs=
p; =
; =
return("0","LDAP
ERROR! Cannot connect to LDAP =
server(s).");<o:p></o:p>

 &nbs=
p; =
} =
 &=
nbsp; <o:p></o:p>

 &nbs=
p; else{<o:p></o:p>

 &nbs=
p; =
; #If
LDAP servers are listening, attempt BIND =
(Authentication)#<o:p></o:p>

 &nbs=
p; =
; my
$msg=3D$ldap->bind("$username",password=3D>"$passwor=
d");<o:p></o:p>

<o:p> </o:p>

 &nbs=
p; =
; =
if($msg->error=3D~m/success/i){<o:p></o:p>

 &nbs=
p; =
; =
 &=
nbsp; =
$ldap->unbind; &n=
bsp; &nb=
sp; =
<o:p></o:p>

 &nbs=
p; =
; =
 &=
nbsp; return(1,"Successful
Logon");<o:p></o:p>

 &nbs=
p; =
; =
}<o:p></o:p>

 &nbs=
p; =
; =
else{<o:p></o:p>

 &nbs=
p; =
; =
 &=
nbsp; $ldap->unbind;<o:p></o:p>

 &nbs=
p; =
; =
 &=
nbsp; return(0,"Error:
" . $msg->error);<o:p></o:p>

 &nbs=
p; =
; =
}<o:p></o:p>

 &nbs=
p; }<o:p></o:p>

}<o:p></o:p>

********************************************* **********<o:=
p></o:p>

<o:p> </o:p>

<div style=3D'border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt =
0in 0in 0in'>

From:=

activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of =
anthony.okusanya [at] usbank.com 
Sent: Monday, June 08, 2009 8:46 AM 
To: ActivePerl [at] listserv.ActiveState.com 
Subject: Perl / CGI and IIS6<o:p></o:p>

</div>

<o:p> </o:p>

 
 Greetings =
Perl
experts 
 =

I am trying to convert a ton of standalone tools written =
in perl
to be web based 
these =
tools are
mostly windows administration tools. 
Just =
looking
for some advice on using perl on IIS. I have used the CGI module =
 
to =
create
dynamic pages but Im not sure how to handle things like =
authentication. 
For =
instance I
would like to have my users authenticated against and Active Directory =
service
 
which =
will
validate what they can use on the site. 
 
 
Tony B. Okusanya 
 
 
 
 
Tony B. Okusanya 
 
Windows Standards Group 
Phone (651)-962-2702 
Pager: 7639136132 [at] messaging.sprintpcs.com 
Cell: (763)-913-6132 
Fax: (651)-767-3122 
Mail Code:EP-MN-O2NS <o:p></o:p>

U.S. BANCORP made the following annotations 
------------------------------------------------------------ --------- =

 Electronic
Privacy Notice. This e-mail, and any attachments, contains information =
that is,
or may be, covered by electronic communications privacy laws, and is =
also
confidential and proprietary in nature. If you are not the intended =
recipient,
please be advised that you are legally prohibited from retaining, using,
copying, distributing, or otherwise disclosing this information in any =
manner.
Instead, please reply to the sender that you have received this =
communication
in error, and then immediately delete it. Thank you in advance for your
cooperation. 
 
------------------------------------------------------------ ---------<o:p=
></o:p>

</div>

</body>

</html>

------_=_NextPart_001_01C9E838.C189AC88--

--===============1048266622==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1048266622==--

Scott_Campbell [ Mo, 08 Juni 2009 14:58 ] [ ID #2004249 ]

RE: Perl / CGI and IIS6

From: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of
Campbell, Scott
Sent: 08 June 2009 13:58
To: anthony.okusanya [at] usbank.com; ActivePerl [at] listserv.ActiveState.com
Subject: RE: Perl / CGI and IIS6

> Anthony, I wrote a little method for my libraries which I use to
authenticate all of my web-based apps off of
> Active Directory (LDAP).
> You will need to use the Net::LDAP module. This works on all
platforms.
>
> Hope this helps,
> Scott
>

Sorry to be picky when you are trying to help somebody, but I have a
couple of issues with your code.

> *******************************************************
> =item B<ldap_authenticate()>
>
> This method accepts a username, password, and an array of LDAP
servers, in that order. It returns a true/false > code, and a message.
> IE: ldap_authenticate("USER [at] mydomain.com","MYPass", [at] dc_list)

That example call doesn't appear to match the parameters in the sub
below.

>
> =cut
>
> sub ldap_authenticate{
> my($class,$username,$password, [at] ldap_servers)= [at] _;
>
> #LDAP Connect#
> my $ldap = Net::LDAP->new(\ [at] ldap_servers, async => 1);
>
> if(!$ldap){
> return("0","LDAP ERROR! Cannot
connect to LDAP server(s).");
> }
> else{
> #If LDAP servers are listening,
attempt BIND (Authentication)#
> my
$msg=$ldap->bind("$username",password=>"$password");

Try to avoid useless quoting. See 'perldoc -q quoting'

>
> if($msg->error=~m/success/i){
> $ldap->unbind;

> return(1,"Successful
Logon");
> }
> else{
> $ldap->unbind;
> return(0,"Error: " .
$msg->error);
> }
> }
> }
> *******************************************************

HTH

--
Brian Raven
This e-mail may contain confidential and/or privileged information. If you are not the intended recipient or have received this e-mail in error, please advise the sender immediately by reply e-mail and delete this message and any attachments without retaining a copy.

Any unauthorised copying, disclosure or distribution of the material in this e-mail is strictly forbidden.

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Brian Raven [ Mo, 08 Juni 2009 15:41 ] [ ID #2004250 ]

Re: Perl / CGI and IIS6

Brian Raven wrote:
> From: activeperl-bounces [at] listserv.ActiveState.com
> [mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of
> Campbell, Scott

> Sorry to be picky when you are trying to help somebody, but I have a
> couple of issues with your code.
>
>> *******************************************************
>> =item B<ldap_authenticate()>
>>
>> This method accepts a username, password, and an array of LDAP
> servers, in that order. It returns a true/false > code, and a message.
>> IE: ldap_authenticate("USER [at] mydomain.com","MYPass", [at] dc_list)
>
> That example call doesn't appear to match the parameters in the sub
> below.

It kinda does if it's a 'method' rather than a plain old sub. Maybe better
written/documented in that case as:

$obj->ldap_authenticate('USER [at] mydomain.com', 'MYPass', [at] dc_list)

>>
>> =cut
>>
>> sub ldap_authenticate{
>> my($class,$username,$password, [at] ldap_servers)= [at] _;
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Bill Luebkert [ Mo, 08 Juni 2009 15:57 ] [ ID #2004251 ]

RE: Perl / CGI and IIS6

Only a couple? Sorry about that, you're right. Since it's a method,
the call should be:

ldap_authenticate->("USER [at] mydomain.com","MYPass", [at] dc_list);

Note, if you are not that excited about putting this sub into a library
of your own, you can put it in locally in your script(s), remove the
"$class" variable in the incoming parameters, and then call as:

ldap_authenticate("USER [at] mydomain.com","MYPass", [at] dc_list);

You may quote me :)

Scott

-----Original Message-----
From: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of Brian
Raven
Sent: Monday, June 08, 2009 9:41 AM
To: ActivePerl [at] listserv.ActiveState.com
Subject: RE: Perl / CGI and IIS6

From: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of
Campbell, Scott
Sent: 08 June 2009 13:58
To: anthony.okusanya [at] usbank.com; ActivePerl [at] listserv.ActiveState.com
Subject: RE: Perl / CGI and IIS6

> Anthony, I wrote a little method for my libraries which I use to
authenticate all of my web-based apps off of
> Active Directory (LDAP).
> You will need to use the Net::LDAP module. This works on all
platforms.
>
> Hope this helps,
> Scott
>

Sorry to be picky when you are trying to help somebody, but I have a
couple of issues with your code.

> *******************************************************
> =item B<ldap_authenticate()>
>
> This method accepts a username, password, and an array of LDAP
servers, in that order. It returns a true/false > code, and a message.
> IE: ldap_authenticate("USER [at] mydomain.com","MYPass", [at] dc_list)

That example call doesn't appear to match the parameters in the sub
below.

>
> =cut
>
> sub ldap_authenticate{
> my($class,$username,$password, [at] ldap_servers)= [at] _;
>
> #LDAP Connect#
> my $ldap = Net::LDAP->new(\ [at] ldap_servers, async => 1);
>
> if(!$ldap){
> return("0","LDAP ERROR! Cannot
connect to LDAP server(s).");
> }
> else{
> #If LDAP servers are listening,
attempt BIND (Authentication)#
> my
$msg=$ldap->bind("$username",password=>"$password");

Try to avoid useless quoting. See 'perldoc -q quoting'

>
> if($msg->error=~m/success/i){
> $ldap->unbind;

> return(1,"Successful
Logon");
> }
> else{
> $ldap->unbind;
> return(0,"Error: " .
$msg->error);
> }
> }
> }
> *******************************************************

HTH

--
Brian Raven
This e-mail may contain confidential and/or privileged information. If
you are not the intended recipient or have received this e-mail in
error, please advise the sender immediately by reply e-mail and delete
this message and any attachments without retaining a copy.

Any unauthorised copying, disclosure or distribution of the material in
this e-mail is strictly forbidden.

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Scott_Campbell [ Mo, 08 Juni 2009 15:58 ] [ ID #2004252 ]

RE: Perl / CGI and IIS6

Bill's right. Ignore my naughty calls...long night/day already.

$obj->ldap_authenticate("USER [at] mydomain.com","MYPass", [at] dc_lis t);

is correct.
Scott

-----Original Message-----
From: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of
Campbell, Scott
Sent: Monday, June 08, 2009 9:58 AM
To: Brian Raven; ActivePerl [at] listserv.ActiveState.com
Subject: RE: Perl / CGI and IIS6

Only a couple? Sorry about that, you're right. Since it's a method,
the call should be:

ldap_authenticate->("USER [at] mydomain.com","MYPass", [at] dc_list);

Note, if you are not that excited about putting this sub into a library
of your own, you can put it in locally in your script(s), remove the
"$class" variable in the incoming parameters, and then call as:

ldap_authenticate("USER [at] mydomain.com","MYPass", [at] dc_list);

You may quote me :)

Scott

-----Original Message-----
From: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of Brian
Raven
Sent: Monday, June 08, 2009 9:41 AM
To: ActivePerl [at] listserv.ActiveState.com
Subject: RE: Perl / CGI and IIS6

From: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of
Campbell, Scott
Sent: 08 June 2009 13:58
To: anthony.okusanya [at] usbank.com; ActivePerl [at] listserv.ActiveState.com
Subject: RE: Perl / CGI and IIS6

> Anthony, I wrote a little method for my libraries which I use to
authenticate all of my web-based apps off of
> Active Directory (LDAP).
> You will need to use the Net::LDAP module. This works on all
platforms.
>
> Hope this helps,
> Scott
>

Sorry to be picky when you are trying to help somebody, but I have a
couple of issues with your code.

> *******************************************************
> =item B<ldap_authenticate()>
>
> This method accepts a username, password, and an array of LDAP
servers, in that order. It returns a true/false > code, and a message.
> IE: ldap_authenticate("USER [at] mydomain.com","MYPass", [at] dc_list)

That example call doesn't appear to match the parameters in the sub
below.

>
> =cut
>
> sub ldap_authenticate{
> my($class,$username,$password, [at] ldap_servers)= [at] _;
>
> #LDAP Connect#
> my $ldap = Net::LDAP->new(\ [at] ldap_servers, async => 1);
>
> if(!$ldap){
> return("0","LDAP ERROR! Cannot
connect to LDAP server(s).");
> }
> else{
> #If LDAP servers are listening,
attempt BIND (Authentication)#
> my
$msg=$ldap->bind("$username",password=>"$password");

Try to avoid useless quoting. See 'perldoc -q quoting'

>
> if($msg->error=~m/success/i){
> $ldap->unbind;

> return(1,"Successful
Logon");
> }
> else{
> $ldap->unbind;
> return(0,"Error: " .
$msg->error);
> }
> }
> }
> *******************************************************

HTH

--
Brian Raven
This e-mail may contain confidential and/or privileged information. If
you are not the intended recipient or have received this e-mail in
error, please advise the sender immediately by reply e-mail and delete
this message and any attachments without retaining a copy.

Any unauthorised copying, disclosure or distribution of the material in
this e-mail is strictly forbidden.

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Scott_Campbell [ Mo, 08 Juni 2009 16:01 ] [ ID #2004253 ]

RE: Perl / CGI and IIS6

Bill Luebkert <> wrote:
> Brian Raven wrote:
>> From: activeperl-bounces [at] listserv.ActiveState.com
>> [mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of
>> Campbell, Scott
>
>> Sorry to be picky when you are trying to help somebody, but I have a
>> couple of issues with your code.
>>
>>> ******************************************************* =item
>>> B<ldap_authenticate()>
>>>
>>> This method accepts a username, password, and an array of LDAP
>> servers, in that order. It returns a true/false > code, and a
>> message.
>>> IE: ldap_authenticate("USER [at] mydomain.com","MYPass", [at] dc_list)
>>
>> That example call doesn't appear to match the parameters in the sub
>> below.
>
> It kinda does if it's a 'method' rather than a plain old sub. Maybe
> better written/documented in that case as:
>
> $obj->ldap_authenticate('USER [at] mydomain.com', 'MYPass', [at] dc_list)
>

Yes, good point. Its good to see that you corrected the double quoting
as well, unless, of course, the array [at] mydomain is supposed to be
interpolated there.

--
Brian Raven
This e-mail may contain confidential and/or privileged information. If you are not the intended recipient or have received this e-mail in error, please advise the sender immediately by reply e-mail and delete this message and any attachments without retaining a copy.

Any unauthorised copying, disclosure or distribution of the material in this e-mail is strictly forbidden.

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Brian Raven [ Mo, 08 Juni 2009 16:12 ] [ ID #2004254 ]