utf encoding for another output file

[mkgallery.git] / mkgallery.pl

diff --git a/mkgallery.pl b/mkgallery.pl
index f7ef6c3e7ef4ff41411a9b379e9b42e4e8269310..747cb6c6c7187708fe5e94c2978c9144e78676cc 100755 (executable)
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -117,7 +117,6 @@ sub new {
                $class = $this;
                my $root=shift;
                $self = {
-                               -depth=>0,
                                -root=>$root,
                                -fullpath=>$root,
                        };
@@ -159,6 +158,7 @@ sub initpaths {
                                        $pos=index($inc,'/',$pos+1)) {
                        $dp++;
                }
+               $self->{-depth} = $dp;
                for ($pos=length($fullpath);$dp>0 && $pos>0;
                                        $pos=rindex($fullpath,'/',$pos-1)) {
                        $dp--;
@@ -174,6 +174,7 @@ sub initpaths {
                $self->{-inc} = 'NO-.INCLUDE-IN-PATH/'; # won't work anyway
                $self->{-rss} = '';
                $self->{-relpath} = '';
+               $self->{-depth} = 0;
        }
 }
 
@@ -598,6 +599,7 @@ sub makeaux {
                        warn "cannot open \"$fn\": $!";
                        return;
                }
+               binmode($F, ":utf8");
                my $imgsrc = sprintf("../.%s/%s",$sizes[0],$name);
                print $F start_html(-title=>$title,
                                -encoding=>"utf-8",