#!/usr/bin/perl use strict; use warnings; no warnings 'once'; =pod =head1 DESCRIPTION Builds Screenpager (documentation) files. =cut use lib '/usr/local/lib'; require Zelea::AutoEditor; our $_project_directory = '/home/mike/project/Screenpager'; Zelea::AutoEditor::auto_edit( glob $_project_directory . '/*' ); # Create project manual.html # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - { chdir '/tmp' or die; # because pod2html leaves a mess my $man_raw_file = '/tmp/man-raw-html'; my $command = '/usr/bin/pod2html' . " --infile=$_project_directory/screenpager --outfile=$man_raw_file"; system $command and die 'unable to execute: ' . $command; open( IN_FILE, "<$man_raw_file" ) or die; open( OUT_FILE, ">$_project_directory/manual.html" ) or die; { my $is_background_fixed = 0; # not yet while( ) { my $line = $_; # Correct the background colour. #(pod2html specifies foreground, but forgets background) # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - if( !$is_background_fixed && $line =~ s||| ) { $is_background_fixed = 1; } print OUT_FILE $line; } $is_background_fixed or warn "could not fix background"; } close OUT_FILE; close IN_FILE; unlink $man_raw_file; } # - - - exit;