#!/usr/local/bin/perl
#
# slidemaker tool
# split a all.htm into slide*.htm
#
# Stephan Montigaud - stephan@w3.org
# 970601
#
# default variables
$all = 'all.htm';
$overview = 'overview.htm';
$logoLink = 'http://www.w3.org/';
$logoFile = '../Icons/w3c_home.gif';
$left = '../Icons/left.gif';
$right = '../Icons/right.gif';
$top = '../Icons/up.gif';
$author = 'W3C Staff';
$talkTitle = 'W3C Talk';
$cssFile = '../Tools/w3ctalk.css';
$body = '';
# process arguments
foreach (@ARGV) {
split(/=/);
$cmd="\$$_[0] = \'$_[1]\';";
if (length $_[1] != 0) {
eval($cmd);
}
}
# misc initializations
if ($authorUrl) {
$author = "$author";
}
if ($author2 && $author2Url) {
$author2 = "$author2";
}
if ($author2) {
$author = $author." & ".$author2;
}
# copy file in memory
if (!open(ALL, $all)) {
print "Error: Cannot open file: $all\n";
exit 0;
}
@table = ;
close(ALL);
# split using xxxx
as separator
@table = split(/<\/?[hH]1>/, "@table");
$total = $#table / 2;
print STDOUT "--- Processing $total slides ---\n";
$OVERVIEW = &openOverview($overview);
$slideCount = 1;
do {
shift(@table);
$table[0] =~ s/\n+/ /g;
$table[0] =~ s/ +/ /g;
$table[0] =~ s/^ //;
$table[0] =~ s/ $//;
&addTitle($table[0],$slideCount);
&createSlide($table[0],$table[1],$slideCount++);
}
while (shift(@table));
&closeOverview;
print STDOUT "--- Finished ---\n";
exit 0;
sub openOverview
{
open(OVERVIEW, ">$_[0]");
print OVERVIEW <
$talkTitle - Slide list
$body
$talkTitle
by $author
Table of contents
END
return OVERVIEW;
}
sub closeOverview
{
print $OVERVIEW <