#!/usr/bin/perl
print "Content-type: text/html\n\n";

##############################################################################
# Hot eMail 4U                   Version 1.1
# Copyright 2000 SoftArea.ru    info@softarea.ru
# Created 29/04/2000               Last Modified 17/11/2000
# Scripts Archive at:           http://www.softarea.ru/cgi-bin/show.pl?39
##############################################################################
# COPYRIGHT NOTICE
# Copyright 2000 SoftArea.ru, Сергей Миллер. All Rights Reserved.
#
# Hot eMail 4U разрешено изменять или дополнять, но запрещено распростронять
# в измененном виде. Программа бесплатна, но не свободно распростроняема!
# Это значит, что Вы можете использовать ее совершенно бесплатно, но Вы не можете
# выкладывать программу где-либо. In-Out Counter может быть скачена только
# по ссылкt, указанной вверху.
#
##############################################################################
# УСТАНОВКА
# Copyright 2000 SoftArea.ru, Сергей Миллер. All Rights Reserved.
#
# Учитывая страх многих перед настройкой скриптов, я постарался сделать
# установку Hot eMail 4U, как можно проще! Итак, начнем прямо отсюда:
# В следующей строке введите E-mail-адрес  на который должны посылаться
# сообщения (обязательный параметр):
$email = 'shpakge@pisem.net';

# Следующая строка предназначена для вашего интерфейса. Аккуратно вставьте между
# кавычками html-код, который показываться до формы. Единственно, что Вы должны учитывать,
# в вашем коде НЕ ДОЛЖНО быть символа: '. (необязательный параметр):

$int1 = ' ';

# А cледующая строка предназначена для вашего интерфейса снизу формы. Аккуратно вставьте между
# кавычками html-код, который показываться после формы. Не забудьте про символ: ' !
# (необязательный параметр):

$int2 = ' ';

# и последнее, укажите здесь путь до eMail программы на вашем сервере (если путь Вам
# не известнем, направьте письмо администратору сервера или попробуйте со вставленным вариантом
# он встречается чаще всего):

$emp = "/usr/lib/sendmail";

#Готово! Теперь ПРОСТО сделайте ссылку на hem4u.pl, как на обычный файл, приставив
# следующее окончание: "?show"! Например:
# cgi-bin/hem4u.pl?show
#Если у Вас что-то не получается, пишите мне по адресу: chef@softarea.ru
##############################################################################

if ($ENV{'QUERY_STRING'} eq "show") { 

print $int1; 

# здесь html-код для формы. Можете изменять как хотите:
print '<FORM ACTION="hem4u.pl" METHOD="POST">
<center><table>
<tr><td>Имя:</td><td><INPUT TYPE="text" NAME="name" SIZE="20"></td></tr>
<tr><td>E-mail:</td><td><INPUT TYPE="text" NAME="email" SIZE="20"></td></tr>
<tr><td>URL:</td><td><INPUT TYPE="text" NAME="url" SIZE="20" VALUE="http://"></td></tr>
<tr><td>Тема:</td><td><INPUT TYPE="text" NAME="subj" SIZE="20"></td></tr>
<tr><td>Сообщение:</td><td><TEXTAREA NAME="text" ROWS="6" COLS="25"></TEXTAREA></td></tr>
<tr><td><INPUT TYPE="submit" VALUE="Отправить"></td><td><INPUT TYPE="Reset" VALUE="Очистить"></td></tr>
</table></center>
</FORM>';

print $int2; 
exit
}

&readparse;

$value[1] = 'mail@hem4u.pl' if ($value[1] eq "");

open MAIL , "|$emp -t";
print MAIL "To: $email\n";
print MAIL "From: $value[1]\n";
print MAIL "Subject: $value[3]!\n";
print MAIL "Hot eMail 4U сообщает:

Имя: $value[0]
E-mail: $value[1]
URL: $value[2]
Тема: $value[3]
Текст: $value[4]
--
Данные о посетителе:
IP-адрес: $ENV{'REMOTE_ADDR'}
Удалённый хост: $ENV{'REMOTE_HOST'}
Браузер, ОС, язык: $ENV{'HTTP_USER_AGENT'}
--
Dы сегодня были на Shpak.narod.ru!";
close MAIL;

print $int1; 
print "<center>
<table><tr><td>
<h2>Спасибо, $value[0]!</h2></td></tr>
<tr><td><font color=red><B>Ваше сообщение успешно отправлено.</B></font></td></tr>
<tr><td height=180><font face=verdana size=-2><center>Copyright (c) 2000, <B>SoftArea<font color=red>.ru</font></B> </center></font></td></tr>
</table></center>";
print $int2; 

sub readparse {
read(STDIN,$user_string,$ENV{'CONTENT_LENGTH'});

if (length($ENV{'QUERY_STRING'})>0) {$user_string=$ENV{'QUERY_STRING'}};
$user_string =~ s/\+/ /g;
@name_value_pairs = split(/&/,$user_string);
foreach $name_value_pair (@name_value_pairs) {
        ($keyword,$value) = split(/=/,$name_value_pair);
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge;
        push(@value, "$value");
       $user_data{$keyword} = $value;
	  if ($value=~/<!--\#exec/) {
		print "Content-type: text/html\n\nNo SSI permitted";
		exit;
	  };
};
};