#!/usr/bin/perl

require "set.pl";
$in{referer} = "rudean";
&getinput;
&printhead;
open(FILE, "config.dat"); $a = @config = <FILE>; close FILE; for ($i=0; $i<$a; $i++) { chomp($config[$i]); }
if (($in{username}) && (-e "$config[7]/$in{username}")) {
@USER = getfile("$config[7]/$in{username}");
$mess=<<d00der;
Пароль пользователя $in{username}: $USER[1]
Вход в систему $config[14]member.cgi
d00der
&sendmail($USER[9], $config[16], "Ваш пароль", $mess);
$text=<<d00der;
<H1 align="center"><font size="3">Напоминание пароля.</font></H1>
<p align="center"><b><font color="#0000FF">
Пароль выслан на e-mail $USER[9].</font></b><p><br></p>
d00der
reptem($text);
}
$text=<<d00der;
<h1 align="center"><font size="3">Напоминание пароля</font></h1>
<form METHOD="POST" ACTION="forgot.cgi">
<p align="center">
Логин: <input TYPE="TEXT" NAME="username" size="20"> <input TYPE="Submit" NAME="Submit" VALUE="Выслать пароль">
</form>&nbsp;</p><br></p>
d00der
reptem($text);

sub reptem {
my($text) = @_;
open(TEMP, "html.txt");
@TE = <TEMP>;
close TEMP;
$temp = join('',@TE);
$temp =~ s/%PLACE%/$text/;
print "$temp";
exit;
}
