#!/hi/fellow/monks.pl, I'm busy with some Perl CGI scripts running on an Apache box, and I would like to do some authentication within my script. Basically I'm asking the username and password, and currently it's checking a flat file, and thus allowing access, or denying it. As I want to use a single signon in our environment, which is mainly Windows 2000 Active Directory, I need to find a way where I could authenticate my users to the AD. I have to do this within perl, not within Apache. Using the procedure as below would do the trick.

...
...
$user = "myuser";
$pwd = "mypassword";

$access = &authenticate2ad($user,$pwd,"mydomain.controller.com");
if($access eq "yes")
{
   print "You made it!\n";
}
else
{
   print "Sorry buddy, try again...\n";
}
[download]

Thank you fellow monks. May the camel be with you!