#!/usr/bin/perl
#############################################################
##            ExchangeVisits    Version  3.00              ##
##            February 2003  Ust-Nera  Russia              ##
##            All rights  ScriptZaWM&RuScript              ##
##            Web  http://www.script.zawm.biz              ##
##            Support scripts script@zawm.biz              ##
#############################################################
require "config.pl";
require "allhtml.pl";
print "Content-Type: text/html\n\n";
if($ENV{'REQUEST_METHOD'} eq 'GET'){$query=$ENV{'QUERY_STRING'}}
elsif($ENV{'REQUEST_METHOD'} eq 'POST'){sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'})}
@formfields=split(/&/,$query);
sub urldecode{local($val)=@_;
$val=~s/\+/ /g;$val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
return $val;}
foreach (@formfields){chomp($_);
($f_n,$f_v)=split(/=/,$_);
$f_n=&urldecode($f_n);
$f_v=&urldecode($f_v);
if($f_n=~/^d/ && $f_v ne '1'){$f_v = 0}
if($f_n eq 'move'){push(@td,$f_v)}else{$in{$f_n}=$f_v}}
@month = ("01", "02", "03", "04", "05", "06", "07","08", "09", "10", "11", "12");
($Seconds, $Minutes, $Hours, $DayInMonth, $Month, $ShortYear, $DayOfWeek,
$DayOfYear, $IsDST) = localtime(time);
$Year = $ShortYear + 1900;$Year=~s/^..//;
$Date = "$DayInMonth.$month[$Month].$Year";
$today = "$DayInMonth.$month[$Month].$Year";
$tabv='<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#CCCCFF" bgcolor="#F0F0F0">
<tr><td width="100%" align="center"><b><font size="2">Напоминание&nbsp;&nbsp;
пароля</font></b><b><font size="2">&nbsp;</font></b></td></tr></table>';
if ($in{'action'} eq ""){
$text=<<d00der;
$tabv<p align="center">Если Вы забыли свой пароль воспользуйтесь данной формой.<br>
Введите свой логин с которым Вы регистрировались в системе<br>и пароль будет выслан
Вам на email.</p>
<form method="POST">
<p align="center">Ваш логин: <input type="text" name="user" size="15">
<INPUT TYPE=HIDDEN NAME="action" VALUE="us">
<input type="submit" value="Напомнить"></p>
</form>
d00der
reptem($text);
exit;}
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
foreach (@users){($login,$pwd,$id,$status,$dr,$dc) = split(/\|/,$_);
if($in{'user'} eq $login){$userid=$id;$password=$pwd;$exist='da';}}
$u = $in{'user'};
$error="<br><br><p align=center>Пользователя $in{'user'} не существует.</font></p>";
if($ST eq 'B'){$error = '<br><p align=center><font size=4><p>&nbsp;</p><p>&nbsp;</p>'}
if($password{$u} eq $in{'pwd'} && $exist eq 'da'){
if ($in{'action'} eq "us"){
open(STAT,"./users/$userid/info.user");
@stat = <STAT>;
close(STAT);chomp(@stat);
$text=<<d00der;
$tabv<p align="center">Пароль выслан на Ваш e-mail <font color="#008080">
<b> $stat[1]</b></font></p>
d00der
open (MAIL, "|$mailprog -t");
print MAIL "From: $adminmail\n";
print MAIL "To: $stat[1]\n";
print MAIL "Subject: Напоминание пароля в $namecap\n";
print MAIL "Данные для доступа на ваш аккаунт:\n";
print MAIL "Логин:  $in{'user'}\n";
print MAIL "Пароль: $password\n\n";
print MAIL "С уважением администрация $namecap\n";
print MAIL "$htmlurl\n";
close (MAIL);
reptem($text);
}
#### Если ошибка ####
}else{
$text=<<d00der;
$tabv<center>$error<br></center></b>
d00der
reptem($text);
}
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;
}


