Доброго времени суток!
Я в Perl только начинаюший и много не понимаю... Вообщем возникла необходимось создать приметивный скрипт подтверждения. Идея такова: человек заполняет анкету, после заполнения PHP скрипт отсылает на маил указанный в ней письмо, где есть сформированная сылочка типа http://mysite.ru/cgi-bin/script.pl?name=hisname Вообщем передаем параметры скрипту, который отсылает на мой маил этот параметр и текст что регистрация подтверждена. Еще где-то прочитал, что если параметр 1 его можно передавать так http://mysite.ru/cgi-bin/script.pl/hisname , или я что-то путаю?
Заранее благодарен.

Digo

Цитата(Digo @ 12.4.2005, 09:08)

если параметр 1 его можно передавать так http://mysite.ru/cgi-bin/script.pl/hisname

http://mysite.ru/cgi-bin/script.pl?hisname

Вообще-то не hisname, а уникальный ключ, по которому ты определяешь какого пользователя активизировать...

Digo ты можешь параметры передать и так:

http://mysite.ru/reg/hisname

для этоого есть примочка к апачу mod_rewrite, которая сделает перенаправление с http://mysite.ru/reg/hisname на http://mysite.ru/cgi-bin/script.pl?name=hisname

Спасибо!
Да я там немного напутал...
Теперь столкнулся с проблемой как реализовать сам скрипт. Я походу че-то не так делаю или передаю, постоянно серверная ошибка 500. Идея такая кликая по ссылке передаю параметр, который присылается мне в письме... Может кто поможет?

скорей всего у тебя ошибка в первой строке, неверные права на файл или символы с кодом 10 завершают строку.

Решил начать с простого:
вот код

Код

#!/usr/bin/perl my $LastName = param{'lastname'} ; print "Подтверждение: ", param('lastname'),"<BR>";

передаю по ссылке http://mysite.ru/cgi-bin/script.pl?lastname=hisname
Вообщем для начала хочу просто ввыводить параметр переданный ссылкой на экран.
Опять та же фигня... Права 644, путь тот, символы с кодом 10 не знаю что это вроде набирал в блокноте...

Digo вот вот, ты набирал в блокноте у тебя ентер - это два символа 10 и 13, а в юниксе только 13. И шел считает что путь у тебя к #!/usr/bin/perl◙

Где заголовок???
Где подключение модуля CGI.pm???
param() это функция, потому передавать ей значение не нужно в фигурных скобках .
Привыкай всегда использовать use strict, не самая плохая привычка ;)))).
После того как получил параметр и сохранил его в переменную, не используй больше param(), пользуйся только той переменной в которую был сохранён параметр, можешь легко запутаться.

Код

#!/usr/bin/perl use strict; use CGI qw( :standard ); print header( -charset => 'Windows-1251'); my $LastName = param('lastname') ; print "Подтверждение: ", $LastName, "<BR>";

Удачи.

Это сообщение отредактировал(а) korob2001 - 14.4.2005, 16:35

korob2001 это следующий этап.

Цитата

korob2001 это следующий этап.

Secandr - ну может ты и прав, но только вот 500-ю ошибку он будет получать до тех пор, пока не выведет заголовок и не подключит модуль CGI.pm, он ведь пытается юзать param() именно из CGI.pm

Вообщем чинить и чинить...

Очень признателен вам Secandr и korob2001 за консультацию!
Вот только где тогда набирать скрипт если даже блокнот не подходит?

Поставь VI под Windows или используй любой редактор с подсветкой синтаксиса из этой ветки форума: http://forum.vingrad.ru/index.php?showtopic=43960

Заюзай DZSoft Perl Editor 5.4

Скачал DZSoft Perl Editor 5.6 рулит!!! спасибо, korob2001... правда trial до 120 строк кода
Все работает!!!
Теперь буду думать как переданный параметр на свой почтовый ящик отправлять...

Вот опять столкнулся с проблемами:
Вроде скрипт работает, выводит параметры, но почту не отсылает, в чем может быть дело?

Код

#!/usr/bin/perl #$mail_prog = '/usr/sbin/sendmail' ; #$recipient = '[email protected]'; use strict; use CGI qw( :standard ); print header( -charset => 'Windows-1251'); my $LastName = param('lastname') ; print "Подтверждение: ", $LastName, "<BR>"; open (MAIL,"|/usr/sbin/sendmail"); print MAIL "To: xxx\@mail.ru\n"; print MAIL "Content-Type: text/plain; charset=windows-1251\n"; print MAIL "From: digo\@list.ru\n"; print MAIL "Subject: Subject\n\n"; print MAIL "Подтверждение от ".$LastName." \n" ; close MAIL;

а точно путь /usr/sbin/sendmail

где ты его взял?

Да, я в супорте своего хоста спросил, они сказали /usr/sbin/sendmail К тому же у меня работает другой скрипт отправки почты, у него тот же путь...

Код

open (MAIL,"|/usr/sbin/sendmail");

Добавь ключи:

Код

open (MAIL,"|/usr/sbin/sendmail -t -oi -odq");

-t - Поля заголовка берутся из входных данных, а не из командной строки
-oi - Символ точки не считать признаком конца сообщения
-odq - Ставит сообщения в очередь, а не пытается отправить его немедленно, этот ключ можно убрать, но без него sendmail становится уязвим при атаке "Отказ от обслуживания".

Спасибо , теперь работает, правда письма с задержкой доходят...
Последний шаг это редирект после выполнения скрипта... Я как понял он осуществляется
print "Location: http://www.mysite.ru/\n\n";

когда выполняю скрипт, все просто выводится на экран, и никуда не переходит...

Для того, что бы работал редирект, им нужно заменить заголовок:
print "Content-type: text/html\n\n";
Т.е. строку заголовка нужно заменить следующей:

Код

print "Location: http://yandex.ru\n\n";

Если используешь CGI.pm, то заголовок:

Код

print $cgi->header();

Нужно заменить на такой

Код

my $cgi = new CGI; print $cgi->redirect( -uri => 'http://yandex.ru' );

Если нужно просто перенаправить пользователя через определённое кол-во секунд, то вставляешь в код страницы, с которой будет осуществляться перенаправление, такую строку в раздел <HEAD></HEAD>:

Код

<meta HTTP-EQUIV="Refresh" CONTENT="5;URL='http://yandex.ru'">

Другими словами, в HTML коде это будет выглядеть примерно так:

Код

<html>  <head>    <meta HTTP-EQUIV="Refresh" CONTENT="5;URL='http://yandex.ru'">     <title>Перенаправление</title>  </head>  <body>    <!--// Здесь тело документа //-->  </body> </html>

В последнем примере, перенаправление произойдёт через 5 секунд.
Удачи.

Это сообщение отредактировал(а) korob2001 - 18.4.2005, 19:02

В принципе все понятно... только вот что менять?, нужно же оставить print header( -charset => 'Windows-1251');(чтоб русские буквы отображал)??? А если дописывать пишет Status: 302 Moved Location:http://yandex.ru
Кстати редирект будет осуществлятся после отправки письма?

Код

use strict; use CGI qw( :standard ); print header( -charset => 'Windows-1251'); my $cgi = new CGI; print $cgi->redirect( -uri => 'http://yandex.ru' ); ....

redirect() - это и есть хеадер, только с перенаправлением.
charset - указывай на той странице, куда перенаправляешь пользователя, можешь ещё указать прямо в redirect'e.

Код

print $cgi->redirect( -uri => 'http://yandex.ru',                       -charset => 'Windows-1251' );

Если используешь redirect, то header не нужен.

Код

use strict; use CGI; my $cgi = new CGI; print $cgi->redirect( -uri => 'http://yandex.ru',                        -charset => 'Windows-1251' );

Удачи.

ЗЫ: если используешь CGI.pm объектно ориентированно, то не нужно указывать qw( :standard ). Просто пиши так use CGI; , создавай объект и орудуй всеми методами и свойствами этого, чудного, модуля.

Это сообщение отредактировал(а) korob2001 - 18.4.2005, 23:46

Большое спасибо , а то я никак не знал как редирект осуществлять, только теперь письма не отправляет, похоже просто не выполняется все что ниже, как же тогда делать если нужно осуществлять редирект после отправки письма?

Разбей программу на подпрограммы, там геде нужен redirect, юзай redirect, там где нужен header, юзай header.

Структура примерно такая:

Код

#!/usr/bin/perl -w use strict; use CGI; my $cgi = new CGI; sub show_form {                print $cgi->header( -charset => 'Windows-1251' );        # Здесь тело подпрограммы выводящей форму в браузер } sub send_mail {       # Здесь тело подпрограммы которая отправляет E-mail       # ни header, ни redirect здесь не нужны       # Здесь отправляем письмо       # А здесь перенаправляем пользователя       enjoy();        } sub user_controll {       # Здесь тело подпрограммы, которая проверяет полученные параметры       # Ни header, ни redirect здесь не нужны } sub enjoy {              # Здесь перенаправляем юзера       print $cgi->redirect( -charset => 'indows-1251',                             -uri => 'http://yandex.ru' );       } # Здесь делаем условия по которым будем запускать ту, или иную подпрограмму if ( defined $cgi->param('send') ) {      # Если программа получила параметр send, запускаем подпрограмму проверки данных      # если она вернёт истенное значение значит данные обрботаны и в порядке. Тогда      # передадим управление подпрограмме send_mail();      send_mail if user_controll(); } else {      # Если параметры не полученны, выводим форму в браузер      show_form(); }

Получается такая последовательность, когда запускается программа, она пропускает все подпрограммы. Когда доходит до условного выражения if ...else она проверяет был ли передан программе параметр send - это может быть имя кнопки SUBMIT.

Если параметр определён, то значит пользователь нажал кнопку SUBMIT и нам нужно сделать проверку данных если подпрограмма user_controll вернула истенное значение, то значит данные проверены и готовы к отправке. Запускаем подпрограмму send_mail.

Далее подпрограмма send_mail отправляет данные и из неё запускается подпрограмма enjoy, которая и перенаправляет пользователя на нужную тебе страницу.

Вообще-то я упростил код и условия для наглядности, для удобства можно было бы передавать параметры из одной подпрограммы, в другую. Не мешало бы ещё создать подпрограмму, которая выводила бы ошибки, если подпрограмма user_controll их опеределит. Но это уже лирика, цель была объяснить принцип и удобство работы программы, которая разбита на несколько подпрограмм.

Вроде понятно изложил.

Удачи.

Это сообщение отредактировал(а) korob2001 - 19.4.2005, 21:09

Спасибо за программу, я вчера в ней разбирался весь вечер с книгой (вернее в использовании процедур ) Вот только вопрос нельзя ли как-то упростить программку, мне например не нужно проверять данные и передавать параметр или выводить что-то в браузере(это я делал для проверки) Мне только нужно отправить в письме переданный по ссылке параметр и после осуществить редирект на html страницу.
Пытаюсь вызвать процедуру с конца, но че-то не пашет...

Код

#!/usr/bin/perl -w use strict; use CGI; my $cgi = new CGI; sub enjoy {       # Здесь перенаправляем юзера       print $cgi->redirect( -charset => 'Windows-1251',                             -uri => 'http://yandex.ru' ); } open (MAIL,"|/usr/sbin/sendmail -t -oi -odq"); print MAIL "To: orders\@helpos.org\n"; print MAIL "Content-Type: text/plain; charset=windows-1251\n"; print MAIL "From: xxx\@mail.ru\n"; print MAIL "Subject: Subject\n\n"; print MAIL "Переданный  параметр ".$LastName." \n" ; close MAIL; enjoy();

Ну, а где переменная $LastName получает параметр??? Вобщем замени строку:

Код

print MAIL "Переданный  параметр ".$LastName." \n" ;

На такую:

Код

print MAIL "Переданный  параметр ". $cgi->param('lastName') ." \n" ;

Естественно измени lastName на сой параметр.

ЗЫ: Только этот код очень опасен, я надеюсь ты понимаешь почему.

Удачи.

Да, я просто не все скопировал...
Все равно ошибки не возникает, редирект проходит, а письмо не отсылается:

Код

#!/usr/bin/perl -w use strict; use CGI; my $cgi = new CGI; sub enjoy {       # Здесь перенаправляем юзера       print $cgi->redirect( -charset => 'Windows-1251',                             -uri => 'http://yandex.ru' ); } print "Переданный  параметр ". $cgi->param('lastName') ." \n" ; open (MAIL,"|/usr/sbin/sendmail -t -oi -odq"); print MAIL "To: orders\@helpos.org\n"; print MAIL "Content-Type: text/plain; charset=windows-1251\n"; print MAIL "From: xxx\@mail.ru\n"; print MAIL "Subject: Subject\n\n"; print MAIL "Переданный  параметр ". $cgi->param('lastName') ." \n" ; close MAIL; enjoy();

А на счет опасности догадываюсь... типа можно ящик завалить письмами кликая по ссылке, но я пока только начинающий... так что эту проблему оставлю на будущее.

Только что проверил, всё работает только строку:

Код

print "Переданный  параметр ". $cgi->param('lastName') ." \n" ;

нужно убрать.

Да, верно просто у меня сервер тормозит только сейчас письмо дошло , только в письме не пришел сам параметр
Пришло: Переданный параметр и все...

Цитата

Да, верно просто у меня сервер тормозит только сейчас письмо дошло

-odq - Ставит сообщения в очередь, а не пытается отправить его немедленно, этот ключ можно убрать, но без него sendmail становится уязвим при атаке "Отказ от обслуживания".
Думаю ты понял, что это не сервер тормозит, а ты сам его поставил в очередь.

Цитата

только в письме не пришел сам параметр

Если у ты принимаешь параметр так:

Код

my $LastName = $cgi->param('LastName');

то вызывать скрипт нужно с параметром script.pl?LastName=Vasya

ЗЫ: Особое внимаение обрати на регистр букв.

Удачи.

Спасибо большое korob2001 ты мне очень помог не только написать программу, но и разобратся с некоторыми нюансами языка.
З.Ы. Ошибка была в регистре...