Fri Oct 01 05:45:48 2010: Request 61810 was acted upon.
Transaction: Ticket created by patca...@snet.net
Queue: Win32-Internet
Subject: SetOption wont accept INTERNET_OPTION_MAX_CONNS_PER_SERVER 73
Broken in: 0.084
Severity: Normal
Owner: Nobody
Requestors: patca...@snet.net
Status: new
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=61810 >
Constant INTERNET_OPTION_MAX_CONNS_PER_SERVER isn't defined. Trying to
use the numeric version of INTERNET_OPTION_MAX_CONNS_PER_SERVER, which
is 73, also never works. Perl 5.10, Win32::Internet 0.084, Windows XP SP3.
__________________________________________________________
#!/usr/bin/perl -w
use Win32::Internet;
$c = new Win32::Internet();
$, = ' , ';
print 'INTERNET_OPTION_CONNECT_TIMEOUT is
'.INTERNET_OPTION_CONNECT_TIMEOUT."\n";
print 'INTERNET_OPTION_MAX_CONNS_PER_SERVER is
'.INTERNET_OPTION_MAX_CONNS_PER_SERVER."\n";
#INTERNET_OPTION_MAX_CONNS_PER_SERVER is 73
print (($c->SetOption(73, 10)?'t':'f')."\n");
print $c->Error(),"\n";
#INTERNET_OPTION_CONNECT_TIMEOUT is 2
print (($c->SetOption(2, 1000)?'t':'f')."\n");
print (($c->SetOption(INTERNET_OPTION_CONNECT_TIMEOUT, 1000)?'t':'f')."\n");
__________________________________________________
results
_____________________________________________________
INTERNET_OPTION_CONNECT_TIMEOUT is 2
INTERNET_OPTION_MAX_CONNS_PER_SERVER is INTERNET_OPTION_MAX_CONNS_PER_SERVER
f
12010 , The length is incorrect for the option type ,
t
t
_____________________________________________________
