ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/www/generate
(Generate patch)

Comparing deliantra/www/generate (file contents):
Revision 1.7 by pippijn, Sun Sep 16 07:57:19 2007 UTC vs.
Revision 1.8 by pippijn, Sun Sep 16 07:59:39 2007 UTC

… …
5use utf8; 5use utf8;
6 6
7use Pod::POM; 7use Pod::POM;
8use Template; 8use Template;
9use YAML; 9use YAML;
10
11my $parser = new Pod::POM meta => 1;
10 12
11# Static variables 13# Static variables
12my $static = YAML::LoadFile "variables.yml"; 14my $static = YAML::LoadFile "variables.yml";
13 15
14my @files = <src/*.html>; 16my @files = <src/*.html>;
… …
75} 77}
76 78
77generate "src", "html", @files; 79generate "src", "html", @files;
78generate "monsters", "html\/monsters", @monsters; 80generate "monsters", "html\/monsters", @monsters;
79 81
80my $parser = new Pod::POM;
81
82my $pom = $parser->parse ("src/news.pod") 82my $pom = $parser->parse ("src/news.pod")
83 or die $parser->error; 83 or die $parser->error;
84open FH, ">", "html/news.html"; 84open FH, ">", "html/news.html";
85print FH $pom->present ("PodHTML"); 85print FH $pom->present ("PodHTML");
86close FH; 86close FH;
87 87
88%PodRSS::metadata = %{ $pom->metadata };
88open FH, ">", "html/news.xml"; 89open FH, ">", "html/news.xml";
89print FH $pom->present ("PodRSS"); 90print FH $pom->present ("PodRSS");
90close FH; 91close FH;
91 92
92 93
… …
101 102
102use strict; 103use strict;
103use warnings; 104use warnings;
104use utf8; 105use utf8;
105 106
106my $rcsid = '$Id: generate,v 1.7 2007/09/16 07:57:19 pippijn Exp $'; 107my $rcsid = '$Id: generate,v 1.8 2007/09/16 07:59:39 pippijn Exp $';
107 108
108use base "Pod::POM::View"; 109use base "Pod::POM::View";
109 110
110our $subdir; 111our $subdir;
111our $dir; 112our $dir;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines