+ mkdir $hires;
+
+ my $path = "$media_dir/presentation.pdf";
+ $path = $media_dir . '/' . readlink($path) if -l $path;
+
+ if ( -e $path ) {
+ warn "render pdf slides from $path\n";
+ system "pdftoppm -png -r 100 $path $hires/p";
+ }
+ }
+
+
+ if ( @frames ) {
+ warn "create slides from video frames";
+ rmdir $_ foreach glob "$media_dir/s/[124]";
+
+ oggThumb $movie, "$hires/.f%.jpg", map { $_->[0] } @frames;
+
+ foreach my $i ( 0 .. $#frames ) {
+ my $from = "$hires/.f$i.jpg";
+ my $to = "$hires/f" . $frames[$i]->[1] . '.jpg';
+ rename $from, $to || warn "can't rename $from -> $to: $!";
+ }
+