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

Comparing deliantra/www/generate (file contents):
Revision 1.18 by pippijn, Wed Sep 19 14:30:53 2007 UTC vs.
Revision 1.19 by root, Sun Oct 14 14:24:33 2007 UTC

… …
10 10
11my $parser = new Pod::POM meta => 1; 11my $parser = new Pod::POM meta => 1;
12 12
13my ($pom, $html); 13my ($pom, $html);
14 14
15$pom = $parser->parse ("src/news-archive.pod") 15$pom = $parser->parse ("src/news.pod")
16 or die $parser->error; 16 or die $parser->error;
17$html = $pom->present ("PodHTML"); 17$html = $pom->present ("PodHTML");
18$html =~ s/\[/</g; 18$html =~ s/\[/</g;
19$html =~ s/\]/>/g; 19$html =~ s/\]/>/g;
20open FH, ">", "src/news-archive.html";
21print FH "News Archive\n\n";
22print FH $html;
23close FH;
24
25$pom = $parser->parse ("src/news.pod")
26 or die $parser->error;
27$html = $pom->present ("PodHTML");
28open FH, ">", "html/news.html"; 20open FH, ">", "src/news.html";
21print FH "News\n\n";
29print FH $html; 22print FH $html;
30close FH; 23close FH;
31 24
32%PodRSS::metadata = %{ $pom->metadata }; 25%PodRSS::metadata = %{ $pom->metadata };
33$html = $pom->present ("PodRSS"); 26$html = $pom->present ("PodRSS");
… …
122 115
123use strict; 116use strict;
124use warnings; 117use warnings;
125use utf8; 118use utf8;
126 119
127my $rcsid = '$Id: generate,v 1.18 2007/09/19 14:30:53 pippijn Exp $'; 120my $rcsid = '$Id: generate,v 1.19 2007/10/14 14:24:33 root Exp $';
128 121
129use base "Pod::POM::View"; 122use base "Pod::POM::View";
130 123
131our $subdir; 124our $subdir;
132our $dir; 125our $dir;

Diff Legend

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