From: Victor Wagner <vitus@wagner.pp.ru>
Date: Thu, 6 Aug 2009 09:11:48 +0000 (+0000)
Subject: Create directory stuff for things which shouln't be erased on update
X-Git-Url: http://www.wagner.pp.ru/gitweb/?p=sites%2Fhome_page.git;a=commitdiff_plain;h=a03029aa962b8aaac184ee1d4051c0aa4a09e2e1

Create directory stuff for things which shouln't be erased on update
from preprocessed data
---

diff --git a/Makefile b/Makefile
index c285b75..cc8b4df 100644
--- a/Makefile
+++ b/Makefile
@@ -4,8 +4,7 @@ HTMLS:=$(shell find . -name "*.html")
 all: files pages
 
 files: 
-	rsync -rltC --exclude photo --exclude templates --exclude scripts --exclude Makefile --exclude "*.html" --exclude fileinfo . "$(DESTDIR)"	
-
+	rsync -rltC --exclude photo --exclude templates --exclude scripts --exclude Makefile --exclude "*.html" --exclude staff --exclude fileinfo . "$(DESTDIR)"	
 pages: files
 	perl scripts/make_html.pl --dest "$(DESTDIR)" --template templates/page.tpl $(HTMLS)
 envtest:
diff --git a/scripts/make_html.pl b/scripts/make_html.pl
index c0251f5..110b764 100644
--- a/scripts/make_html.pl
+++ b/scripts/make_html.pl
@@ -57,6 +57,8 @@ for my $text_file (@ARGV) {
 	$tpl[0] =~ s#(</title>)#$title$1$after_title#is;
 	$tpl[0] =~ s#(<body\b)#$1$body_attrs#is if $body_attrs;
 	my $top = File::Spec::Unix->abs2rel('', $textdir);
+	print "top=$top\n";
+	$top = "" if ($top eq '/');
 	$top .= "/" if length($top);
 	my $result = join('', $tpl[0], $body, $tpl[1]);
 	$result =~