The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
PerlBuildSystem-0.44
River stage zero No dependents
3 ++
/ doc/pnw2004/pod2slide.pl

EOA

        my $arrows_html = <<EOA ;

$title [@{[$slide_index+1]}/$number_of_slides] <<  ^  >> Copyright © $copyright

EOA

        my $pod = read_file("$out_dir$slide_file.pod") ;
        write_file("$out_dir$slide_file.pod", $pod, $arrows_html) ;

        my $md5 = 'error' ;
        if(open(FILE, "$out_dir$slide_file.pod"))
                {
                binmode(FILE);
                
                $md5 = Digest::MD5->new->addfile(*FILE)->hexdigest ;
                close(FILE) ;
                }
                
        my $previous_md5 = "doesn't exist" ;
        
        if(open(FILE, "$out_dir$slide_file.md5"))
                {
                $previous_md5 = <FILE> ;
                }
                
        if($md5 ne $previous_md5)
                {
                $regenerated_slides++ ;
                
                print "Generating slide @{[$slide_index + 1]}: '$unmodified_slide_name' $undone_flag.\n" ;
                
                pod2html
                        (
                          "--infile=$out_dir$slide_file.pod"
                        , "--outfile=$out_dir$slide_file.html"
                        , "--css"
                        , "perl_style.css"
                        , "--noindex"
                        ) ;
                        
                open(FILE, ">", "$out_dir$slide_file.md5") or die "can't open '$out_dir$slide_file.md5': $!" ;
                print FILE $md5 ;
                close FILE ;
                }
        else
                {
                print "Undone flag set for: '$unmodified_slide_name'.\n" if $undone_flag eq '*' ;
                }
                
        #~ unlink("$out_dir$slide_file.pod") ;
        
        # Arfff!
        {
        open(FILE, "+<", "$out_dir$slide_file.html") or die "can't open '$out_dir$slide_file.html: $!" ;
        local $/ = undef ;
        my $text = <FILE> ;
        $text =~ s~<p><a name="__index__"></a></p>~~ ;
        $text =~ s~<hr />\n<h1>~<h1>~g ;
        $text =~ s~<div class=pod><p>\n</p>~<div class=pod>~ ;
        
        seek(FILE, 0, 0) ;
        print FILE $text ;
        truncate(FILE, tell(FILE)) ;
        close(FILE) ;
        }

        $slide_file =~ s/^$out_dir// ;
        
        $index_text .= sprintf("%03d ", $slide_index + 1) ;
        $index_text .= "<a href='$slide_file.html'>$unmodified_slide_name$undone_flag</a><br>\n\n" ;
        }

# generate index print "Generating index => $number_of_slides/$regenerated_slides/$number_of_undone_slides\n" ;

open INDEX, ">", "${out_dir}index_slide.html" or die "can't open '${out_dir}index_slide.html': $!" ;

print INDEX <<EOHTML ; <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <link rel="stylesheet" href="perl_style.css" type="text/css" /> </head>

<div class="pod"> <body> <H1>$title</H1> $index_text <br> <div class="path"> <table width=100%> <tr> <td width=50%>$title</a></td> <td align="right" width=50%>Copyright &copy; $copyright</td> </tr> </table> </body> </html> EOHTML

close INDEX ;