D
dsx12
Ich will mit Perl eine Datei von einem Server hohlen, auf welchem ich mich mit NTLM authentifizieren muss.
Mit tcpdump habe ich aber herausgefunden, dass Curl/Perl immer einen HTTP-Basic-Authentication-Header sendet.
Weiss jemand was das Problem seinen könnte.
Mit tcpdump habe ich aber herausgefunden, dass Curl/Perl immer einen HTTP-Basic-Authentication-Header sendet.
Weiss jemand was das Problem seinen könnte.
Code:
#!/usr/bin/perl
open(TMPF, ">", "tempfile");
print "User: ";
chomp($user = <STDIN>);
if (system("stty -echo") == 0){
print "Password: ";
chomp($pw = <STDIN>);
}else{
print "stty -echo failed";
exit 1;
}
system("stty echo");
use WWW::Curl::Easy;
my $curl = WWW::Curl::Easy->new;
$curl->setopt(CURLOPT_URL,'http://my_scure_ntlm_server.de/securedoument.txt');
$curl->setopt(CURLOPT_FOLLOWLOCATION,1);
$curl->setopt(CURLOPT_UNRESTRICTED_AUTH,1);
$curl->setopt(CURLOPT_HTTPAUTH,CURLAUTH_NTLM);
$curl->setopt(CURLOPT_USERPWD,$user . ':' . $pw);
$curl->setopt(CURLOPT_FILE,TMPF);
my $retcode = $curl->perform;
close(TMPF);
