@echo off
ren *.GIF *.gif
perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto end

#!/usr/local/bin/perl
#
# Power Point Post Processor (p4)
# 
# this is p4.pl

# header and footer should be defined in settings as well

$VERSION="1.3";

$ARGV = join(' ',@ARGV);

$SLO=1 if 	$ARGV =~ m/SLO/i;
$EMAIL=1 unless $ARGV =~ m/-EMAIL/i;
$HOME=1 unless  $ARGV =~ m/-HOME/i;
$P4LINK=1;
$HOME=$EMAIL=0;
$TOCBODY = "BGCOLOR=#C0C0C0";
$INDEXBODY = "BGCOLOR=#FFFFFF";	# overrides body color for index page
$TEXTBODY = "BGCOLOR=#FFFFFF";
$SLIDEBODY = "BGCOLOR=#FFFFFF"; # TEXT=#FFFFFF LINK=#8080FF VLINK=#FF80FF";
$PARENT="_parent";

if ($SLO) {
    $index = "Naslovnica";
    $noframes = "Vaš brskalnik ne zna prikazovati okvirjev";
    $contents = "Kazalo";
    $textC = 'Besedno kazalo';
    $grafC = 'Slikovno kazalo';
    $showFramesT = "Prosojnice s tekstovnim kazalom";
    $showFramesG = "Prosojnice s slikovnim kazalom";
    $showFrames0 = "Prosojnice brez kazala";
    $showVGA = "Prosojnice za majhen VGA zaslon";
    $ema = "Elektronska pošta avtorju";
    $hop = "Domača stran";
    $about = "Strani generirane s programom p4";
    $handout = "Izpis vseh prosojnic";
    $h2 = "po dve na stran";
    $h6 = "po šest na stran";
    $ppt = "Izvirna Power Point datoteka";
    $pdf = "Prosojnice v Adobe PDF obliki";
    $click = "Kliknite na sliko za zagon";
} else {
    $index = "Title page";
    $noframes = "Your browser does not supprt frames";
    $contents = "Contents";
    $textC = 'Text contents';
    $grafC = 'Graphics contents';
    $showFramesT = "Overheads with text contents";
    $showFramesG = "Overheads with graphical contents";
    $showFrames0 = "Overheads without contents";
    $showVGA = "Overheads for small VGA screen";
    $ema = "Email author" if $EMAIL;
    $hop = "Home page" if $HOME;
    $about = "Pages generated by p4";
    $handout = "Handouts";
    $h2 = "two overheads per page";
    $h6 = "six per page";
    $ppt = "Original Power Point file";
    $pdf = "Overheads in Adobe PDF format";
    $click = "Click on slide to show";
}

require "../settings.txt" if -e "../settings.txt";
require "settings.txt" if -e "settings.txt";

print "p4 $VERSION\n";

$man = <<EOM;
<TITLE>p4 - Power Point Post Processor</TITLE>
<H1>p4 version $VERSION<BR>A Power Point Post Processor<HR></H1>

P4 Post processes the files created by Power Point 97's
"Save as HTML" option. The result is nicer, has better
funcionality and useses less screen space than
Microsoft's original solution. It generates pages
for frames, for non frames, for printing and even
for small VGA screens.<P>

p4 was written by <A HREF=http://www.fagg.uni-lj.si/~zturk/>
Prof. Ziga Turk</A>, an associate professor at the University
in Ljubljana, Slovenia.<P>

p4 can be downloaded from p4 home page at 
<A HREF=http://www.fagg.uni-lj.si/~zturk/works/p4/>
http://www.fagg.uni-lj.si/~zturk/works/p4/
</A>.<P>

<H3>Usage</H3>
<OL>
<LI>Save your Power Point Presentation as HTML. Select
no frames, buttons to the right of the slide, GIF images.
Any slide size can be used, but 800*600 at 3/4 is a good
and portable option. If you would also like to add slide notes
to your presetation, save it as frames also - but with the same
slide size. PowerPoint will create a directory with a lot of HTML and GIF files.
<LI>(optional) Create files header.txt, footer.txt and settings.txt in the directory
created in step 1. The HTML from header.txt and footer.txt will be used for on top
and bottom of every page generated by p4. The settings.txt should include a valid
perl program that would set variables defined in p4. See next section Settings
for more information. 
<LI>(optional) Close Power Point and move the .ppt file
to the direcory created in step 1. Name the file "slides.ppt".
<LI>(optional) Create Adobe PDF files with printable versions
of the slides and/or handouts. Name them "slides.pdf" and
"handouts.pdf" and store them in the same directory.
<LI>Run p4 from within the directory. On DOS/Windows you would
type:<BR>
<TT>c:\\bin\\p4.bat -SLO</TT>
<BR>
<BR>
This assumes you have stored both perl.exe and p4.pl in c:\\bin.
Only use -SLO switch if your presentation is in Slovenian language.
<LI>Check the results by opening file index.htm. All the files
created by Power Point are preserved. Only index.htm is renamed to
ppindex.htm. All .htm files crated by Power Point (sld*.htm and tsld*.htm) can
be deleted.
</OL>
<P>
To run on UNIX, strip first 4 lines, rename to p4.pl and execute.
<H3>Settings</H3>
There variables can be set in settings.txt. For more, examine the source.
<PRE>
\$EMAIL=1;	# print email address
\$HOME=1 	# all link to home page
\$TOCBODY = "BGCOLOR=#C0C0C0";	# body parameters for the table of contents
\$INDEXBODY = "BGCOLOR=#FFFFFF";	# body color for index page
\$TEXTBODY = "BGCOLOR=#FFFFFF";	# body for the text pages
\$SLIDEBODY = "BGCOLOR=#FFFFFF"; # body of the slides
</PRE>

<H3>Planned features</H3>
<UL>
<LI>Use slide notes.
<LI>Use .WAV or .RLE files for narration.
<LI>Generate slide pages myself.
<LI>Recalculate coordiantes on VGA slides.
</UL>
EOM

if ($ARGV[0] eq "-MAN") {
    open (h,">p4.htm");
    print h $man;
    close(h);
    print "Manual printed to file p4.htm\n";
    exit;
}

opendir(D,'.');
@x = readdir(D);
closedir(D);

@grafSlides = sort(grep(/^sld.*.htm/,@x));
@textSlides = sort(grep(/^tsld.*.htm/,@x));

# some patterns

$ngt = "[^>]*";		# anything but not gt

$firstSlide=1;
$lastSlide=$#grafSlides+1;

foreach $slide (@grafSlides) {

	$slide =~ m/([0-9]+)/;
	$id = $1;
	print "$id ";

	# --- read both files

	open (h,"sld$id.htm");
	@rows=<h>;
	close(h);
	$text = join('',@rows);

	open (h,"tsld$id.htm");
	@rows=<h>;
	close(h);
	$ttext = join('',@rows);

	# --- extract slide title

	$text =~ m|TITLE>([^<]*)</TITLE>|;
	$title=$1;
	$title=~s/\n//g;
	$title[$id]=$title;
	$id[$id]=$id;
	print "$title\n";

	# --- extract size of slides and body parameters 

	if ($id == 1) {
	    $text =~ m|img$id\.([a-zA-Z]{3})$ngt WIDTH=(\d+) HEIGHT=(\d+)|i;
	    $imgExt=$1;
	    $width =$2;
	    $height=$3;
	    $imgExt =~ tr/[A-Z]/[a-z]/;

	    $text =~ m|<BODY([^>]*)>|;
            $slideBody = $1;

	    if ($slideBody =~ m/^\s*$/) {
		$slideBody = $SLIDEBODY;
	    }
	}

	# --- de-moron-ize the relative URLs created by power point

	$text =~ s|file://||gi;
	$text =~ s|\.\.\\|../|gi;

	# --- extract the map

	($a,$map) = split (/<MAP/,$text);
	($map,$b) = split (/<\/MAP>/,$map);
	if ($map) {
	    $map = "<MAP $map </MAP>";
	}

	# --- modify the generated files

	do newGraf($text,"oh$id.htm");
	do newText($ttext,"toh$id.htm");
	do newGraf640($text,"soh$id.htm");
	
	# --- we do this one from scratch

	do newMyGraf("pic$id.htm");
}

# --- analyse powerpoints index page

if (-e "ppindex.htm") {
    # use this one
} else {
    rename ("index.htm","ppindex.htm");
}

open (h,"ppindex.htm");
@rows=<h>;
close (h);

$text=join('',@rows);

$text =~ m|TITLE>([^<]*)</TITLE>|i;
$ptitle=$1;
$ptitle=~s/\n//g;

####
$ptitle = $title[1];
####

$author = $1 if $text =~ m|Author:[^>]*>(.*)\n|;

$1='';
$text =~ m|MAILTO:([^"]*)|;
$email = $1;

$1='';
$text =~ m|Home Page:[^"]+"([^"]+)|;
$homepage = $1;

$1='';
$text =~ m|<BODY([^>]*)>|;
$indexBody = $INDEXBODY || $1;

print <<EOM;
Presentation title: $ptitle
Author: $author
Email: $email
HomePage: $homepage
Image dimensions: $width x $height in $imgExt format
EOM

# --- some settings

$head = <<EOM;
<META NAME="GENERATOR" CONTENT="PowerPoint 97 and P4 PowerPoint Post Processor">
EOM

if ($SLO) {
    $head.=<<EOM;
<META HTTP-EQUIV="Context-Type" CONTEXT="text/html;charset=windows-1250">
EOM
}

# --- make tables of contents

$ttoc=$gtoc='';
$i=1;
foreach $id (@id) {
    next if $id eq '';
    $title=$title[$id];
    $ttoc .= "<NOBR>(<SMALL><A HREF=oh$id.htm>$i</A></SMALL>) $title</NOBR><BR>\n";
    $gtoc .= "<A HREF=oh$id.htm><IMG SRC=img$id.$imgExt BORDER=2 WIDTH=150 HEIGHT=120 ALT=\"$title\"></A>\n";
    $i++;
}

if (-e "slides.ppt") {
    $xtra = "<BR><A HREF=slides.ppt>$ppt</A>\n";
}

if (-e "slides.pdf") {
    $xtra .= "<BR><A HREF=slides.pdf>$pdf</A>\n";
}

$id0=$id[1];

#
# index
#

open (h,">index.htm"); #---------------------------------------------------

print h <<EOM;
<HTML>
<HEAD>
$head
<META NAME="Description" CONTENT="$ptitle">
<META NAME="KeyWords" CONTENT="$ptitle">
<META NAME="Author" CONTENT="$author">
<TITLE>$ptitle</TITLE>
</HEAD>
<BODY $indexBody>
$HEADER
<TABLE BORDER=0 WIDTH=100% HEIGHT=95%>
<TR VALIGN=TOP>
<TD ALIGN=RIGHT>
<H1>$ptitle</H1>
<A HREF=tframes.htm><IMG SRC=img$id0.$imgExt WIDTH=320 HEIGHT=240 BORDER=3 ALT="$ptitle: $click"></A>
<BR><A HREF=tframes.htm>$showFramesT</A>
<BR><A HREF=gframes.htm>$showFramesG</A>
<BR><A HREF=oh$id0.htm>$showFrames0</A>
<BR><A HREF=soh$id0.htm>$showVGA</A>
<BR>
<BR>$handout <A HREF=handout2.htm>$h2</A>
<BR>$handout <A HREF=handout6.htm>$h6</A> 
$xtra
<BR>
<BR><A HREF="mailto:$email">$ema</A>
<BR><A HREF="$homepage">$hop</A>

</TD>
<TD $TOCBODY>
<B>Contents:</B><BR>
$ttoc
</TD>
</TR>
</TABLE>
EOM
	if ($P4POINT) {
	    print h <<EOM;
<DIV ALIGN=RIGHT>
<I><A HREF="p4man.htm">$about</A></I>
</DIV>
EOM
	}

	print h <<EOM;
$FOOTER
</BODY>
</HTML>
EOM
close (h);

$w=$width+40+40;

#
# framed with text contents
#

open (h,">tframes.htm"); # ------------------------------------------------
print h <<EOM;
<HTML>
<HEAD>
$head
<TITLE>$title</TITLE>
</HEAD>
<FRAMESET COLS="$w,*" NAME="top" BORDER=0>
    <FRAME SRC="oh$id0.htm" NAME="main">
    <FRAMESET ROWS="80,*">
	<FRAME SRC="xtoc.htm" NAME="xtoc" MARGINWIDTH=1>
	<FRAME SRC="ttoc.htm" NAME="toc" MARGINWIDTH=1>
    </FRAMESET>
</FRAMESET>
<NOFRAMES>
<A HREF="./">$noframes</A>
</NOFRAMES>
</HTML>
EOM
close(h);

#
# framed with graphic contents
#

open (h,">gframes.htm"); #----------------------------------------------------------
print h <<EOM;
<HTML>
<HEAD>
$head
<TITLE>$title</TITLE>
</HEAD>
<FRAMESET COLS="$w,*" NAME="top" BORDER=0>
    <FRAME SRC="oh$id0.htm" NAME="main">
    <FRAMESET ROWS="80,*">
	<FRAME SRC="xtoc.htm" NAME="xtoc" MARGINWIDTH=1>
	<FRAME SRC="gtoc.htm" NAME="toc" MARGINWIDTH=1>
    </FRAMESET>
</FRAMESET>
<NOFRAMES>
<A HREF="./">$noframes</A>
</NOFRAMES>
</HTML>
EOM
close(h);

#
# switch between graphical and text contents frame
#

open (h,">xtoc.htm"); #-----------------------------------------------------------
print h <<EOM;
<HTML>
<HEAD>
$head
<TITLE>$title</TITLE>
</HEAD>
<BODY $TOCBODY>
<SMALL>
- <NOBR><A HREF="index.htm" TARGET="$PARENT">$index</A></NOBR><BR>
- <NOBR><A HREF="gtoc.htm" TARGET=toc>$grafC</A></NOBR><BR>
- <NOBR><A HREF="ttoc.htm" TARGET=toc>$textC</A></NOBR><BR>
</SMALL>
</BODY>
</HTML>
EOM
close (h);

#
# text table of contents
#

open (h,">ttoc.htm"); #-----------------------------------------------------------
print h <<EOM;
<HTML>
<HEAD>
$head
<TITLE>$title</TITLE>
<BASE TARGET="main">
</HEAD>
<BODY $TOCBODY>
<B>$contents</B><BR>
<FONT SIZE=-1>
$ttoc
</FONT>
<P>
</BODY>
</HTML>
EOM
close (h);

#
# graphical table of contents
#

open (h,">gtoc.htm"); # -------------------------------------------------------------
print h <<EOM;
<HTML>
<HEAD>
$head
<TITLE>$title</TITLE>
<BASE TARGET="main">
</HEAD>
<BODY $TOCBODY>
<CENTER>
$gtoc
</CENTER>
</BODY>
EOM
close (h);

open (h,">p4man.htm"); #------------------------------------------------------------
print h $man;
close(h);

open (h,">handout2.htm"); #---------------------------------------------------------
print h <<EOM;
<HTML>
<HEAD>
$head
<TITLE>Handouts 2 of $ptitle</TITLE>
</HEAD>
<BODY $TEXTBODY>
<CENTER>
<TABLE>
EOM

if ($width > 750 || $width<400) {
    $w=600;
    $h=450;
} else {
    $w=$width;
    $h=$height;
}

$i=1;
foreach $id (@id) {
    next if $id eq '';
    print h "<TR><TD>
<IMG SRC=img$id.$imgExt BORDER=0 WIDTH=$w HEIGHT=$h ALT=\"$title\"><BR>($i)
<BR>
<BR>
</TD></TR>\n";
    $i++;
    if ($i%2 == 1) {
	print  h "</TABLE><P>\n<TABLE>\n\n";
    }
}

print h <<EOM;
</TABLE>
</CENTER>
</BODY>
EOM

close(h);

open (h,">handout6.htm"); #---------------------------------------------------------
print h <<EOM;
<HTML>
<HEAD>
$head
<TITLE>Handouts 6 of $ptitle</TITLE>
</HEAD>
<BODY $TEXTBODY>
<CENTER>
<TABLE><TR>
EOM

$i=1;
for ($i=1;$i<=$#id;$i++) {
    $id = $id[$i];
    $title = $title[$i];
    print h <<EOM;
<TD>
<A HREF="oh$id.htm"><IMG SRC=img$id.$imgExt BORDER=2 WIDTH=320 HEIGHT=240 ALT=\"$title\"></A>
<BR>($i)
<BR>
<BR>
</TD>
EOM
    if ($i%6 == 0) {
	print  h "</TR></TABLE>\n<P>\n<TABLE><TR>";
    } elsif ($i%2 == 0) {
	print h "</TR><TR>\n";
    }
}

print h <<EOM;
</TR>
</TABLE>
</CENTER>
</BODY>
EOM

close(h);

sub lc {

	local ($xxx);

	$xxx = $_[0];
	print $xxx . "\n";
	$xxx=~tr/A-Z/a-z/;
	return $xxx;
}

sub zero {

	local ($id,$dir)=@_;
	if ($id) {
	    $id = "000$id";
	    $id = substr($id,-3,3);
	    return "<A HREF=\"pic$id.htm\"><IMG SRC=$dir.gif BORDER=0 ALT=$dir></A>"; 
	} else {
	    return '';
        }
}

sub newGraf {

	local ($text,$fileName)=@_;

	# replace text in the slide

	$text =~ s/.GIF"/.gif"/g;
	$text =~ s/.JPG"/.jpg"/g;
	$text =~ s/<TR>/<TR VALIGN=MIDDLE>/g;
	$text =~ s/<TABLE/<TABLE  CELLSPACING=0 CELLPADDING=0 HEIGHT_NOTES=90%/i;
	$text =~ s/"index.htm"/"index.htm" TARGET="$PARENT"/;
	$text =~ s/.*home.gif.*//;
	$text =~ s/<P>Slide/Slide/;
	$text =~ s|<BODY([^>]*)>|<BODY $slideBody>$HEADER|i;
	$text =~ s|</BODY>|$FOOTER</BODY>|i;

	$text =~ s|file://([^"]*)|&lc($1)|ige;
	$text =~ s|<CENTER><Font size=4> <STRONG> Notes:  </FONT></STRONG><HR SIZE=3></CENTER><P>|<H3>Notes:</H3>|i;

	if ($SLO) {

	    $text =~ s/Slide /Prosojnica /;
	    $text =~ s/ of / od /;
	    $text =~ s/ALT="Previous"/ALT="Nazaj"/g;
	    $text =~ s/ALT="Next"/ALT="Naprej"/g;
	    $text =~ s/ALT="Last"/ALT="Konec"/g;
	    $text =~ s/ALT="First"/ALT="Začetek"/g;
	    $text =~ s/ALT="Home"/ALT="Domov"/g;
	    $text =~ s/ALT="Text"/ALT="Tekst"/g;
	    $text =~ s/ALT="Index"/ALT="Naslovnica"/g;

	}

        $text =~ s/(t*)sld([0-9]+).htm/$1oh$2.htm/g;

	open (h,">$fileName");
	print h $text;
	close (h);
}

sub newText {

	local ($ttext,$fileName)=@_;

	# replace text in the slide

	if ($SLO) {
	    $ttext =~ s|Previous slide</A>|Prejšnja prosojnica</A>|;
	    $ttext =~ s|Next slide</A>|Naslednja prosojnica</A>|;
   	    $ttext =~ s|Back to first slide</A>|Prva prosojnica</A>|;
            $ttext =~ s|View graphic version</A>|Grafična prosojnica</A>|;
	}

	$ttext =~ s/(t*)sld([0-9]+).htm/$1oh$2.htm/g;
	$ttext =~ s|file://||gi;
	$ttext =~ s|<BODY([^>]*)>|<BODY $slideBody>$HEADER|i;
	$ttext =~ s|</BODY>|$FOOTER</BODY>|i;

	open (h,">$fileName");
	print h $ttext;
	close (h);
}

sub newGraf640 {
	local ($stext,$fileName)=@_;

	$stext =~ s/WIDTH=$width/WIDTH=520/i;
	$stext =~ s/HEIGHT=$height/HEIGHT=380/i;
	$stext =~ s/sld([0-9]+).htm/soh$1.htm/g;
	$stext =~ s/tsoh([0-9]+).htm/toh$1.htm/g;	# to text version
	$stext =~ s/usemap="#/xusemap="#/i;

	open (h,">$fileName");
	print h $stext;
	close (h);
}

sub newMyGraf {
	local ($fileName)=@_;
	local ($text);

	# now write the slide as we generate it

	$next = $id+1;
	$next = '' if $next > $lastSlide;
	$next = &zero($next,'next');

	$prev = $id-1;
	$prev = '' if $prev == 0;
	$prev = &zero($prev,'prev');

	$last = $lastSlide;
	$last = '' if $id == $lastSlide;
	$last = &zero($last,'last');

	$first= $firstSlide;
	$first= '' if $id == $firstSlide;
	$first= &zero($first,'first');

        $map =~ s/sld([0-9]+).htm/pic$1.htm/g;
	$text = <<EOM;
<HTML>
<HEAD>
<TITLE>$title</TITLE>
</HEAD>
<BODY $slideBody>
$HEADER
$map
<TABLE BORDER=0 ALIGN=CENTER HEIGHT=$height CELLSPACING=0 CELPADDING=0><TR><TD HEIGHT=$height>
<IMG SRC="img$id.$imgExt" USEMAP="#Objmap" WIDTH=$width HEIGHT=$height BORDER=0>
</TD><TD VALIGN=BOTTOM WIDTH=40 HEIGHT=$height>
$prev $next
</TD>
</TR>
</TABLE>
$FOOTER
</BODY>
EOM

	open (h,">$fileName");
	print h $text;
	close(h);
}

__END__
:end