#!/usr/bin/env perl use strict; use warnings; package Pod::Simple::HTMLBatch::Custom; use base qw/Pod::Simple::HTMLBatch/; use vars qw/$VERSION/; $VERSION = '0.01'; sub esc { return Pod::Simple::HTMLBatch::esc(@_); } sub new { print "Hello!\n"; my $self = shift; my $obj = $self->SUPER::new(@_); $obj->css_flurry(0); $obj->javascript_flurry(0); my @index_header = ("\n", "\n", "Irssi Scripting Documentation\n", "\n", "

Irssi Scripting Documentation

\n", q(

This is a work in progress. If you ), q(find something obviously wrong, or have requests ), q(for further documentation on topics not yet ), q(filled out, please ), q(create an issue), " on my Github page, and I'll see what I can do.

", ); $obj->contents_page_start(join("", @index_header)); my $index_footer = sprintf("\n\n

Generated " . "by %s v%s under Perl v%s\n
At %s GMT" . ", which is %s local time.

\n\n\n", esc(ref($obj), $VERSION, $], scalar(gmtime), scalar(localtime))); my @copyright = ( "

Much of the content on these pages is taken", " from original Irssi documentation, and is Copyright", " © 2000-2010 The Irssi project.
", " Formatting and additional documentation by Tom Feist", " shabble+irssi\@metavore.org", "

"); $obj->contents_page_end($index_footer . join("", @copyright)); return $obj; } sub _write_contents_middle { my($self, $Contents, $outfile, $toplevel2submodules, $toplevel_form_freq) = @_; foreach my $t (sort keys %$toplevel2submodules) { my @downlines = sort {$a->[-1] cmp $b->[-1]} @{ $toplevel2submodules->{$t} }; printf $Contents qq[
%s
\n
\n], esc( $t, $toplevel_form_freq->{$t} ) ; my($path, $name); foreach my $e (@downlines) { $name = $e->[0]; $path = join( "/", '.', esc( @{$e->[3]} ) ) . ($POD::Simple::HTMLBatch::HTML_EXTENSION || $Pod::Simple::HTML::HTML_EXTENSION); print $Contents qq{ }, esc($name), "
\n"; } print $Contents "
\n\n"; } return 1; } 1; package main; use File::Copy; my $output_dir = "../../tmp/irssi/docs/"; my $batchconv = Pod::Simple::HTMLBatch::Custom->new; my $css = 'podstyle.css'; $batchconv->add_css('podstyle.css', 1); $batchconv->batch_convert([qw/./], $output_dir); print "Copying CSS...\n"; copy($css, $output_dir . $css); print "Done\n";