アクセス元URLによって振り分ける方法

アクセス元がアドレス１だった場合は<FORM name="form" action="1.cgi" method="POST">を表示
アクセス元がアドレス２だった場合は<FORM name="form" action="2.cgi" method="POST">を表示
アクセス元がアドレス３だった場合は<FORM name="form" action="3.cgi" method="POST">を表示
アクセス元がアドレス４だった場合は<FORM name="form" action="4.cgi" method="POST">を表示
アクセス元がアドレス５だった場合は<FORM name="form" action="5.cgi" method="POST">を表示

というように、50以上のアクセス元によって別々のCGIに送信するよう全振り分けたいのですが、方法がわかりません。
どなたかご教授宜しくお願いいたします。

No.4 ベストアンサー 回答者： steel_gray 回答日時： 2006/12/14 14:42

>エラーになってしまいます

ちょっと手抜きで書いたので
アドレス１→'アドレス１'
1.cgi→'1.cgi'
addrX→'addrX'
みたいに「'」で括ってみてください。

それでもエラーになるなら、
CGIの2行目あたりに、
use CGI::Carp qw(fatalsToBrowser);
と、入れるとエラーの出る行番号なんかが出るはずなので場所を特定してください。

この回答へのお礼

おかげさまで解決することができました。本当にありがとうございました。

お礼日時：2006/12/14 15:34

No.3 回答者： steel_gray 回答日時： 2006/12/14 13:32

こんな感じで。

リファラーと送信先CGIの名前の関連性みたいのがはっきりしていれば、
50以上のリストをバカ正直に書かなくてもいいかもしれないけど。

# リファラーと送信先のリスト定義
%ref_addr=(
アドレス１ => 1.cgi,
アドレス２ => 2.cgi,
～～
アドレス５０ => 50.cgi,
);

# 環境変数HTTP_REFERERに合わせた送信先の設定
$cgiaddr = $ref_addr{$ENV{HTTP_REFERER}};

# 値が空だったら未定義のリファラー、送信先をaddrXに設定
$cgiaddr = addrX unless($cgiaddr);

print qq|<FORM name="form" action="$cgiaddr" method="POST">|;

この回答へのお礼

ご回答ありがとうございます。
何度か試してみましたが、エラーになってしまいます。cgiスクリプトとの相性がわるいのでしょうか？No.2で教えていただいた内容では動作しました。お手数ですが、宜しくお願いいたします。

お礼日時：2006/12/14 14:16

No.2 回答者： venzou 回答日時： 2006/12/14 12:53

＞リファラーは正常に取得できております。

でしたら、

@adr = ('アドレス１','アドレス２',・・・

for($i = 0; $i <= $#adr; $i++){
if($ENV{'HTTP_REFERER'} eq $adr[$i]){
print('<FORM name="form" action="'.($i+1).'.cgi" method="POST">');
last;
}
}

こんな感じでどうでしょう？

この回答へのお礼

ご回答ありがとうございます。
実際に使う送信先のcgi名が数字でないのですが、その場合はどのようにすればよろしいのでしょうか。
また、リファラーが取得できなかった場合の送信さきも指定できますでしょうか。わからないことばかりで申し訳ございません。

お礼日時：2006/12/14 13:19

No.1 回答者： venzou 回答日時： 2006/12/14 12:13

$ENV{'HTTP_REFERER'}

環境変数でアクセス元を調べる手が有ります。
しかし、プロバイダによっては、内容が入ってないことも、違うアドレスが入ることもあります。

まず、これが使えるか確認してみてください。

この回答へのお礼

ありがとうございます。リファラーは正常に取得できております。

お礼日時：2006/12/14 12:17