Скрипт подписки на новости для размещения на вашем сайте

Для нашего хостинга информация утратила актуальность

Разместите следующую форму на страницах вашего сайта:

<form action='/cgi-bin/subscribe.cgi' target='_blank'>
<div>
Новости компании:<br>
<input type='text' name='email' value=''><br>
<input type='submit' value='Подписаться'>
</div>
</form>

Создайте файл subscribe.cgi в директории /cgi-bin со следующим содержанием:

#!/usr/bin/perl
use CGI;
my $qry = new CGI;
my $email = $qry->param('email');

open MAIL, '| /var/qmail/bin/qmail-inject';
print MAIL "To: news-subscribe\@test.ru\n";
print MAIL "From: $email\n";
print MAIL "Return-Path: $email\n";
close MAIL;

print "Content-Type: text/html\n\n";
print "<h1>Запрос принят</h1>";
print "<p>Вы будете подписан на новости после подтверждения запроса. ";
print "Проверьте почтовый ящик $email</p>";

Не забудте заменить news-subscribe@test.ru на ваш реальный адрес подписки. Сделайте файл исполняемым.

Пример работы этого скрипта: