cleaned up some spectre code and fixed a few bugs

This commit is contained in:
JT Smith 2006-07-03 19:22:14 +00:00
parent 2b9efcb217
commit d95fbffa39
5 changed files with 75 additions and 78 deletions

View file

@ -393,10 +393,10 @@ sub workerResponse {
$self->debug("Response retrieved is for $instanceId.");
if ($response->is_success) {
$self->debug("Response for $instanceId retrieved successfully.");
if ($response->header("Cookie") ne "") {
if ($response->header("Set-Cookie") ne "") {
$self->debug("Storing cookie for $instanceId for later use.");
my $cookie = $response->header("Set-Cookie");
$cookie =~ s/wgSession=([a-zA-Z0-9\_\-]{22})/$1/;
$cookie =~ s/wgSession=([a-zA-Z0-9\_\-]{22}).*/$1/;
$self->{_cookies}{$self->{_instances}{$instanceId}{sitename}} = $cookie;
}
my $state = $response->content;