| … | |
… | |
| 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; |
| 20 | open FH, ">", "src/news.html"; |
20 | open FH, ">", "src/news.html"; |
| 21 | print FH "News\n\n"; |
21 | print FH "News\n\n<h1>News</h1>"; |
| 22 | print FH $html; |
22 | print FH $html; |
| 23 | close FH; |
23 | close FH; |
| 24 | |
24 | |
| 25 | %PodRSS::metadata = %{ $pom->metadata }; |
25 | %PodRSS::metadata = %{ $pom->metadata }; |
| 26 | $html = $pom->present ("PodRSS"); |
26 | $html = $pom->present ("PodRSS"); |
| … | |
… | |
| 115 | |
115 | |
| 116 | use strict; |
116 | use strict; |
| 117 | use warnings; |
117 | use warnings; |
| 118 | use utf8; |
118 | use utf8; |
| 119 | |
119 | |
| 120 | my $rcsid = '$Id: generate,v 1.19 2007/10/14 14:24:33 root Exp $'; |
120 | my $rcsid = '$Id: generate,v 1.20 2007/10/14 15:34:46 root Exp $'; |
| 121 | |
121 | |
| 122 | use base "Pod::POM::View"; |
122 | use base "Pod::POM::View"; |
| 123 | |
123 | |
| 124 | our $subdir; |
124 | our $subdir; |
| 125 | our $dir; |
125 | our $dir; |
