Автор Тема: проверка email  (Прочитано 3664 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
проверка email
« : 25 Июня 2003, 12:21:34 »
Подскажите пожалуйста,
У меня на сайте регестрируются всякие типы и оставляют там свое мыло, далее сделана рассылка, но что то она плохо работает: выдает (Internal Server Error), хотя рассылка отправлена и текст вставлен как надо, но сообщения что все ок не выдает.
Когда тестировался скрипт, все было ок.
Я вот думаю что это из за того что кто то вводит неправильные адреса (то зяпятые, да и вообще неправильные), вопрос, как сделать, что б эти адреса проверались при вводе или же что б мне сообщалось при отправке какой адресс не правильный
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
проверка email
« Ответ #1 : 25 Июня 2003, 12:31:57 »
The documentations is your friend

Оффлайн alex007

  • Фанат форума
  • Ветеран
  • *****
  • Сообщений: 835
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.russians-in-london.co.uk/
проверка email
« Ответ #2 : 25 Июня 2003, 12:46:16 »
Цитировать
проверка email

Насколько помниться обсуждалась тема.

$email = \'email@address.com\';
if ($email =~ /^[a-zA-Z_\\.-][a-zA-Z0-9_\\.-\\d]*\\@[a-zA-Z\\.-\\d]+\\.[a-zA-Z]{2,4}$/) {
# действия, выполняемые если e-mail верный
}
else {
# действия, выполняемые если e-mail НЕверный
}

Читай дальше: http://www.webscript.ru/stories/02/02/28/6359691
Русские-в-Лондоне. Как они там? Интересно. Инфо (FAQ), Форум и Магазин

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
проверка email
« Ответ #3 : 25 Июня 2003, 13:14:55 »
Цитировать
NeoNox:
http://wiki.webscript.ru/PFWWW500


еще раз повторяю - Когда тестировался скрипт, все было ок
и он то работает, с моими 3 адресами как песня, а когда подключаю список всех зарегестрированых адресов, вот такая вот беда
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
проверка email
« Ответ #4 : 25 Июня 2003, 13:19:53 »
Yaroslav еще раз повторяю
Цитировать
Если у вас нет доступа к логу ошибок сервера, для отладки скрипта используйте
директиву use CGI::Carp qw (fatalsToBrowser);
А если есть доступ к логам - смотрим там. Гадать что и где у тебя неправильно работает слишком неблагодарное занятие.
The documentations is your friend

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
проверка email
« Ответ #5 : 25 Июня 2003, 13:24:46 »
Цитировать
NeoNox:
А если есть доступ к логам - смотрим там. Гадать что и где у тебя неправильно работает слишком неблагодарное занятие

Нету...(((
Согласен.
что происходит при нажатии "отправить" - очень долго думает, даже хочется еще раз нажать "отправит", а потом ошибка, но при этом сработало как надо.
Может так легче будет? часть скрипта:

sub add {
$s=0;
$str=$FORM{\'str\'};
$sp=$FORM{\'sp\'};
$tema=$FORM{\'tema\'};
$name=$FORM{\'name\'};
$pass=$FORM{\'pass\'};
$text=$FORM{\'text\'};
chomp $text;
$tel=$FORM{\'tel\'};
$email=$FORM{\'email\'};
 if ($tema eq \'\'){
   $Problem="Вы не ввели тему заказа.\\n"; &Error; exit; }
 if ($name eq \'\'){
   $Problem="Вы не ввели название Вашего предприятия.\\n"; &Error; exit; }
 if ($pass eq \'\'){
   $Problem="Вы не выбрали себе пароль. (пароль нужен для изменения или удаления введенной Вами информации.\\n"; &Error; exit; }
 if ($text eq \'\'){
   $Problem="Вы не ввели полное описание.\\n"; &Error; exit; }
else {
open (MSG, "$file");
@msg=;
close(MSG);
open (FILE, ">$file");
   foreach $line (@msg) {
   if ($s == $str) {
      if ($sp eq "0") { print FILE "$sp`$tema`$name`$pass`$tel`$email`$date`$text\\n$line"; }
      if ($sp eq "-") { $mline=$line; print FILE "$line$sp`$tema`$name`$pass`tel`email`$date`$text\\n"; }
      if ($sp eq "!") { print FILE "0`$tema`$name`$pass`$tel`$email`$date`$text\\n"; }
         }
   else { print FILE "$line"; }
   $s++; }
close(FILE);
&htmlhead;
$Head="Сообщение добавлено";
&PrintTableHeader;
print "Ваше сообщение добавлено.
\\n";
print "Кликните сюда чтобы перейти к списку сообщений\\n";
&mail;
} }
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
проверка email
« Ответ #6 : 25 Июня 2003, 13:27:52 »
Цитировать
NeoNox:
Если у вас нет доступа к логу ошибок сервера, для отладки скрипта используйте
директиву use CGI::Carp qw (fatalsToBrowser);

как раз вчера выкачал, сижу грызу гранит науки :)
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
проверка email
« Ответ #7 : 25 Июня 2003, 13:30:02 »
use CGI::Carp qw (fatalsToBrowser);
Ээээ...уже не один раз сказали.
2B OR NOT 2B = FF

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
проверка email
« Ответ #8 : 25 Июня 2003, 23:23:55 »
Цитировать
alex007:
Читай дальше: http://www.webscript.ru/stories/02/02/28/6359691

спасибо за статейку.
Из чего следует что самый оптимальный вариант - отправка на мыло и подтверждения.
переходим к новой теме ))
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28