#!/usr/local/bin/perl

@slides = (
"title",
"toc",
"rt",
"rt1a",
"rt2",
"rt3",
"rt4",
"disk",
"disk2",
"disk2a",
"disk2b",
"disk3",
"controls1",
"controls2",
"mvc1",
"mvc2",
"mvc3",
"sync1",
"sync2",
"sync3",
"sync4",
"sync5",
"sync6",
"midi1",
"midi2",
"conclusions",
);

$prev="broken";

sub process () {
   local ($slide, $prev, $next,$output) = @_;

    open (TEMPLATE, '<', "templates/$slide.html.in") || die "cannot open template";
    open (OUTPUT, '>', "html/$output") || die "cannot open $output";

   print "processing $slide <- $prev -> $next ... >> $output \n";


   while (<TEMPLATE>) {
      s/NAME/$slide/;
      if ($prev eq "broken") {
           s/^.*PREV.*$//;
      } else {
            s/PREV/$prev/;
      }
      if ($next eq "broken") {
           s/^.*NEXT.*$//;
      } else {
            s/([^-])NEXT/\1$next/;
      }
      s/-NEXT/NEXT/;
      print OUTPUT;
   }
   close OUTPUT;
   close TEMPLATE;
}

foreach $x (0 .. $#slides) {
 
    $next=$slides[$x+1];
    if ($x > 0) {
        $prev=$slides[$x-1];
    }
    if ($x == $#slides) {
        $next="broken";
    }

    $out = "$slides[$x].html";

    &process ($slides[$x], $prev, $next, $out);
}