param('register')))
{
$login=$CGI_PARAMS->param('login');
$lastname=$CGI_PARAMS->param('lastname');
$firstname=$CGI_PARAMS->param('firstname');
$middlename=$CGI_PARAMS->param('middlename');
$email=$CGI_PARAMS->param('email');
if ($CGI_PARAMS->param('day')=~/^\d+$/ && ($CGI_PARAMS->param('day')<32)
&& $CGI_PARAMS->param('month')=~/^\d+$/ && ($CGI_PARAMS->param('month')<12)
&& $CGI_PARAMS->param('year')=~/^\d+$/ && ($CGI_PARAMS->param('year')>0))
{
$birth=$CGI_PARAMS->param('year').'-'.($CGI_PARAMS->param('month')+1).'-'.$CGI_PARAMS->param('day').' 00:00:00';
}
else
{
$birth='1900-01-01 00:00:00';
}
$gender=$CGI_PARAMS->param('gender');
$profession=$CGI_PARAMS->param('profession');
$webpage=$CGI_PARAMS->param('webpage');
$interests=$CGI_PARAMS->param('interests');
$publiclastname=($CGI_PARAMS->param('publiclastname') || '0');
$publicfirstname=($CGI_PARAMS->param('publicfirstname') || '0');
$publicmiddlename=($CGI_PARAMS->param('publicmiddlename') || '0');
$publicemail=($CGI_PARAMS->param('publicemail') || 0);
$publicbirth=($CGI_PARAMS->param('publicbirth') || '0');
$publicgender=($CGI_PARAMS->param('publicgender') || '0');
$publicprofession=($CGI_PARAMS->param('publicprofession') || '0');
$publicwebpage=($CGI_PARAMS->param('publicwebpage') || '0');
$publicinterests=($CGI_PARAMS->param('publicinterests') || '0');
if ($email =~ /^[\w\.\-]+\@[\w\.]+$/)
{
$q_lastname=$DB->quote($lastname);
$q_firstname=$DB->quote($firstname);
$q_middlename=$DB->quote($middlename);
$q_email=$DB->quote($email);
$q_user=$DB->quote($ENV{REMOTE_USER});
$query="update user set firstname=$q_firstname, middlename=$q_middlename, lastname=$q_lastname, email=$q_email where login=$q_user";
# print $query."
\n";
$result = $DB->prepare($query) or die "Can't prepare query: $query\n";
$result->execute or die "Can't execute query: $query\n";
$query="update anketa set ";
$query.="birth=".$DB->quote($birth).", gender=".$DB->quote($gender).", profession=".$DB->quote($profession).", webpage=".$DB->quote($webpage).", interests=".$DB->quote($interests).",";
$query.=" publiclastname=$publiclastname, publicfirstname=$publicfirstname, publicmiddlename=$publicmiddlename, publicemail=$publicemail, publicbirth=$publicbirth, publicgender=$publicgender, publicprofession=$publicprofession, publicwebpage=$publicwebpage, publicinterests=$publicinterests";
$query.=" where login=".$q_user;
# print $query."
\n";
$result = $DB->prepare($query) or die "Can't prepare query: $query\n";
$result->execute or die "Can't execute query: $query\n";
$result->finish;
}
else
{
$FIRST_COME=0;
$ERROR=1;
if ($email eq '')
{
$ERR_MSG="Вы не заполнили поле e-mail.";
}
elsif (!($email =~ /[\w\.\-]+\@[\w\.\-]+/))
{
$ERR_MSG="
Вы не правильно заполнили поле e-mail - попробуйте еще раз.";
}
}
}
!>
Изменить свои данные
$ERR_MSG
\n";
}
if ($FIRST_COME)
{
$query="select * from user where login='$ENV{REMOTE_USER}'";
#print $query;
$result = $DB->prepare($query) or die "Can't prepare query: $query\n";
$result->execute or die "Can't execute query: $query\n";
$n=$result->fetchrow_hashref;
#print $n;
$login=$n->{login};
$lastname=$n->{lastname};
$firstname=$n->{firstname};
$middlename=$n->{middlename};
$email=$n->{email};
$query="select * from anketa where login='$ENV{REMOTE_USER}'";
$result = $DB->prepare($query) or die "Can't prepare query: $query\n";
$result->execute or die "Can't execute query: $query\n";
$n=$result->fetchrow_hashref;
$birth=$n->{birth};
$gender=$n->{gender};
$profession=$n->{profession};
$webpage=$n->{webpage};
$interests=$n->{interests};
$publiclastname=$n->{publiclastname};
$publicfirstname=$n->{publicfirstname};
$publicmiddlename=$n->{publicmiddlename};
$publicemail=$n->{publicemail};
$publicbirth=$n->{publicbirth};
$publicgender=$n->{publicgender};
$publicprofession=$n->{publicprofession};
$publicwebpage=$n->{publicwebpage};
$publicinterests=$n->{publicinterests};
!>
Вы можете внести любые изменения в свои данные. Только ник изменить нельзя.
- Поля, отмеченные звездочкой, обязательны для заполнения. Без них программа отвергнет Ваш запрос.
- Не имеет смысл вводить чужой или "лунный" e-mail -- в этом случае Вы просто не получите пароль для входа, когда он вам понадобится.
- Если Вы не хотите сообщать информацию по любому из необязательных полей -- просто оставьте его незаполненным.
Успехов!
