#!/usr/bin/perl ($target_directory, $presentation_title, $no_of_slides) = @ARGV; $target_directory = "./$target_directory"; `mkdir $target_directory`; for ($i=1; $i<=$no_of_slides; $i++) { $prev = $i - 1; $next = $i + 1; $slide_name = sprintf("Slide%4.4d.gif", $i); open (SLIDES, ">$target_directory/slide$i.html"); print SLIDES < $presentation_title

Previous | Next

Slide $i of $no_of_slides

 

EOF close(SLIDES); } exit(0);