Просмотр сообщений
1
Perl / Умный e-mail автоответчик
« : 27 Сентября 2004, 13:43:20 »
Может быть есть готовые решения
Новости:
Форум работает только в режиме чтения!
Регистрация новых пользователей закрыта.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Страницы: [1]
2
Perl / Умный e-mail автоответчик
« : 27 Сентября 2004, 13:42:18 »
Так что же тогда можно попытаться сделать, как убрать эту проверку или как ввести туда диапазон кирилицы и какой он
3
Perl / Умный e-mail автоответчик
« : 24 Сентября 2004, 20:03:40 »
Пробовал ввести изменения результат тотже
4
Perl / Умный e-mail автоответчик
« : 24 Сентября 2004, 07:12:51 »
Как работает этот скрипт можно посмотреть по ссылке http://www.autoresponseplus.com/cgi-bin/arp3test/arp3.pl
Попробуйте ввести имя на латинице а потом на кирилице
Попробуйте ввести имя на латинице а потом на кирилице
5
Perl / Умный e-mail автоответчик
« : 24 Сентября 2004, 06:50:22 »
Фрагмент
sub IsAlphaNumeric {
my($textin) = @_;
if ($textin =~ /[^a-zA-Z0-9]/) {
return 0;
} # if
else {
return 1;
} # else
} # sub IsAlphaNumeric
sub IsAlphaNumericAndSpaces {
my($textin) = @_;
if ($textin =~ /[^a-zA-Z_0-9\\ ]/) {
return 0;
} # if
else {
return 1;
} # else
} # sub IsAlphaNumericAndSpaces
sub IsAlphaNumericAndSpacesAndExtraChars {
my($textin) = @_;
if ($textin =~ /[^a-zA-Z_.:!-?Ј,{}*\\$&0-9\\ ]/) {
return 0;
} # if
else {
return 1;
} # else
} # sub IsAlphaNumericAndSpacesAndExtraChars
sub IsValidEmailAddress {
my($email) = @_;
my($result);
unless ($email =~ /(@.*@)|(\\.\\.)|(@\\.)|(\\.@)|(^\\.)|(,)/
|| $email !~
/^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,4}|[0-9]{1,3})(\\]?)$/) {
$result = 1;
} # unless
else {
$result = 0;
} # else
if ($email =~ s/\\s//g) {
$result = 0;
} # if
return $result;
} # sub IsValidEmail
sub IsAlphaNumeric {
my($textin) = @_;
if ($textin =~ /[^a-zA-Z0-9]/) {
return 0;
} # if
else {
return 1;
} # else
} # sub IsAlphaNumeric
sub IsAlphaNumericAndSpaces {
my($textin) = @_;
if ($textin =~ /[^a-zA-Z_0-9\\ ]/) {
return 0;
} # if
else {
return 1;
} # else
} # sub IsAlphaNumericAndSpaces
sub IsAlphaNumericAndSpacesAndExtraChars {
my($textin) = @_;
if ($textin =~ /[^a-zA-Z_.:!-?Ј,{}*\\$&0-9\\ ]/) {
return 0;
} # if
else {
return 1;
} # else
} # sub IsAlphaNumericAndSpacesAndExtraChars
sub IsValidEmailAddress {
my($email) = @_;
my($result);
unless ($email =~ /(@.*@)|(\\.\\.)|(@\\.)|(\\.@)|(^\\.)|(,)/
|| $email !~
/^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,4}|[0-9]{1,3})(\\]?)$/) {
$result = 1;
} # unless
else {
$result = 0;
} # else
if ($email =~ s/\\s//g) {
$result = 0;
} # if
return $result;
} # sub IsValidEmail
6
Perl / Умный e-mail автоответчик
« : 23 Сентября 2004, 23:44:49 »
Сам текст набиваю по русски проблем нет но толь пытаюсь сохранить результат выдает
"can only contain letters, digits and spaces"
из скрипта проверки
"can only contain letters, digits and spaces"
из скрипта проверки
7
Perl / Умный e-mail автоответчик
« : 23 Сентября 2004, 22:49:45 »
Forza Нет это не о том. Тут в самой программе есть админ панель где можно сделать все настройки в том числе свои, подписчиков и т.д. но только воспринимает все изменения если ввод во все формы в том числе и на подписку осуществляется латинской раскладкой клавиатуры, при попытке ввести на кирилице выдает сообщение об ошибке. По другому нужно найти способ ввода данных по русски.
Страницы: [1]