From 8d4fe58ee09b7f5d00ee0c1a6e122a1bcff7ca4e Mon Sep 17 00:00:00 2001 From: Tom Feist Date: Sat, 8 Jan 2011 20:00:20 +0000 Subject: moved docs/ to https://github.com/shabble/irssi-docs --- docs/buildpod.pl | 102 ------------------------------------------------------- 1 file changed, 102 deletions(-) delete mode 100755 docs/buildpod.pl (limited to 'docs/buildpod.pl') diff --git a/docs/buildpod.pl b/docs/buildpod.pl deleted file mode 100755 index e683185..0000000 --- a/docs/buildpod.pl +++ /dev/null @@ -1,102 +0,0 @@ -#!/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"; -- cgit v1.2.3