mazaxaka
14.05.2010, 09:03
есть код perl
также есть сайт. при заходе на сайт в куки пишется мд5 шех , ид сеси. он нужен для заголивания. скрипт много потомчный но даже при 1 потоке ошибка
скрипт конектится получает ид сесии 1 ака пробует . дальше конектится но ид сесии пустой. ето видно даже в сохраненеой странице. по чему ид сесии пустой? как сделать чтобы он либо очищал все кууки после конца цикла либо както получал етот долбаный мд5 снова
my $resp = $ua->post("http://forum.ru/loginflat.aspx")->as_string;
my ($sid) = $resp =~ /_session_id=([0-9a-f]{32})/i;
print $sid;
$resp = $ua->post("http://forum.ru/loginflat.aspx",
["Login" => $login,
"password" => $pass,
"save" => "on",
"jsenabled" => "true",
"ssid" => $sid,
"backURL" => "%2Fdefault.aspx%3F",])->as_string;
if ($resp =~ "Вход осуществлен!")
нужно чтобы очищало куки и все что получилось в конце цикла. если ставить 5 потоков получает 5 сесий. дальше не получает ид сесии
также есть сайт. при заходе на сайт в куки пишется мд5 шех , ид сеси. он нужен для заголивания. скрипт много потомчный но даже при 1 потоке ошибка
скрипт конектится получает ид сесии 1 ака пробует . дальше конектится но ид сесии пустой. ето видно даже в сохраненеой странице. по чему ид сесии пустой? как сделать чтобы он либо очищал все кууки после конца цикла либо както получал етот долбаный мд5 снова
my $resp = $ua->post("http://forum.ru/loginflat.aspx")->as_string;
my ($sid) = $resp =~ /_session_id=([0-9a-f]{32})/i;
print $sid;
$resp = $ua->post("http://forum.ru/loginflat.aspx",
["Login" => $login,
"password" => $pass,
"save" => "on",
"jsenabled" => "true",
"ssid" => $sid,
"backURL" => "%2Fdefault.aspx%3F",])->as_string;
if ($resp =~ "Вход осуществлен!")
нужно чтобы очищало куки и все что получилось в конце цикла. если ставить 5 потоков получает 5 сесий. дальше не получает ид сесии