 |
 |
Форум сетевых администраторов » Веб скрипты » Поиск и обмен » Обработчик Web формы с отправкой на email (Per) Где?
| Автор |
| Тема |
 |
|
 |
|
|
|
Участник
|
 Обработчик Web формы с отправкой на email (Perl) Где? |
[сооб. #31997]
 24-01-2003 15:19 |
|
Участник
Зарегистрирован: Oct 2002
Место проживания:
Публикаций: 18
Статус:  |
Нужен скрипт на перле (Perl), обрабатывающий форму и посылающий ее значения на мыло но, проблема в том, что должно уметь закачивать файлы с локального компа и аттачить к письму.
Кто что посоветует?
__________________
C уважением, Benedict
Сообщение было отредактировано Benedict 24-01-2003 в 15:47
Сообщить модератору об этом сообщении | Предупреждение | IP: определен
|
|
24-01-2003 15:19 |
|
|
Администратор
|
http://www.dtheatre.com/scripts/formmail
http://www.hotscripts.com/PHP/Scripts_and_Programs/Form_Processors/... |
[сооб. #31998]
24-01-2003 15:22 |
|
|
Участник+
|
| Еще можно здесь покапаться, может наидете... |
[сооб. #32042]
25-01-2003 00:00 |
|
|
Модератор
|
| хороший проверенный рабтающий скрипт "на... |
[сооб. #32110]
26-01-2003 16:08 |
|
Модератор
Зарегистрирован: Sep 2001
Место проживания: BloodyVostok
Публикаций: 565
Статус: |
хороший проверенный рабтающий скрипт "на ура". Форму можно менять как угодно, главное сохранить имена инпутов неизменными.quote:
<form action="http://my_site.com/cgi-bin/mail.cgi" method=post name=mail">
<table cellpadding=4 cellspacing=1 border=0 width=30% bgcolor=#999999 align=center><tr><td bgcolor=#EEEEEE colspan=2 align=left><b>Отправляем мыло</b></td>
</tr>
<tr bgcolor=#FFFFFF valign=middle>
<td><b>Ваш адрес</b></td>
<td>
<input type=text name="from" size=15>
</td>
</tr>
<tr bgcolor=#FFFFFF >
<td valign=top width=30%><b>Тема:</b></td>
<td valign=middle>
<input type=text name="subj" size=20 maxlength=40 value="">
</td>
</tr>
<tr bgcolor=#FFFFFF >
<td valign=top><b>Текст сообщения:</b></td>
<td valign=middle>
<textarea cols=30 rows=6 name="body"></textarea>
</td>
</tr>
<tr>
<td bgcolor=#EEEEEE valign=middle colspan=2 align=center>
<input type=Submit value=Отправить name="Submit">
<input type="reset" value="Очистить" name="reset">
</td>
</tr>
</table>
</form>
вот сам скрипт mail.cgi
quote:
#!/usr/local/bin/perl
use CGI ;
use strict;
my $mail_prog = '/usr/lib/sendmail';
my $query = new CGI;
my $from = $query->param('from'); #
my $subj = $query->param('subj'); #Получаем данные из формы.
my $body = $query->param('body'); #
if ($from !~ /.+\@.+\..+/) {&Error}#Проверяем на правильность мыла
my $to = "baklanov\@tut.net" ;#определяем адрес куда шлем мыло
open (MAIL, "|$mail_prog -t");
print MAIL "To: $to\n";
print MAIL "Reply-to: $from\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subj\n";
print MAIL "\n\n";
print MAIL "".$body."\n" ;
print MAIL "\n\n";
close (MAIL);
print "Content-type: text/html\n\n";#Сообщение после отправки
print "Спасибо что наспамили :-\";#
#print "Location: http://test.com/n; а можно редиректить
sub Error {
print "Content-type: text/html\n\n";
print "Левое мыло, вернись и исправь быро!";
exit;
}
__________________
"Gott weiss, ich will kein Engel sein!"
Сообщить модератору об этом сообщении | Предупреждение | IP: определен
|
|
26-01-2003 16:08 |
|
|
Модератор
|
polo да что ты говоришь  а что собсно тебе... |
[сооб. #32132]
26-01-2003 19:17 |
|
|
Администратор
|
| 1. нет проверки входящих данных, можн и текста... |
[сооб. #32177]
26-01-2003 21:28 |
|
Администратор
Зарегистрирован: May 2001
Место проживания:
Публикаций: 4642
Статус: |
1. нет проверки входящих данных, можн и текста на пару мегабайт засунуть и отослать.
2. Просто использует программу сендмэйл, если к ней доступа нема то соси лапу.
Не говорю о том что нельзя прикреплять файлы. Да и вообще это самое простое что можно придумать.
__________________
Всегда есть решение.
Сообщить модератору об этом сообщении | Предупреждение | IP: определен
|
|
26-01-2003 21:28 |
|
|
Модератор
|
polo
[quote]нет проверки входящих данных,... |
[сооб. #32652]
30-01-2003 03:31 |
|
Модератор
Зарегистрирован: Sep 2001
Место проживания: BloodyVostok
Публикаций: 565
Статус: |
polo
quote:
нет проверки входящих данных, можн и текста на пару мегабайт засунуть и отослать.
ну это элементарный и понятный скрипт, я ж не сказал что он "суперкрутой"
quote:
Просто использует программу сендмэйл, если к ней доступа нема то соси лапу.
а где лапу не соси?  ведь почти все хостеры дают сендмайл, и редко smtp
__________________
"Gott weiss, ich will kein Engel sein!"
Сообщить модератору об этом сообщении | Предупреждение | IP: определен
|
|
30-01-2003 03:31 |
|
|
|
Формат времени GMT. Текущее время 18:58.
|
Правила форума:
Вы не можете создавать новые темы.
Вы не можете отвечать на существующие темы.
Вы не можете прикреплять файлы.
Вы не можете редактировать свои сообщения. |
HTML теги выкл.
Спец. код вкл.
Смайлики вкл.
[IMG] тег выкл.
|
|
|
|
| |
Page generated in 0.01124501 seconds (54.68% PHP - 45.32% MySQL) with 26 queries.
|
|
