From a03029aa962b8aaac184ee1d4051c0aa4a09e2e1 Mon Sep 17 00:00:00 2001
From: Victor Wagner <vitus@wagner.pp.ru>
Date: Thu, 6 Aug 2009 09:11:48 +0000
Subject: [PATCH] Create directory stuff for things which shouln't be erased on
 update from preprocessed data

---
 Makefile             | 3 +--
 scripts/make_html.pl | 2 ++
 2 files changed, 3 insertions(+), 2 deletions(-)

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 =~
-- 
2.39.2