Create directory stuff for things which shouln't be erased on update

from preprocessed data

diff --git a/Makefile b/Makefile
index c285b75f64a5ec330b589b45d4942c2c7d002cb5..cc8b4df4056c1ee758cadc183fd38852ddc75de7 100644 (file)
--- 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 c0251f5d022f446a3abd4243640e89b26272b128..110b7647c1a362871716e92e3db2bd41493d4328 100644 (file)
--- 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 =~