# Do nothing
# print STDERR
"$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$coo
kie{'domain'}}{$cookieID}{$i} ne $cookie{$i}\n";
}
}
}
}
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID} = {%cookie};
# print STDERR "New: " .
keys(%{$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}
}{$cookie{'domain'}}{$cookieID}}) . "\n\n";
# print STDERR "New: \n";
# print STDERR " Name:
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'name'}\n";
# print STDERR " Value:
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'value'}\n";
# print STDERR " Domain:
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'domain'}\n";
# print STDERR " Path:
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'path'}\n";
# print STDERR " Expires:
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'expires'}\n";
# print STDERR " Secure:
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'secure'}\n";
# print STDERR "\n";
}
delete $$headers{$i}; # Don't send these cookies to the browser
}
}
# Now we need to save all the cookie bags
foreach $i
(keys(%{$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'
}}})) {
# print STDERR "\$i is $i\n";
if
($$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$i}{
':=Updated=:'}) {
say ("\nNeed to update cookie bag
$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}\@$i.cookies\n\n",5);
if (open (my $fileHandle,
">$HoTTProxyConfig{'CookieDirectory'}/$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}\@$i.cookies"))
{
say (" Overwriting cookie bag
$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}\@$i.cookies... ",5);
foreach $j
(keys(%{$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'
}}{$i}})) {
if ($j ne ':=Updated=:') { # :=Updated=: is a marker entry so we act on all but that
key
print $fileHandle
assembleCookie($$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Reques
t-User'}}{$i}{$j}) . "\n";
# say (" Saved cookie $j\n",5);
}
}
close $fileHandle;
say ("Done.\n\n",5);
} else {
print STDERR sortableDate() . " Failed to open cookie bag
$HoTTProxyConfig{'CookieDirectory'}/$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}\@$i.cookies for
output. Error: $!.\n";
}
# Need to delete these cookie bags as we finish since they persist forever (until the
proxy server ends)
delete
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$i};
# print STDERR "Removed cookie bag $i from memory.\n";
} else {
say (" Cookie bag $$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}\@$i.cookies is
unchanged.\n\n",5);
}
# print STDERR "$message\n";
# foreach my $xxx (sort(keys(%{$message}))) {
# print STDERR "$xxx -> $$message{$xxx}\n";
# }
# print '-' x 79 . "\n\n";
}
}
}
);
# Needed to make sure the bogus proxy:homepage requests run our RHF that handles
# authentication and local domain redirects
=7= |