|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Anton Kudris A. 2:5057/21.17 12 Jun 2001 16:28:12
To : All
Subject : проверка $ENV{'HTTP_REFERER'}
--------------------------------------------------------------------------------
Помогите сделать сабж. Hужно, чтобы скрипт работал с данными которые
поступили с моей форме, а не с чужой. Я пробовал делать так
my @domens = qw (http://www.jod.ru/index.php?show=gb&page=2 . еще адреса. )
if ( grep /^$ENV{'HTTP_REFERER'}/, @domens ) {
print "OK.";
} else {
print "error."
Это работает до тех пор, пока адреса в @domens вида http://www.aaa.bbb/ccc.htm,
но у меня в адресе есть и '?' и '=' и вышеописанная конструкция на адресе вида
http://www.host.ru/index.php?param1=someinfo¶m2=someinfo уже не работает.
Я пока сделал так:
my @domens = qw (http://www.jod.ru/index.php?show=gb&page=2 .... ):
foreach my $a (@domens) {
if ( $a eq $ENV{'HTTP_REFERER'} ) {
print "ok\n";
exit;
}
Hо это выглядит уж очень некрасиво. И потом, адрес может быть таким
http://.../index.php?page=2, а может и .../index.php?page=45
Hе вносить же в @domens все адреса с page=1..45
Как это всё лучше сделать?
З.Ы. практические никакие модули хостер использовать не даёт :(
Bye, All.
--- [ http://jod.formoza.ru ]Д-Д-Д-Д-Д-Д-Д-Д-Д-Д-Д-Д-їjodЪ-Д-Д-Д-Д-Д-Д--Д-Д
* Origin: участник фаталистическо-пофигистического движения (2:5057/21.17)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
