+ my $pref = $self->{-previmg}->{-base};
+ my $nref = $self->{-nextimg}->{-base};
+ my $inc = $self->{-inc};
+ my $title = $self->{-info}->{'Comment'};
+ $title = $name unless ($title);
+
+ print "slide: \"$pref\"->\"$name\"->\"$nref\"\n" if ($debug);
+
+ # slideshow
+ for my $refresh('static', 'slide') {
+ my $fn = sprintf("%s/.html/%s-%s.html",$dn,$name,$refresh);
+ my $bakref = sprintf("%s-%s.html",$pref,$refresh);
+ my $fwdref = sprintf("%s-%s.html",$nref,$refresh);
+ my $imgsrc = sprintf("../.%s/%s",$sizes[1],$name);
+ my $toggleref;
+ my $toggletext;
+ if ($refresh eq 'slide') {
+ $toggleref=sprintf("%s-static.html",$name);
+ $toggletext = 'Stop!';
+ } else {
+ $toggleref=sprintf("%s-slide.html",$name);
+ $toggletext = 'Play->';
+ }
+ my $F;
+ unless (open($F,'>'.$fn)) {
+ warn "cannot open \"$fn\": $!";
+ next;
+ }
+ if ($refresh eq 'slide') {
+ print $F start_html(-title=>$title,
+ -bgcolor=>"#808080",
+ -head=>meta({-http_equiv=>'Refresh',
+ -content=>"3; url=$fwdref"}),
+ -style=>{-src=>$inc."gallery.css"},
+ ),"\n";
+
+ } else {
+ print $F start_html(-title=>$title,
+ -bgcolor=>"#808080",
+ -style=>{-src=>$inc."gallery.css"},
+ ),"\n";
+ }
+ print $F start_center,"\n",
+ h1($title),
+ a({-href=>"../index.html"},"Index")," | ",
+ a({-href=>$bakref},"<<Prev")," | ",
+ a({-href=>$toggleref},$toggletext)," | ",
+ a({-href=>$fwdref},"Next>>"),
+ p,
+ img({-src=>$imgsrc}),"\n",
+ end_center,"\n",
+ end_html,"\n";
+ close($F);
+ }