#!/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";
mkdir THUMBDIR if (! -d THUMBDIR);
mkdir INLINEDIR if (! -d INLINEDIR);
my $i=0;
-open OUT,">index.html";
+open OUT,">","index.html";
print OUT "<HTML><HEAD><TITLE>$dir</TITLE>\n<BODY>\n<H1>$dir</H1>\n"
."<p align=\"center\"><A HREF=\"..\">back</A></p>".
"<TABLE CELLSPACING=10 CELLPADDING=0 BORDER=0>\n";
sub make_comment_html {
my $info = shift;
-my $comment =
-
- ref($info->{"Comment"})?join("\n",@{$info->{"Comment"}}):$info->{"Comment"};
+my $comment = Encode::decode("koi8-r",ref($info->{"Comment"})?join("\n",@{$info->{"Comment"}}):$info->{"Comment"});
$comment =~s/\&/&/;
$comment =~s/"/"/;
$comment =~s/>/>/;
my $info = shift;
my $comment = shift;
my $inline = shift;
- open HTML, ">$imgfile.html";
+ open HTML, ">", "$imgfile.html";
my ($w,$h) = dim($info);
my ($w1,$h1) = dim(image_info(INLINEDIR."/".$imgfile));
print HTML "<html><head><title>$dir:$imgfile</title></head><body>