$class = $this;
my $root=shift;
$self = {
- -depth=>0,
-root=>$root,
-fullpath=>$root,
};
$pos=index($inc,'/',$pos+1)) {
$dp++;
}
+ $self->{-depth} = $dp;
for ($pos=length($fullpath);$dp>0 && $pos>0;
$pos=rindex($fullpath,'/',$pos-1)) {
$dp--;
$self->{-inc} = 'NO-.INCLUDE-IN-PATH/'; # won't work anyway
$self->{-rss} = '';
$self->{-relpath} = '';
+ $self->{-depth} = 0;
}
}
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",