]> wagner.pp.ru Git - oss/stilllife.git/commitdiff
*** empty log message ***
authorVictor Wagner <vitus@wagner.pp.ru>
Tue, 25 Mar 2008 13:21:45 +0000 (13:21 +0000)
committerVictor Wagner <vitus@wagner.pp.ru>
Tue, 25 Mar 2008 13:21:45 +0000 (13:21 +0000)
forum/TODO [new file with mode: 0644]
forum/dumpbase
forum/forum

diff --git a/forum/TODO b/forum/TODO
new file mode 100644 (file)
index 0000000..c924f77
--- /dev/null
@@ -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
index 410ae3cdc9c995c584f580d0faadf326d5500dc1..1652e6a985f9c5aa59d2c39dbfb05799dc581dcd 100644 (file)
@@ -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";
 }      
index e7cbc9218f6e23ae34691ed508adc207a72147c9..faba997cc181f294633e91966e5d9e9001bfa8ef 100755 (executable)
@@ -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");
        }