X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=scripts%2Fmake_html.pl;h=ce8e438bbc5f6c468cdd733c73ff205b135d2c59;hb=84fff0e3348620beeda8773bac6ba725c377d842;hp=c0251f5d022f446a3abd4243640e89b26272b128;hpb=9766a16a9d842ad56bfda8c0444ffa96e14cfe37;p=sites%2Fhome_page.git

diff --git a/scripts/make_html.pl b/scripts/make_html.pl
index c0251f5..ce8e438 100644
--- a/scripts/make_html.pl
+++ b/scripts/make_html.pl
@@ -7,6 +7,7 @@ use locale;
 use POSIX qw(strftime);
 use Date::Parse;
 use Carp;
+use utf8;
 GetOptions(
 	"template=s" => \my $template_file,
 	"dest=s" => \my $destdir,
@@ -57,6 +58,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 =~