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

[sites/home_page.git] / scripts / make_html.pl

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