#!/usr/local/bin/perl # # Copyright 1999 World Wide Web Consortium, # (Massachusetts Institute of Technology, Institut # National de Recherche en Informatique et en # Automatique, Keio University). All Rights Reserved. # This program is distributed under the W3C's # Intellectual Property License. This program is # distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied # warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. See W3C License # http://www.w3.org/Consortium/Legal/ for more details. # ############################################################################## # # slidemaker tool # split a all.htm into slide*.htm # # Stephan Montigaud - stephan@w3.org # created 970601 # modified by Pierre Fillault # check the documentation at http://www.w3.org/Talks/YYMMsub/ # # modified 19990505 Bert Bos: ALT text of prev/next arrows is now # "prev"/"next" rather than the title of the prev/next slide; looks better # in lynx. # # version: 4.14 - 19990719 # $Id: w3cburst.pl,v 1.41 1999/11/02 17:25:50 charles Exp $ # # NOTE: all the anchors in this tool contain the extension # indeed this package has to work outside the environment of a web server # Users need to be able to display their presentation using file:\\ # which requires link to 'real' files ############################################################################## ## default values of variables ## ## default DOCTYPE added on the slides $doctype = ''; ## name of raw HTML file containing the slides $all = 'all.htm'; ## table of content built from all.htm - also first page of the presentation ## this is only the basename as we need to generate one toc for each style sheets ## the main toc will not bear any more so the server can understand a request for '/' ## the next ones will bear a number corresponding to the slide index $overview = 'Overview'; ## name of the file containing the parameters of the presentation $infos = 'infos.txt'; ## link to the logo printed on all the slides $logoLink = 'http://www.w3.org/'; ## default location of the logo - works when slidemaker is used as a package $logoFile = '../Icons/w3c_home.gif'; ## if slidemaker is used online, then the location of the logo is likely to be different ## than the default if (! -f $logoFile) { # if the logo is not found, then we're likely to find it # at /Talks/Icons/ for W3C AFS users $logoFile = '/Talks/Icons/w3c_home.gif'; } ## alternate representation of the logo $logoAlt = 'W3C '; ## default values set to none $logoLink2 = ''; # link to a potential second reference $logoFile2 = ''; # location of a second logo $logoAlt2 = ''; # alternate representation of the second logo ## navigation icons used in the slides $left = '../Icons/left.gif'; $right = '../Icons/right.gif'; $top = '../Icons/up.gif'; $toc = '../Icons/toc.png'; $bar = '../Icons/bar.gif'; $barl = '../Icons/barl.gif'; $change = '../Icons/change.png'; ## for online use on the W3C site if (! -d '../Icons') { ## the icons will be present at this default location $left = '/Talks/Icons/left.gif'; $right = '/Talks/Icons/right.gif'; $top = '/Talks/Icons/up.gif'; $toc = '/Talks/Icons/toc.png'; $bar = '/Talks/Icons/bar.gif'; $barl = '/Talks/Icons/barl.gif'; $change = '/Talks/Icons/change.png'; } ## default accesskeys for navigation icons used in the slides $prevKey = 'P'; # accesskey for previous slide $nextKey = 'N'; # accesskey for next slide $tocKey = 'C'; # accesskey for table of contents $styleKey = 'S'; # accesskey for changing style sheets ## default author name $author = 'W3C Staff'; ## default presentation title $talkTitle = 'W3C Talk'; ## standard style sheets $cssStandardFiles = '../Tools/w3ctalk-640w.css,../Tools/w3ctalk-800w.css,../Tools/w3ctalk-1024w.css'; if (! -d '../Tools') { ## online location for W3C use $cssStandardFiles = '/Talks/Tools/w3ctalk-640w.css,/Talks/Tools/w3ctalk-800w.css,/Talks/Tools/w3ctalk-1024w.css'; } ## default charset use in meta tag http-equiv $charset = 'ISO-8859-1'; ## default language setting is English $baselang = 'en-US'; ## HTML page color characteristics (background, text, link, visited link, active link) #$body = '
'; $body = ''; ## end of default values for the presentation ############################################################################## ############################################################################## ## reading user input from $infos ## @PARAM = @ARGV; # we keep this for backward compatibility with an old version # of the slidemaker tool #when the parameters were in Makefile or make.bat # read parameters from infos.txt and put them in @PARAM if (open(INFOS, $infos)) { print STDOUT "--- Reading parameters file $infos ---\n"; local(@file,$counter); $counter = 0; @file =END print SLIDE " | $_[2] of $total | \n";
print SLIDE <