+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="../";
+ }
+ if ($nbase) {
+ $nref=sprintf("%s-%s.html",$nbase,$refresh);
+ } else {
+ $nref="../";
+ }
+
+ 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,
+ -head=>meta({-http_equiv=>'Refresh',
+ -content=>"3; url=$nref"})),"\n";
+ } else {
+ print start_html(-title=>$title),"\n";
+ }
+ print img({-src=>"../.640/".$base});
+ print end_html,"\n";
+ close(STDOUT);
+}
+