Форум сетевых администраторов (http://netadmin.ws/forum/index.php)
- Поиск и обмен (http://netadmin.ws/forum/forumdisplay.php?forumid=27)
-- Обработчик Web формы с отправкой на email (Per) Где? (http://netadmin.ws/forum/showthread.php?threadid=4060)

Обработчик Web формы с отправкой на email (Perl) Где?

Нужен скрипт на перле (Perl), обрабатывающий форму и посылающий ее значения на мыло но, проблема в том, что должно уметь закачивать файлы с локального компа и аттачить к письму.
Кто что посоветует?

__________________
C уважением, Benedict

http://www.dtheatre.com/scripts/formmail
http://www.hotscripts.com/PHP/Scrip...orm_Processors/

__________________
Всегда есть решение.

Еще можно здесь покапаться, может наидете для себя подходящее:
=http://www.woweb.ru/non-cgi/16/

хороший проверенный рабтающий скрипт "на ура". Форму можно менять как угодно, главное сохранить имена инпутов неизменными.

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>

---

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!"

да ну, полный отстой.

__________________
Всегда есть решение.

polo да что ты говоришь а что собсно тебе не нравица?

__________________
"Gott weiss, ich will kein Engel sein!"

1. нет проверки входящих данных, можн и текста на пару мегабайт засунуть и отослать.
2. Просто использует программу сендмэйл, если к ней доступа нема то соси лапу.
Не говорю о том что нельзя прикреплять файлы. Да и вообще это самое простое что можно придумать.

__________________
Всегда есть решение.

polo

quote:

---

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

---

quote:

---

Просто использует программу сендмэйл, если к ней доступа нема то соси лапу.

---

__________________
"Gott weiss, ich will kein Engel sein!"