X-Git-Url: https://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=imagedir;fp=imagedir;h=3ca94031475af9f5ddbc1741b34c7b9b1c830559;hb=12e2a3511d9098ca03b6614b53b8c7b09efe5443;hp=9d66c098f1b6ed014456f1ea2e0bef287cb09271;hpb=84c8fd40e7ca912e16f18a29b8475c1579c04b4b;p=oss%2Fimgwww.git diff --git a/imagedir b/imagedir index 9d66c09..3ca9403 100755 --- a/imagedir +++ b/imagedir @@ -1,4 +1,8 @@ #!/usr/bin/perl +use utf8; +use Encode; +use locale; +use open OUT => ":locale"; use constant THUMBSIZE => 150; use constant COLUMNS=>5; use constant THUMBDIR=>".thumbs"; @@ -60,7 +64,7 @@ my $dir = $opt_t || (split ("/",cwd()))[-1]; mkdir THUMBDIR if (! -d THUMBDIR); mkdir INLINEDIR if (! -d INLINEDIR); my $i=0; -open OUT,">index.html"; +open OUT,">","index.html"; print OUT "