sub substitute_user_info {
-my ($tree,$forum) = @_;
-my %userinfo = %{$forum->{"authenticated"}};
-
+my ($tree,$forum,$user) = @_;
+my %userinfo;
+if (defined $user) {
+ my %users;
+ dbmopen %users,datafile($forum,"passwd"),0644;
+ if (!$users{$user}) {
+ show_error($forum,"Неизвестный пользователь $user");
+ my $record = thaw($users{$user});
+ %userinfo = %$record;
+ $userinfo{"user"} = $user;
+} else {
+ # Если не сказано, какой юзер, то текущий.
+ %userinfo = %{$forum->{"authenticated"}}
+}}
#
# Специально обрабатываем поля user (должна быть ссылка) и avatar
# (должен быть img).
$element->delete_content();
$element->push_content(str2tree($userinfo{$field}))
if $userinfo{$field};
+ $element->attr(href=>"mailto:$userinfo{$field}")
+ if ($element->tag eq "a" && $field eq "email");
}