+# Заполнение формы редактирования профиля данными пользователя
+
+sub show_profile {
+ my ($formname,$cgi,$forum) = @_;
+ my $rights = getrights($cgi,$forum);
+ my $user = $cgi->param("user");
+ if (!$user && substr($path_translated,length($forum->{userdir}) eq
+ $forum->{userdir})) {
+ $user = substr($path_translated,length($forum->{userdir})+1);
+ }
+ $user = $forum->{authenticated}{user} unless $user;
+ show_error($forum,"Чей профиль вы хотите редактировать?")
+ unless $user;
+ my %base;
+ dbmopen %base,datafile($forum,"passwd"),0664;
+ show_error($forum,"Нет такого пользователя $user")
+ unless $base{$user};
+ my $userinfo = thaw($base{$user});
+ dbmclose(%base);
+ delete $userinfo->{passwd};
+ $userinfo->{user}=$user;
+ print STDERR "Substituting userinfo for $user\n";
+ while(my ($field,$value) = each %$userinfo) {
+ $value = $value->{src} if ($field eq 'avatar' && ref($value));
+ $cgi->param($field,$value);
+ }
+ my $tree = prepare_template(@_);
+ # Запрещаем редактирование полей, входящих в restricted_user_info
+ my $form = $tree->look_down(_tag=>"form",name=>"profile");
+ if ($rights ne "admin" && $forum->{restricted_user_info}) {
+ for my $field (split /\s*,\s*/,$forum->{restricted_user_info}) {
+ ELEMENT:
+ for my $element ($form->look_down(name=>$field)) {
+ my $tag= $element->tag;
+ if ($tag eq 'input') {
+ my $newel=new HTML::Element("span",
+ "class"=>"restricted-field");
+
+ $newel->push_content($element->attr("value"));
+ $element->replace_with($newel)->delete();
+ } elsif ($tag eq 'textarea') {
+ $element->replace_with_content(new HTML::Element("div",
+ class=>"restricted-field"))->delete();
+ } elsif ($tag eq 'select') {
+ my $newel = new HTML::Element("span",
+ class=>"restricted-field");
+ OPTION:
+ for my $option ($element->content_list) {
+ if (ref $option eq "HTML::Element" &&
+ $option->attr("selected")) {
+ $newel->push_content($option->detach_content());
+ last OPTION;
+ }
+ }
+ if (!$newel->content_list) {
+ $newel->push_content(($element->content_list)[0]);
+ }
+ $element->replace_with($newel)->delete;
+ }
+ }
+ }
+ }
+ # Подставляем аватарку
+ print STDERR "avatar=",$userinfo->{avatar},"\n";
+ substinfo($tree,[_tag=>'img',class=>'avatar'],(ref($userinfo->{avatar})?(%{$userinfo->{avatar}}):(src=>$userinfo->{avatar})));
+ for my $userlink ($tree->look_down(_tag => "a",class=>"author")) {
+ $userlink->delete_content;
+ $userlink->push_content($user);
+ if ($forum->{authenticated}{openiduser}) {
+ $userlink->attr('href'=>"http://$user");
+ } else {
+ $userlink->attr('href'=>undef);
+ $userlink->tag('span');
+ }
+ }
+ send_to_user($tree,@_);
+}
+# Обработка результатов редактирования профиля пользвателя
+#
+sub profile {
+ my ($formname,$cgi,$forum) = @_;
+
+}
+#