#!/opt/perl/bin/perl use common::sense; use Pod::POM; use Template; use YAML; my $parser = new Pod::POM meta => 1; my ($pom, $html); $pom = $parser->parse ("src/news.pod") or die $parser->error; $html = $pom->present ("PodHTML"); $html =~ s/\[//g; open FH, ">", "src/news.html.inc" or die "src/news.html.inc: $!"; print FH $html; close FH; %PodRSS::metadata = %{ $pom->metadata }; $html = $pom->present ("PodRSS"); open FH, ">", "src/news.rss" or die "src/news.rss: $!"; print FH $html; close FH; system "rsync -avP src/. html/. --exclude CVS"; =head1 AUTHOR Copyright © 2010 The Deliantra Team Copyright © 2007 Pippijn van Steenhoven =head1 LICENSE This library is free software, you can redistribute it and/or modify it under the terms of the GNU General Public License. =cut 1; package PodHTML; use strict; use warnings; use utf8; my $rcsid = '$Id: generate,v 1.27 2010/04/26 13:33:42 root Exp $'; use base "Pod::POM::View"; our $subdir; our $dir; our $menu; sub view_pod { my ($self, $item) = @_; $item->content->present ($self) } sub view_head1 { my ($self, $item) = @_; $item->content->present ($self) } sub view_head2 { my ($self, $item) = @_; "
", $item->title, " ", $item->content->present ($self), "
" } sub view_textblock { my ($self, $item) = @_; $item, "