+sub makescaled {
+ my $self = shift;
+ my $fn = $self->{-fullpath};
+ my $name = $self->{-base};
+ my $dn = $self->{-parent}->{-fullpath};
+ my ($w, $h) = dim($self->{-info});
+ my $max = ($w > $h)?$w:$h;
+
+ foreach my $size(@sizes) {
+ my $nfn = $dn.'/.'.$size.'/'.$name;
+ my $factor=$size/$max;
+ }
+}
+
+sub makeaux {
+ my $self = shift;
+ my $fn = $self->{-fullpath};
+ my $name = $self->{-base};
+ my $dn = $self->{-parent}->{-fullpath};
+}
+
+sub startindex {
+ my $self = shift;
+ my $fn = $self->{-fullpath}.'/index.html';
+ my $IND;
+ unless (open($IND,'>'.$fn)) {
+ warn "cannot open $fn: $!";
+ return;
+ }
+ $self->{-IND} = $IND;
+
+ my $inc = $self->{-inc};
+ my $title = $self->{-title};
+ print $IND start_html(-title => $title,
+ -style=>{-src=>[$inc."gallery.css",
+ $inc."lightbox.css"]},
+ -script=>[{-code=>"var incPrefix='$inc';"},
+ {-src=>$inc."gallery.js"},
+ {-src=>$inc."lightbox.js"}]),
+ a({-href=>"../index.html"},"UP"),"\n",
+ start_center,"\n",
+ h1($title),"\n",
+ "\n";
+}
+
+sub endindex {
+ my $self = shift;
+ my $IND = $self->{-IND};
+
+ print $IND end_center,end_html,"\n";
+
+ close($IND) if ($IND);
+ undef $self->{-IND};
+}
+
+sub startsublist {
+ my $self = shift;
+ my $IND = $self->{-IND};
+
+ print $IND h2("Albums"),"\n",start_table,"\n";
+}
+
+sub sub_entry {
+ my $self = shift;
+ my $IND = $self->{-parent}->{-IND};
+ my $name = $self->{-base};
+ my $title = $self->{-title};
+
+ print $IND Tr(td(a({-href=>$name.'/index.html'},$name)),
+ td(a({-href=>$name.'/index.html'},$title))),"\n";
+}
+
+sub endsublist {
+ my $self = shift;
+ my $IND = $self->{-IND};
+
+ print $IND end_table,"\n",br({-clear=>'all'}),hr,"\n\n";
+}
+
+sub startimglist {
+ my $self = shift;
+ my $IND = $self->{-IND};
+
+ print $IND h2("Images"),"\n";
+}
+
+sub img_entry {
+ my $self = shift;
+ my $IND = $self->{-parent}->{-IND};
+ my $name = $self->{-base};
+
+ print $IND a({-href=>$name},$name),"\n";
+}
+
+sub endimglist {
+ my $self = shift;
+ my $IND = $self->{-IND};
+
+ print $IND br({-clear=>'all'}),hr,"\n\n";
+}
+