msanolog

【背景】
RSS移転時の措置についての議論より。
・「BloglinesのForumをタラタラと　・・・　フィードのURLを変更した時に301 Moved Permanently(301とは書いてないけど多分)でリダイレクトしてやると、自動的に新しいURLに変更される」
・「Bloglines では、301 の場合データベースの URL も変更。以降は新しい URL のみにアクセスします。302 の場合、データベースは更新せず、古いほうに継続してアクセスします」
・「301 Moved Permanentlyを出すようにすれば、一部のRSSリーダでは自動的に購読を切り替えてくれる」
・「古いRSSへのアクセスに301を返しているのだけど、自動的に移転処理をしてくれないRSSリーダーが結構ある」

【実装方法】
RNAでは、RSSの取得にLWP::UserAgentを使用している。LWP::UserAgentのrequest()では、「301」や「302」が返されると自動的にリダイレクトの処理をしてくれる。

LWP::UserAgent使用時に、「301」リダイレクト元を取得する方法としては次の２つが考えられる。
a) リクエストにはsimple_request()を使用し、1回ずつレスポンスを見て適切な処理（リダイレクト処理、SiteList更新、その他）を行う。
b) リクエストにはrequest()を使用する。得られたレスポンスから、HTTP::Responseモジュールのprevious()メソッドでレスポンスチェーンをさかのぼり、コードが「301」のレスポンスがある場合にSiteList更新を行う。

RNAでは、既存プログラムでrequest()を使用しているため、b)を採用。
初回のレスポンスが301の場合に、連続した301レスポンスの最後のLocationヘッダに記述されたURLを、真のURLとしてSiteListに登録している。

request() や previous()の動きは以下のようなプログラムを用いて簡単に検証することが出来る。

===================================
プログラムソース

[http://example/301_1.cgi]
-----------------------------------------------
#!/usr/bin/perl

print "Status: 301 Moved Permanently\n";
print "Location: http://example/301_2.cgi\n\n";
-----------------------------------------------

[http://example/301_2.cgi]
-----------------------------------------------
#!/usr/bin/perl

print "Status: 301 Moved Permanently\n";
print "Location: http://example/302_1.cgi\n\n";
-----------------------------------------------

[http://example/302_1.cgi]
-----------------------------------------------
#!/usr/bin/perl

print "Location: http://example/index.html\n\n";
-----------------------------------------------

[301test.pl]
-----------------------------------------------
#!/usr/bin/perl

use LWP::UserAgent;

my $uri = 'http://example/301_1.cgi';

my $req = HTTP::Request->new(GET => $uri);
my $ua = LWP::UserAgent->new;
$ua->parse_head(0);
my $res = $ua->request($req);

my @a = ();
while ($res) {
unshift(@a, $res);
$res = $res->previous();
}

print "Response chain:\n";
foreach my $r (@a) {
print "$uri\n";

if($r->code == 301) {
$uri = $r->header('Location');
}
else {
last;
}
}

print "\nTrue Location: $uri\n";
-----------------------------------------------

===================================
実行例

$ perl ./301test.pl
Response chain:
http://example/301_1.cgi
http://example/301_2.cgi
http://example/302_1.cgi

True Location: http://example/302_1.cgi
===================================

【余談】
RFC2616では、Locationヘッダに記述されるのは absoluteURI とある。しかし、UserAgent.pmを見ると「Some servers erroneously return a relative URL for redirects」ということもあるらしい。