AJAXでいろんなサイトにアクセスするための、トンネルＣＧＩの作り方

　前のブログに書いたとおり、ＡＪＡＸで、そのプログラムが置いてある以外のサーバーにアクセスするためには、

　・以下のようなトンネルＣＧＩを使って、
　・トンネルＣＧＩが複数のサイトにアクセスするようにして、
　・その結果を、ＡＪＡＸプログラムが利用し、クライアントに返すと

いう形にしないといけない

クライアント＜＝＝＝＞ＡＪＡＸプログラム
　　　　　　　　　　　　　↑
　　　　　　　　　　　　　↓
　　　　　　　　　　　＊－－－－＊＜＝＝＝＝＞サイトＡ
　　　　　　　　　　　｜トンネル｜＜＝＝＝＝＞サイトＢ
　　　　　　　　　　　｜ＣＧＩ　｜＜＝＝＝＝＞サイトＣ
　　　　　　　　　　　＊－－－－＊　　　：

・AJAXプログラムとトンネルＣＧＩは、同じサーバーのところにある。


では、このような、トンネルＣＧＩをどうやって作るかというお話。

---

　これは、ＣＧＩが、他のサイトにアクセスして、その結果を、そのまま出力する（呼び出し側に返す）ことで実現できる。

　ＰＯＳＴ型において、このケースは、すでに
　ＣＧＩ（Perl）でHTTPのＰＯＳＴ型で他サイトにアクセスして、内容を取得する方法
　に書いてある。

　では、Ｇｅｔ型ではどうか？という話ですけど、
　Ｇｅｔで、

　print "Location: http://とびたいさき";

　と書いても、ＡＪＡＸで利用できない（結局、飛びたい先のＵＲＬにアクセスしようとするため、結果を受け取れない）。
　というわけで、上記にあげたＰＯＳＴ型のプログラムをＧｅｔに改造することになる。

　ここで、

　　　http://jws.jalan.net/content/data/area.xml

っていうところにアクセスしたいとしよう。
え、なぜ、そのサイトだって、理由は聞くな。一部の人にはわかるであろう。

---

　その場合は、POST型の例の「exit;」までを、こう直します。

#!c:/perl/bin/Perl.exe
use Socket;

$HOST    = 'jws.jalan.net';
$PORT    = '80';
$PATH   = '/content/data/area.xml';
$TIMEOUT = '10';

$QUERY = ''; # 今回は引数はないので””

print "Content-Type: text/xml￥n￥n";
print Header_Cut(Location_Post($HOST, $PORT, $PATH, $QUERY));

exit;

（上記　＜　＞　￥は、本当は半角です）

つまり、$HOSTと$PATHを直します。これは、違うところにアクセスしたい場合は、そのサイト名に変えてください。
$QUERYは今回、引数無しなので、こんなかんじ

---

そして、プログラムについては、
print SOCK "POST $file HTTP/1.0" . "￥r￥n";
ってかいてあるところを
print SOCK "GET $file HTTP/1.0" . "￥r￥n";
にして、

その後
print SOCK "Content-Length: $len" . "￥r￥n￥r￥n";
ってかいてあるところを
print SOCK "￥r￥n￥r￥n";
にします

そのへんをまとめると、こんなかんじ

        # HTTP 要求ヘッダー
        # POST メソッドで要求します。
#        print SOCK "POST $file HTTP/1.0" . "￥r￥n";
        # こんかいはGETなので、こうします
        print SOCK "GET $file HTTP/1.0" . "￥r￥n";

        # Content-Length: を送る（クエリーのバイト数）
        # ヘッダーの最後は２回改行する
#        print SOCK "Content-Length: $len" . "￥r￥n￥r￥n";
        print SOCK "￥r￥n￥r￥n";

（上記　＜　＞　￥は、本当は半角です）

---

　ＰＯＳＴでもＧｅｔでもどっちでもＯＫにしたり、もっと汎用的にするためには、引数で、いろいろ受け取って、処理しないといけないわけだけど、それを書き出すと複雑になるので、今回は省略です。