From 07b26cc8c68fec7ce82e3cab703b676228f07da4 Mon Sep 17 00:00:00 2001
From: Victor Wagner <vitus@wagner.pp.ru>
Date: Tue, 25 Mar 2008 13:21:45 +0000
Subject: [PATCH] *** empty log message ***

---
 forum/TODO     | 15 +++++++++++++++
 forum/dumpbase |  8 +++++---
 forum/forum    | 19 ++++++++++++++++---
 3 files changed, 36 insertions(+), 6 deletions(-)
 create mode 100644 forum/TODO

diff --git a/forum/TODO b/forum/TODO
new file mode 100644
index 0000000..c924f77
--- /dev/null
+++ b/forum/TODO
@@ -0,0 +1,15 @@
+Roadmap по server-side части
+1. newtopic
+2. newforum
+3. процедура раскрутки
+4. страничка юзера
+5. список юзеров
+6. редактирование user profile и фиксы в регистрации
+7. Механизм регистрации с подтверждением
+8. delete (message, topic, forum)
+9. edit (message,topic,forum)
+10. move (message,topic,forum)
+11. setrights
+12. applytemplates 
+13. Раскрутка форума
+14. Почтовые оповещения о новых репликах, RSS или recent comments page
diff --git a/forum/dumpbase b/forum/dumpbase
index 410ae3c..1652e6a 100644
--- a/forum/dumpbase
+++ b/forum/dumpbase
@@ -8,10 +8,12 @@ dbmopen %x,$ARGV[0],0644;
 while (my ($key,$val) = each %x) {
 	my $data;
 	eval {
-		$data = Dumper(thaw($val));	
+		$data = Data::Dumper->Dump([thaw($val)],[$key]);	
+		$data =~ s/^\$//;
+		$data =~ s/ = / => /s;
 	}; 	
 	if ($@) {
-		$data = $val;
+		$data = "$key => $val";
 	}	
-	print $key, " => ",$data,"\n";
+	print $data,"\n";
 }	
diff --git a/forum/forum b/forum/forum
index e7cbc92..faba997 100755
--- a/forum/forum
+++ b/forum/forum
@@ -418,9 +418,20 @@ sub fix_forum_links {
 
 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).
@@ -443,6 +454,8 @@ my %userinfo = %{$forum->{"authenticated"}};
 		$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");
 	}
 
 
-- 
2.39.2