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; } # add accesskey for first 9 slides (`1' - `9'), and tabindex for all slides if ($_[1] < 10) { print FOO <$_[0] END } else { 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($MiniNavBar); local($toclink); local($prevlink); local($nextlink); ## navigation bar with icons to previous slide, toc and next slide $navBar = "\n\n"; ## at the same time, build a mini-navbar for the bottom. --CMN 19991102 ## $MiniNavBar = "\n

\n"; $MiniNavBar = "\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 .= " $\"$ "; $MiniNavBar .= " $\"$ "; } else { ## add a link back to the toc for the first slide --CMN 19991102 $prevlink = ""; $navBar .= " $\"$ "; $MiniNavBar .= " $\"$ "; } if ($i == 0) { ## we're using the first css file, so no need to number the toc $navBar = $navBar." $\"$ "; } else { ## change $toclink $toclink = ""; ## we're using another css, the toc needs to match $navBar = $navBar." $\"$ "; } ## add style change before the "next" button --CMN 19991102 ## However, this is necessary only if there are several style files! --IH 20001028 if ($i != 0 ) { $navBar .= " $\"$ "; } if ($_[2] != $total) { $nextlink = ""; $navBar .= " $\"$ "; $MiniNavBar .= " $\"$ "; } else { $navBar .= " $\"no$ "; $MiniNavBar .= " $\"no$ "; } $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" $nextlink $prevlink $toclink $stylelink $body

END if (length $logoFile2 == 0) { print SLIDE <

END } else { print SLIDE <

END } print SLIDE <

$navBar

$_[0]

$_[1]

$_[2]/$total

$MiniNavBar

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.htm whereas the other toc are called Overview_#.htm) 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; $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]; }