まだこのリファラーからの文章は用意してません
|
#!/usr/bin/perl $refs=$ENV{'HTTP_REFERER'}; print "Content-type: text/html\n\n"; print "<html><head><title>lab2.jp</title></head><body>\n\n"; print "リファラー:$refs<p>\n"; #↓この行のURL部分を想定されるリファラーに置き換えます。 if ($refs eq "http://lab2.jp/") { print "トップページからのアクセスですね。ありがとうございます。\n"; } else { print "まだこのリファラーからの文章は用意してません\n"; } |