+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"}}
+}}