+sub mkauxfile {
+ my ($start,$dir,$pbase,$base,$nbase,$refresh,$info) =@_;
+ my $en=sprintf("%s/%s/.html/%s-%s.html",$start,$dir,$base,$refresh);
+ my $pref;
+ my $nref;
+ if ($pbase) {
+ $pref=sprintf("%s-%s.html",$pbase,$refresh);
+ } else {
+ $pref="../index.html";
+ }
+ if ($nbase) {
+ $nref=sprintf("%s-%s.html",$nbase,$refresh);
+ } else {
+ $nref="../index.html";
+ }
+ my $toggle;
+ my $toggleref;
+ if ($refresh eq 'slide') {
+ $toggle='Stop!';
+ $toggleref=sprintf("%s-static.html",$base);
+ } else {
+ $toggle='Play->';
+ $toggleref=sprintf("%s-slide.html",$base);
+ }
+
+ my $tdir=sprintf "%s/%s/.html",$start,$dir;
+ mkdir($tdir,0755) unless ( -d $tdir );
+
+ unless (open(STDOUT,">".$en)) {
+ warn "cannot open $en: $!";
+ return;
+ }
+ my $title=$info->{'Comment'};
+ $title=$base unless ($title);
+ if ($refresh eq 'slide') {
+ print start_html(-title=>$title,
+ -bgcolor=>"#808080",
+ -head=>meta({-http_equiv=>'Refresh',
+ -content=>"3; url=$nref"})),"\n";
+ } else {
+ print start_html(-title=>$title,
+ -bgcolor=>"#808080"),"\n";
+ }
+ print start_center,"\n";
+ print h1($title);
+ print a({-href=>"../index.html"},"Index")," | ";
+ print a({-href=>$pref},"<<Prev")," | ";
+ print a({-href=>$toggleref},$toggle)," | ";
+ print a({-href=>$nref},"Next>>");
+ print p;
+ print img({-src=>"../.640/".$base}),"\n";
+ print end_center,"\n";
+ print end_html,"\n";
+ close(STDOUT);
+}
+