茶しぶ男
2000/01/26(水) 09:55:29
> それぞれから来たことが(見てる方に)わかるように、それぞれbodyカラーを変えたいと考えています。
> 例えばAから来た人は黒背景、Bから来た人はパンダ柄(^^；とかピンク字とか…。
イマイチ、言いたい事が分からないけど、
「掲示板などで、Ａのページからやって来た人の投稿記事の背景を黒として、Ｂのページから来た人の投稿記事背景をパンダ画像にしたい」ということと解釈させてもらいましょう（いいのかな？）
# リンク元ＵＲＬ,TABLEの属性
@link_moto = (
'
http://aaa/aaa.html,BGCOLOR=BLACK TEXT=WHITE',
'
http://bbb/bbb.html,BACKGOUND=panda.gif BGCOLOR=WHITE TEXT=BLACK',
);
foreach (@link_moto) {
($url,$tablebody) = split (/,/,$_);
if ($ENV{'HTTP_REFERER'} =~ /$url/) { # @link_motoに登録有り
print "<TABLE $tablebody>\n"; # 背景決定
$flag = 1;
last;
}
}
if (!$flag) { print "<TABLE>\n"; } # @link_motoに登録されてない場合は背景無し
print "<TR><TD>";
記事内容を出力
print "</TABLE>\n";
一つ一つの記事をTABLEで囲んで、そのTABLEの背景として@link_motoに登録されていたら指定の背景にするようにしています。
ただし、HTTP_REFFERは必ずしもリンク元データが入ってるわけではないので、誤動作してしまうのは避けられないでしょうね。