#!/usr/bin/perl ## ########################################################################### ## ## Program: slide-generator.pl ## ## Purpose: Generate a series of HTML slides based on a single formatted ## HTML file. ## ## Version: 1.1 06 Aug 1997 ## ## Author: Peter Murray, Digital Media Services ## Case Western Reserve University ## http://www.cwru.edu/home/pem.html ## ## Legalities: ## Copyright 1997 by Case Western Reserve University. ## All rights reserved. ## ## Revision History: ## 13 Jan 1997 pem Initial Release ## 06 Aug 1997 pem Added "Logo" and "Title" HTML comments to set $logoHTML and $shortTitle ## ## DOCUMENTATION, in PERL POD format, is at the end of the program. ## Running the program `perldoc ` should output the manual. ## $slide=1; $fileOpen = 0; $forwardGif = "next.gif"; $backGif = "previous.gif"; $indexGif = "index.gif"; $logoHTML = "Chemical Science Virtual Library Presentation
Kent State University / IBM; August 7th, 1997
"; $bodyAttrib = "BGCOLOR=\"white\" VLINK=\"blue\""; while (<>) { if (/^/) { $logoHTML = "$1"; next; } if (/^/) { $shortTitle = "$1"; next; } if (/^/) { $inlineStyle = $1; next; } if (/

(.+)<\/h1>/i) { @slides[$slide] = "H1|$slide|$1|"; $lastH1 = $slide; $contentSlide = $slide; $slide++; next; } if (/

(.+)<\/h2/i) { @slides[$slide] = "H2|$slide|$1|"; $lastH2 = $slide; $contentSlide = $slide; $slide++; next; } if (/

(.+)<\/h3>/i) { $withinH3 = 1; @slides[$slide] = "H3|$slide|$1|"; $contentSlide = $slide; $slide++; next; } @slides[$contentSlide] .= $_ if $contentSlide > 0; } foreach $line (@slides) { my($header, $slide, $title, @htmlFrag) = split(/\|/, $line); if ($header eq "H1") { if ($H1fileOpen > 0) { print H1OUTFILE "\n\n\n"; close H1OUTFILE; } my $nextSlide = $slide+1; my $prevSlide = $slide-1; open (H1OUTFILE, ">slide${slide}.htm") || die "Cannot open H1 slide${slide}.htm: $!\n"; print H1OUTFILE "\n\n$title\n$inlineStyle\n\n"; print H1OUTFILE "\"forward\"\n"; print H1OUTFILE "\"index\"\n"; print H1OUTFILE "\"back\"\n" if ($slide < 1); print H1OUTFILE "$logoHTML\n"; print H1OUTFILE "

$title

\n"; print H1OUTFILE join '',@htmlFrag; print H1OUTFILE "\n\n\n"; close H2OUTFILE; } my $nextSlide = $slide+1; my $prevSlide = $slide-1; open (H2OUTFILE, ">slide${slide}.htm") || die "Cannot open H2 slide${slide}.htm: $!\n"; print H2OUTFILE "\n\n$title\n$inlineStyle\n\n"; print H2OUTFILE "\"forward\"\n"; print H2OUTFILE "\"index\"\n"; print H2OUTFILE "\"back\"\n"; print H2OUTFILE "$logoHTML\n"; print H2OUTFILE "

$title

\n"; print H2OUTFILE join '',@htmlFrag; print H2OUTFILE "\n\n\n"; close H1OUTFILE; open (OUTFILE, ">index.htm") || die "Cannot open index.htm: $!\n"; print OUTFILE "\n\n$shortTitle\n$inlineStyle\n\n"; print OUTFILE "\"forward\"\n"; print OUTFILE "$logoHTML\n"; print OUTFILE "

$1

\n"; print OUTFILE "\n"; } print OUTFILE "
  • $title\n"; print OUTFILE " \n\n\n"; close OUTFILE; =head1 NAME slide-generator.pl - Generate a series of HTML slides =head1 SYNOPSIS slide-generator.pl [ slide-file ] =head1 DESCRIPTION The slide generator script takes a specially-formatted HTML file an creates a series of linked HTML "slides" complete with forward/backward navigation and slide index pages. =head1 PARAMETERS =over 4 =item [ slide-file ] An HTML file formatted as specified below. Alternatively, the HTML file can come from STDIN. =back =head1 SETUP =over 4 =item 1. Write your slides in one HTML document. =item 2. Use an

    ...

    tag for a main presentation point (such as "HTML, image, PDF browsers") as listed in the schedule. This will create a group of slides with their own index page. If you want to put a paragraph of text or other HTML code on the Main Presentation Point slide index page, include it before the first

    . =item 3. Use an

    ...

    tag to create a single slide within a presentation point. The title between the

    ...

    becomes the title of the slide. =item 4. Use any other legal HTML under the

    will be added as-is to the slide (including inline images and links to other places as you desire). =back =head1 COPYRIGHT Copyright 1997 by Case Western Reserve University. =head1 AUTHOR Peter Murray Library Systems Manager Digital Media Services Case Western Reserve University pem@po.cwru.edu http://www.cwru.edu/home/pem.html Updates available from http://www.cwru.edu/lit/homes/pem/projects/slide-generator.html =cut