diff options
| author | richo <richo@psych0tik.net> | 2011-07-18 03:36:40 +0000 |
|---|---|---|
| committer | richo <richo@psych0tik.net> | 2011-07-18 03:36:40 +0000 |
| commit | e4b9ea15d7abdae8211d18737fa54933f3faf57b (patch) | |
| tree | fda4cc23faebfd1f130578b39fe161fe4c0ba1f8 /docs/buildpod.pl | |
| parent | Added goodnicks from richoH/richos-irssi (diff) | |
| parent | Only attempt join if channel exists (diff) | |
| download | irssi-scripts-e4b9ea15d7abdae8211d18737fa54933f3faf57b.tar.gz irssi-scripts-e4b9ea15d7abdae8211d18737fa54933f3faf57b.zip | |
Merge branch 'master' into richoH-dev
Diffstat (limited to 'docs/buildpod.pl')
| -rwxr-xr-x | docs/buildpod.pl | 102 |
1 files changed, 0 insertions, 102 deletions
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 = ("<html>\n", - "<head>\n", - "<title>Irssi Scripting Documentation</title>\n", - "</head><body class='contentspage'>\n", - "<h1>Irssi Scripting Documentation</h1>\n", - q(<p><b>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(<a href="http://github.com/shabble/irssi-scripts/issues#">create an issue</a>), - " on my Github page, and I'll see what I can do.</b></p>", - ); - - $obj->contents_page_start(join("", @index_header)); - - - my $index_footer = sprintf("\n\n<p class='contentsfooty'>Generated " - . "by %s v%s under Perl v%s\n<br >At %s GMT" - . ", which is %s local time.</p>\n\n</body></html>\n", - esc(ref($obj), $VERSION, - $], scalar(gmtime), scalar(localtime))); - - - my @copyright = ( - "<p><small>Much of the content on these pages is taken", - " from original Irssi documentation, and is Copyright", - " © 2000-2010 The Irssi project.<br/>", - " Formatting and additional documentation by Tom Feist", - " <code>shabble+irssi\@metavore.org</code>", - "</small></p>"); - - $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[<dt><a name="%s">%s</a></dt>\n<dd>\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{ <a href="$path">}, esc($name), "</a><br/>\n"; - } - print $Contents "</dd>\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"; |