| … | |
… | |
| 83 | or die $parser->error; |
83 | or die $parser->error; |
| 84 | open FH, ">", "html/news.html"; |
84 | open FH, ">", "html/news.html"; |
| 85 | print FH $pom->present ("PodHTML"); |
85 | print FH $pom->present ("PodHTML"); |
| 86 | close FH; |
86 | close FH; |
| 87 | |
87 | |
|
|
88 | open FH, ">", "html/news.xml"; |
|
|
89 | print FH $pom->present ("PodRSS"); |
|
|
90 | close FH; |
|
|
91 | |
|
|
92 | |
| 88 | $pom = $parser->parse ("src/news-archive.pod") |
93 | $pom = $parser->parse ("src/news-archive.pod") |
| 89 | or die $parser->error; |
94 | or die $parser->error; |
| 90 | open FH, ">", "html/news-archive.html"; |
95 | open FH, ">", "html/news-archive.html"; |
| 91 | print FH $pom->present ("PodHTML"); |
96 | print FH $pom->present ("PodHTML"); |
| 92 | close FH; |
97 | close FH; |
| … | |
… | |
| 96 | |
101 | |
| 97 | use strict; |
102 | use strict; |
| 98 | use warnings; |
103 | use warnings; |
| 99 | use utf8; |
104 | use utf8; |
| 100 | |
105 | |
| 101 | my $rcsid = '$Id: generate,v 1.6 2007/09/16 07:55:13 pippijn Exp $'; |
106 | my $rcsid = '$Id: generate,v 1.7 2007/09/16 07:57:19 pippijn Exp $'; |
| 102 | |
107 | |
| 103 | use base "Pod::POM::View"; |
108 | use base "Pod::POM::View"; |
| 104 | |
109 | |
| 105 | our $subdir; |
110 | our $subdir; |
| 106 | our $dir; |
111 | our $dir; |
