| [reply] |
If authentication was performed outside perl, i.e. by the caller of your perl code, the caller might or might not pass the authentication information on, which might or might not be passed by setting environment variables.
If the caller passes on the http headers to your perl code, you will probably see a line starting with Authorization:.
If what follows is Basic, you can decode the following characters with MIME::Base64. The resulting string will be the username:password pair.
Otherwise - if what follows is Negotiate, the web server received either a NTLM token or a Kerberos ticket, depending on the setup of your webserver.
So, check the environment of your perl process (and the input for it - if any - on STDIN), and if something lacks there, check the webserver setup as suggested by answers for your previous post. If authentiation isn't you code's business, it can only deal with what it gets from upstream - so you should look there.
--shmem
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
| [reply]
[d/l]
[select] |