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.5