From: Victor Wagner <vitus@wagner.pp.ru>
Date: Fri, 21 Mar 2008 19:40:30 +0000 (+0000)
Subject: Some helper procedures for future page generators added
X-Git-Url: http://www.wagner.pp.ru/gitweb/?p=oss%2Fstilllife.git;a=commitdiff_plain;h=193523941ce374f60db22daa584c916d4c153297

Some helper procedures for future page generators added
---

diff --git a/forum/forum b/forum/forum
index c714859..d630445 100755
--- 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);
+}
+