Форум сетевых администраторов

Форум сетевых администраторов (http://netadmin.ws/forum/index.php)
- Поиск и обмен (http://netadmin.ws/forum/forumdisplay.php?forumid=27)
-- Send Mail (http://netadmin.ws/forum/showthread.php?threadid=4638)

Помещено om_nebun 06-03-2003 в 17:47:

Send Mail

Плиз нэлп , нужен скрипт ПХП который отправляет данные с формы на мэил, простой но главное рабочий, можно и на перле но чтобы работал!
За ранее пасибо!

Помещено alex007 06-03-2003 в 18:15:

А самому что трудно написать, это же почти на всех сайтах програмирования описано что и как...

Я не жалко вот скрипт на перле:
Создаешь файл мыло.pl (незабуть поместить в cgi-bin папку и прочмодить 755)

#!/usr/local/bin/perl

$sendmail = "/usr/lib/sendmail";
$tomail = "куды@что-то.ru";
$location = "URL после отправки письма";
##################################################
###

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
local($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# strip off any possible SSI comment tags.
$value =~ s///g;
$in{$name} = $value;
}

open (MAIL,"|$sendmail -t") || die "there was a problem with the call to sendmail";
print MAIL "To: $tomail\n";
print MAIL "From: $in{'Name'} <$in{'Email'}>\n";
print MAIL "Reply-To: $in{'Email'}\n";
print MAIL "Subject: $in{'Subject'}\n\n";

print MAIL "$in{'Message'}\n\n";
close(MAIL);

print "Location: $location\n\n";

Создаешь файл форма.html
<html>
<head>
</head>
<body>
<form method=POST action="cgi-bin/мыло.pl" name="sendmail">
Your name:<input id="input" type="text" name="Name" size="30" maxlength="30"><br>
Subject:<input id="input" type="text" name="Subject" size=30><br>
Your E-mail:<input id="input" type="text" name="Email" size="30" maxlength="30">
<br>
Your message: <textarea type=text name="Message" rows=7 cols=40 wrap="virtual"></textarea>
<input type="submit" value=" Submit Form " style="{border: outset 1px; color: #000000; background: #009900;}"> * <input type="reset" style="{border: outset 1px; color: #000000; background: #FF3333;}"></form>
</body>
</html>

Создаешь файл отправки письма.html
<html>
<head>
</head>
<body>
Твое мыло отправлено
</body>
</html>

Вот и все...

Помещено Ausw 06-03-2003 в 18:44:

см. тут.
http://www.netadmin.ws/forum/showthread.php?s=&postid=31997

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

Формат времени GMT. Текущее время 10:54.

Показаны 3 сообщений на этой странице