#!/usr/local/bin/perl # # 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/ # # version: 4.0 - 19980612 # $Id: w3cburst.pl,v 1.32 1998/09/23 12:43:28 bbos 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'; $bar = '../Icons/bar.gif'; $barl = '../Icons/barl.gif'; ## 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'; $bar = '/Talks/Icons/bar.gif'; $barl = '/Talks/Icons/barl.gif'; } ## default author name $author = 'W3C Staff'; ## default presentation title $talkTitle = 'W3C Talk'; ## standard style sheets $cssStandardFiles = '../Tools/w3ctalk-640.css,../Tools/w3ctalk-800.css,../Tools/w3ctalk-1024.css'; if (! -d '../Tools') { ## online location for W3C use $cssStandardFiles = '/Talks/Tools/w3ctalk-640.css,/Talks/Tools/w3ctalk-800.css,/Talks/Tools/w3ctalk-1024.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 = ''; ## 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 = ; @PARAM = (); do { if ($file[0] =~ /^[^#\n\r]/) { $file[0] =~ s/\n//; # remove UNIX \n $file[0] =~ s/\r//; # remove WINDOWS \r $file[0] =~ s/ *= */=/; $PARAM[$counter++] = $file[0]; print "$file[0]\n"; } } while (shift(@file)); } ## @PARAM is now a table with the user preferences for his presentation ## process arguments ## each preset variable is now re-attributed using the user preferences foreach (@PARAM) { split(/ *= */); $cmd="\$$_[0] = \'$_[1]\';"; if (length $_[1] != 0) { eval($cmd); } } ## save the style sheet file locations into tables @cssStandard = split(',',$cssStandardFiles); $nbCssStandard = $#{@cssStandard} +1; @cssUser = split(',',$cssUserFiles); $nbCssUser = $#{@cssUser} +1; ## build an html string for the author variable ## containing the presentation author name linked to ## a location of his choice if ($authorUrl) { $author = "$author"; } ## same string is built if there is a second author for the presentation if ($author2 && $author2Url) { $author2 = "$author2"; } ## put both authors together if ($author2) { $author = $author." & ".$author2; } ########################################################################### ## read the raw html presentation ## ## copy file in memory my $sep = $/; $/ = undef; if (!open(ALL, $all)) { print "Error: Cannot open file: $all\n"; exit 0; } my $buf = ; close(ALL); $/ = $sep; ## Remove comments from the raw presentation ## they do not need to show up on the slides $buf =~ s///sgo; ## the slidemaker tool assumes that each slide is self contained between 2 sets of h1 tags ## if not it will generate a rather weird output ## split using and as separator (ignores attributes!) ## h1 or H1 can be used @table = split(/<\/?[hH]1[^>]*>/, $buf); ## compute the total number of slides $total = $#table / 2; if ($#table % 2 != 0) { $total = ($#table +1)/2; } ## ## raw presentation has been read successfully ############################################################################ ############################################################################ ## processing the slides print STDOUT "\n--- Processing $total slides ---\n"; ## generate the header table of content of the presentation ## which is also the first page of the talk &openOverview($overview); ## start the slide count so we can number them $slideCount = 1; ## @table is the array containing each slide with its title ## for each slide to be generated ## we delete each slide and its title when generated ## so that the current slide and its title are always at $table[0] (for the title) ## and $table[1] (for the slide content) do { ## get rid of the first element contained by the raw presentation array shift(@table); ## then $table[0] is the title of the slide to be generated $table[0] =~ s/\n+/ /g; ## replace return character by a white space $table[0] =~ s/ +/ /g; ## concatenate several white spaces to only one $table[0] =~ s/^ //; ## remove all the starting white spaces in the title $table[0] =~ s/ $//; ## remove all trailing white spaces in the title ## need to check if the title contains any anchor ## if so it needs to be removed ## because the title is being used in the table of content to link to the corresponding slide $table[0] =~ s/(.*)]*>(.*)<\/A>(.*)/$1$2$3/i; ## grab next slide title $table[2] (if there's a next slide) ## to be able to use in the 'next' navigation button ## keep in mind that $table[1] contains the slide corresponding to the title $table[0] $next_slide_title = $table[2] if $table[2]; ## remove any anchor from the next slide title $next_slide_title =~ s/(.*)]*>(.*)<\/A>(.*)/$1$2$3/i; ## add the title of the current slide to the table of content &addTitle("$table[0]",$slideCount); ## the current slide content is stored $table[1] ## there is an attempt to make sure it's clean HTML ## Pierre Fillault's note: use same piece of as used in http://www.w3.org/Web/Tools/CvsCommitScripting ## to make use of the validation service $slideContent = &clean_html($table[1]) ; ## generate the current slide ## parameters are: ## title of the slide, its content, the slide number, the title of the previous slide and the title of the next slide &createSlide("$table[0]",$slideContent ,$slideCount++,$previous_slide_title,$next_slide_title); ## save the title of the previous slide to be displayed in the 'previous' navigation button $previous_slide_title="$table[0]"; } ## process the next slide while (shift(@table)); ## close the table of content &closeOverview; ## generate more toc with the all the style sheets ## as there's no way of loading a style sheet ## except dynamically, but that would be slow ## and would not work on all platforms (ie would fail on Joe's laptop) &generateTOC; print STDOUT "--- Finished ---\n"; exit 0; ## ## end of the slidemaker main program ######################################################################################################## ######################################################################################################## ## generate the header of the table of content sub openOverview { ## open the file to write to open(FOO, ">$_[0].html"); ## the style sheet used in the table of content is $stylelink = ""; ## here is the standard style sheet $stylelink .= ""; ## we overload with the user css if it exists if ($cssUser[$0]) { $stylelink .= "\n"; } print FOO < $talkTitle - Slide list $stylelink $body END ## if there's only on logo to put on the toc if (length $logoFile2 == 0) { print FOO < $\"$logoAlt\"$ END } else { ## the user chose a second logo print FOO < $\"$logoAlt\"$ $\"$logoAlt2\"$ END } print FOO <$talkTitle
by $author

Table of contents

END } ## ## the beginning of the table of content has been generated and saved ###################################################################################################### ###################################################################################################### ## generate the footer of the table of content sub closeOverview { print FOO <

END close(FOO); } ## ## the toc has been completed and saved ########################################################################################################## ########################################################################################################## ## add an item in the toc sub addTitle { $_[0] =~ s/\r//ig; # remove the windows CR+LF $_[0] =~ s/<[^>]+>//g; if (length $_[0] == 0) { return 1; } print FOO <$_[0] END } ## ########################################################################################################## ########################################################################################################## ## generate the current slide sub createSlide { # parameters are respectively the slide title, its content, # its number, the next slide title and the previous slide title if (length $_[0] == 0) { return 1; } # work the slide title, the previous and next titles $_[0] =~ s/\r//ig; # remove the windows CR+LF $_[3] =~ s/\r//ig; $_[4] =~ s/\r//ig; $title = $_[0]; # Remove any tags from the prev & next titles $_[3] =~ s/<[^>]+>//g; $_[4] =~ s/<[^>]+>//g; $title =~ s/<[^>]+>//g; # Replace double quotes $_[0] =~ s/"/"/g; $_[3] =~ s/"/"/g; $_[4] =~ s/"/"/g; # work the slide content $_[1] =~ s/<\/body>//i; # remove if any $_[1] =~ s/<\/html>//i; # remove if any $status = sprintf "Slide %2d: %s\n", $_[2], $_[0]; $status =~ s/<[^>]+>//g; print STDOUT $status; &verify_html($_[1]); # check the html ## we create as many slides as there are css files ## Pierre note: it'd be much nicer to have only one slide ## which could dynamically load the css file, but ... my $cNumber = 0; for ($i=0;$i<$nbCssStandard;$i++) { $cNumber = $i+1; $cNumber = 0 if ($i == $nbCssStandard-1); ## write to the slide open(SLIDE, ">slide$_[2]-$i.html"); local($navBar); local($toclink); local($prevlink); local($nextlink); ## navigation bar with icons to previous slide, toc and next slide $navBar = "\n

\n"; ## the toc link needs to match the slide index ## so that the style sheets match between the slides and the toc $toclink = ""; ## initialization of the navigation links $nextlink = ""; $prevlink = ""; if ($_[2]>1) { $prevlink = ""; $navBar .= " $\"$_[3]$ "; } if ($i == 0) { ## we're using the first css file, so no need to number the toc $navBar = $navBar." $\"Table-of-Contents$ "; } else { ## we're using another css, the toc needs to match $navBar = $navBar." $\"Table-of-Contents$ "; } if ($_[2] != $total) { $nextlink = ""; $navBar .= " $\"$_[4]$ "; $navBar .= "
$\"Change-size$

"; } else { $navBar .= "
$\"Change-size$ "; } $stylelink = ""; # here is the standard style sheet $stylelink .= ""; # we overload with the user css if it exists if ($cssUser[$i]) { $stylelink .= "\n"; } print SLIDE < $talkTitle - slide "$title" $prevlink $toclink $nextlink $stylelink $body END if (length $logoFile2 == 0) { print SLIDE < $\"W3C$ END } else { print SLIDE < $\"$logoAlt\"$ $\"$logoAlt2\"$ END } print SLIDE <

$_[0]

$_[1]

END print SLIDE ""; print SLIDE <

$author

$_[2] of $total

END close(SLIDE); } return 0; } ################################################################################ ## generate all the toc of contents needed for each css choosen by the user ## the default toc is not numbered so it can be served by a request to '/' ## (ie it remains Overview.html whereas the other toc are called Overview_#.html) sub generateTOC { ## read the general toc open(FOO, "<$overview.html"); @TOC = ; close(FOO); $toc = "@TOC"; ## for each user CSS file ## starting after the default css for ($css=1;$css<$nbCssStandard;$css++) { ## create new TOC $newTOC = $toc; ## replace the style link with a new one ## ## we eventually choose the user css file if any if (! $cssUser[$css]) { $newTOC =~ s///ig; } else { $newTOC =~ s///ig; } ## the links on the toc need also to be modified ## to link to the correct slides $newTOC =~ s///ig; ## write to new TOC $outfile = $overview."-".$css.".html"; open(OUT, ">$outfile"); print OUT $newTOC; close(OUT) } } ################################################################################# # check that the html of the slide # is correct (ALT tags, ...) # This procedure produces only warning sub verify_html { if ($_[0] =~ /]*)>/im) { if (!($1 =~ /ALT=/im)) { print STDOUT "WARNING: without ALT\n"; print STDOUT " \n" ; } } } ################################################################################## # clean the html of the slide # remove all

blabla

sub clean_html { $_[0] =~ s/]|\"comment\").*?<\/div>//igs; return $_[0]; }