アクセス元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 · ベストアンサー

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

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

お礼

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

回答No.3

steel_gray

こんな感じで。
リファラーと送信先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で教えていただいた内容では動作しました。お手数ですが、宜しくお願いいたします。

回答No.2

venzou

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

@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名が数字でないのですが、その場合はどのようにすればよろしいのでしょうか。
また、リファラーが取得できなかった場合の送信さきも指定できますでしょうか。わからないことばかりで申し訳ございません。

回答No.1

venzou

$ENV{'HTTP_REFERER'}

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

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

お礼

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