|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Dmitry A. Nikitin 2:5020/400 19 Jan 2004 01:58:21
To : Ivan Frolcov
Subject : Re: Переменные окружения CGI
--------------------------------------------------------------------------------
Ivan Frolcov пишет:
> On Sun, 18 Jan 2004 15:42:00 +0000 (UTC), "Dmitry A. Nikitin"
> <dmitry@sbor.spb.su> wrote:
>
>
>>Как передать переменную REMOTE_ADDR в скрипт?
>
>
> "Она схватила его за руку и неоднократно спросила, где он девал
> деньги" (с)Аверченко
> А куда она у тебя исчезла?
>
Hикуда. Просто запамятовал.
Получить значение REMOTE_USER не удалось - всегда none.
в связи с этим просто решил сопоставлять ip c именами пользователей.
Хотел ещё сделать сравнение доменного имени почтового адреса с введённым
значением и если не совпадает выдавать ошибку.
введённое мыло уже в $input{email}.
@valid_email = ('localhost', 'domain.com');
foreach ($email = @valid_email) {
if ($input{email} =~ /$email/) {
$email = 0;
}
$email = 1;
}
if ($email == 0) {
&email_ok;
} else {
&email_not_correct;
exit;
}
но чего-то не хочет сравнивать. Где накосячил?
Если делать без цикла, то всё нормально.
if ($input{email} =~ /$valid_email[0]/) {
&email_ok;
} elsif ($input{email} =~ /$valid_email[1]/) {
&email_ok;
} else {
&email_not_correct;
exit;
}
--
mailto:dmitry@sbor.spb.su
http://dmitry.home.sbor.net http://10.4.30.7
ftp://dmitry.home.sbor.net ftp://10.4.30.7
--- ifmail v.2.15dev5.1
* Origin: Home Inc. (2:5020/400)
Вернуться к списку тем, сортированных по:
|
