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

Comparing deliantra/www/generate (file contents):
Revision 1.8 by pippijn, Sun Sep 16 07:59:39 2007 UTC vs.
Revision 1.9 by pippijn, Sun Sep 16 08:58:31 2007 UTC

… …
79generate "src", "html", @files; 79generate "src", "html", @files;
80generate "monsters", "html\/monsters", @monsters; 80generate "monsters", "html\/monsters", @monsters;
81 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;
84my $html = $pom->present ("PodHTML");
85$html =~ s/\[/</g;
86$html =~ s/\]/>/g;
84open FH, ">", "html/news.html"; 87open FH, ">", "html/news.html";
85print FH $pom->present ("PodHTML"); 88print FH $html;
86close FH; 89close FH;
87 90
88%PodRSS::metadata = %{ $pom->metadata }; 91%PodRSS::metadata = %{ $pom->metadata };
92$html = $pom->present ("PodRSS");
93$html =~ s/\[/</g;
94$html =~ s/\]/>/g;
89open FH, ">", "html/news.xml"; 95open FH, ">", "html/news.rss";
90print FH $pom->present ("PodRSS"); 96print FH $html;
91close FH; 97close FH;
92 98
93 99
94$pom = $parser->parse ("src/news-archive.pod") 100$pom = $parser->parse ("src/news-archive.pod")
95 or die $parser->error; 101 or die $parser->error;
… …
102 108
103use strict; 109use strict;
104use warnings; 110use warnings;
105use utf8; 111use utf8;
106 112
107my $rcsid = '$Id: generate,v 1.8 2007/09/16 07:59:39 pippijn Exp $'; 113my $rcsid = '$Id: generate,v 1.9 2007/09/16 08:58:31 pippijn Exp $';
108 114
109use base "Pod::POM::View"; 115use base "Pod::POM::View";
110 116
111our $subdir; 117our $subdir;
112our $dir; 118our $dir;

Diff Legend

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