From a03029aa962b8aaac184ee1d4051c0aa4a09e2e1 Mon Sep 17 00:00:00 2001 From: Victor Wagner Date: Thu, 6 Aug 2009 09:11:48 +0000 Subject: [PATCH 1/1] 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$1$after_title#is; $tpl[0] =~ s#(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.5