Proxy認証のときのレスポンス
Proxy認証を必要とする場合のレスポンスは
my $r = HTTP::Response->new("407","Proxy Authentication Required");
$r->header("proxy_authenticate"=>qq(Basic realm="user?@proxy"));
realmの部分がないとSafariで動きませんでした。
認証時は下のような感じで
my $base64 = $r->proxy_authorization; $base64 =~ s/Basic?s+//gi;
うけとれる。$base64は「userid : password」をBase64 エンコーディングしたもの。