Some helper procedures for future page generators added

diff --git a/forum/forum b/forum/forum
index c7148594e2a7af9b78902be411f14f866af78a93..d6304459f3f485a8a6f90d52e43caaf6bfece69b 100755 (executable)
--- a/forum/forum
+++ b/forum/forum
@@ -13,6 +13,7 @@
 # 
 use strict;
 use warnings;
+use Fcntl qw(:DEFAULT :flock);
 use CGI;
 use HTML::TreeBuilder;
 use Storable qw(freeze thaw);
@@ -115,7 +116,7 @@ if ($cgi->request_method ne "POST") {
 
 sub dir2url {
        my ($cgi,$dir) = @_;
-       my $prefix=$cgi->url(-base=>1);
+       my $prefix="";
        my $pos=rindex $ENV{'PATH_TRANSLATED'},$ENV{'PATH_INFO'};
        if ($pos <0 && $ENV{'PATH_INFO'}=~m!(/\~\w+)/!) {
                $prefix .=$1;
@@ -241,6 +242,17 @@ sub show_error {
        }
        exit;
 }      
+
+sub gettemplate {
+       my ($forum, $template,$url) = @_;
+       my $filename=$forum->{"templates"}."/$template.html";
+       if (! -r $filename) {
+               show_error($forum,"Нет шаблона $template");
+               exit;
+       }
+       my $tree = HTML::TreeBuilder->new_from_file($filename);
+       fix_forum_links($forum,$tree,$url);
+}      
 #
 # Вывод шаблона формы. В шаблоне должна присутстовать форма с  
 # именем, совпадающим с именем form. Если в $cgi есть параметры, имена
@@ -249,13 +261,7 @@ sub show_error {
 #
 sub show_template {
        my ($form,$cgi,$forum) = @_;
-       my $filename=$forum->{"templates"}."/$form.html";
-       if (! -r $filename) {
-               show_error($forum,"Нет шаблона для операции $form");
-               exit;
-       }
-       my $tree = HTML::TreeBuilder->new_from_file($filename);
-       fix_forum_links($forum,$tree);
+       my $tree = get_template($forum,$form,$ENV{'PATH_INFO'});
        # Находим форму с классом $form
        my $f = $tree->look_down("_tag","form",
                "name",$form);
@@ -406,7 +412,7 @@ if (@userlink) {
                $userpage = $userinfo{"user"};
        } else {
                $userpage =
-               $cgi->url(-absolute=>1,-path_info=>1)."?profile=1&user=".$cgi->escape($userinfo{"user"});
+               $cgi->url(-absolute=>1).$forum->{"userurl"}."/".$cgi->escape($userinfo{"user"});
        }       
        for my $element (@userlink) {
                $element->attr(href=>$userpage);
@@ -808,3 +814,50 @@ sub getrights {
 }              
 
 
+#
+# Залочить файл и получить его распрасенное представление.
+# Возвращает пару ($tree,$lockfd)
+
+sub gettree {
+       my $filename = shift;
+       my $f;
+       open $f,"<",$filename or return undef;
+       flock $f, LOCK_EX;
+       my $tree = HTML::TreeBuider->new_from_file($f);
+       return ($tree,$f);
+}      
+#
+# Сохранить дерево и закрыть lockfd.
+#
+#
+
+sub savetree {
+       my ($filename,$tree,$lockfd) = shift;
+       my $f;
+       open $f,">",$filename . ".new" or return undef;
+       print $f $tree->as_HTML("<>&");
+       close $f;
+       # FIXME - только для POSIX.
+       unlink $filename;
+       rename $filename.".new",$filename;
+       close $lockfd if defined($lockfd);
+}      
+
+
+
+#
+# Получает уникальный числовой идентификатор.
+# 
+sub get_uid {
+       my $forum = shift;
+       my $f;
+       open $f,"<+",datafile($forum,"sequence");
+       flock $f,LOCK_EX;
+       my $id=<$f> || "0";
+       $id++;
+       seek $f,0,0;
+       printf $f "%8s\n",$id;
+       close $f;
+       return sprintf ("%08s",$id);
+}
+