… | |
… | |
97 | close FH; |
97 | close FH; |
98 | |
98 | |
99 | |
99 | |
100 | $pom = $parser->parse ("src/news-archive.pod") |
100 | $pom = $parser->parse ("src/news-archive.pod") |
101 | or die $parser->error; |
101 | or die $parser->error; |
|
|
102 | $html = $pom->present ("PodHTML"); |
|
|
103 | $html =~ s/\[/</g; |
|
|
104 | $html =~ s/\]/>/g; |
102 | open FH, ">", "html/news-archive.html"; |
105 | open FH, ">", "html/news-archive.html"; |
103 | print FH $pom->present ("PodHTML"); |
106 | print FH $html; |
104 | close FH; |
107 | close FH; |
105 | |
108 | |
106 | |
109 | |
107 | package PodHTML; |
110 | package PodHTML; |
108 | |
111 | |
109 | use strict; |
112 | use strict; |
110 | use warnings; |
113 | use warnings; |
111 | use utf8; |
114 | use utf8; |
112 | |
115 | |
113 | my $rcsid = '$Id: generate,v 1.9 2007/09/16 08:58:31 pippijn Exp $'; |
116 | my $rcsid = '$Id: generate,v 1.10 2007/09/16 09:04:57 pippijn Exp $'; |
114 | |
117 | |
115 | use base "Pod::POM::View"; |
118 | use base "Pod::POM::View"; |
116 | |
119 | |
117 | our $subdir; |
120 | our $subdir; |
118 | our $dir; |
121 | our $dir; |