Модератор


Зарегистрирован: Feb 2003
Место проживания:
Публикаций: 347
Статус:  |
А самому что трудно написать, это же почти на всех сайтах програмирования описано что и как...
Я не жалко вот скрипт на перле:
Создаешь файл мыло.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/<!--(.|\n)*-->//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>
Вот и все...
Сообщить модератору об этом сообщении | Предупреждение | IP: определен
|