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

Comparing deliantra/www/generate (file contents):
Revision 1.29 by elmex, Wed Apr 28 05:23:41 2010 UTC vs.
Revision 1.30 by elmex, Wed Apr 28 05:41:31 2010 UTC

… …
11 11
12our $top_news; 12our $top_news;
13 13
14$pom = $parser->parse ("src/news.pod") 14$pom = $parser->parse ("src/news.pod")
15 or die $parser->error; 15 or die $parser->error;
16$html = $pom->present ("PodHTML"); 16$html = join '', $pom->present ("PodHTML");
17$html =~ s/\[/</g; 17$html =~ s/\[/</g;
18$html =~ s/\]/>/g; 18$html =~ s/\]/>/g;
19open FH, ">", "src/news.html.inc" or die "src/news.html.inc: $!"; 19open FH, ">", "src/news.html.inc" or die "src/news.html.inc: $!";
20print FH $html; 20print FH $html;
21close FH; 21close FH;
… …
23open FH, ">", "src/news.top.html.inc" or die "src/news.top.html.inc: $!"; 23open FH, ">", "src/news.top.html.inc" or die "src/news.top.html.inc: $!";
24print FH $top_news; 24print FH $top_news;
25close FH; 25close FH;
26 26
27%PodRSS::metadata = %{ $pom->metadata }; 27%PodRSS::metadata = %{ $pom->metadata };
28$html = $pom->present ("PodRSS"); 28$html = join '', $pom->present ("PodRSS");
29open FH, ">", "src/news.rss" or die "src/news.rss: $!"; 29open FH, ">", "src/news.rss" or die "src/news.rss: $!";
30print FH $html; 30print FH $html;
31close FH; 31close FH;
32 32
33system "rsync -avP src/. html/. --exclude CVS"; 33system "rsync -avP src/. html/. --exclude CVS";
… …
50 50
51use strict; 51use strict;
52use warnings; 52use warnings;
53use utf8; 53use utf8;
54 54
55my $rcsid = '$Id: generate,v 1.29 2010/04/28 05:23:41 elmex Exp $'; 55my $rcsid = '$Id: generate,v 1.30 2010/04/28 05:41:31 elmex Exp $';
56 56
57use base "Pod::POM::View"; 57use base "Pod::POM::View";
58 58
59our $subdir; 59our $subdir;
60our $dir; 60our $dir;
… …
70 $item->content->present ($self) 70 $item->content->present ($self)
71} 71}
72 72
73sub view_head2 { 73sub view_head2 {
74 my ($self, $item) = @_; 74 my ($self, $item) = @_;
75 my @str = ( 75 my $str =
76 "<p><span class=\"date\">", 76 "<span class=\"date\">"
77 $item->title, 77 . $item->title
78 "</span> ", 78 . "</span>\n"
79 $item->content->present ($self), 79 . $item->content->present ($self)
80 "</p>" 80 . "\n\n";
81 );
82 81
83 unless (defined $top_news) { 82 unless (defined $top_news) {
84 $top_news = join '', @str; 83 $top_news = $str
85 } 84 }
86 85
87 @str 86 $str
88} 87}
89 88
90sub view_textblock { 89sub view_textblock {
91 my ($self, $item) = @_; 90 my ($self, $item) = @_;
92 $item, "<br />" 91 "<p>$item</p>\n"
93} 92}
94 93
95sub view_seq_bold { 94sub view_seq_bold {
96 my ($self, $item) = @_; 95 my ($self, $item) = @_;
97 "<b>$item</b>" 96 "<b>$item</b>"
… …
133} 132}
134 133
135sub view_head1 { 134sub view_head1 {
136 my ($self, $item) = @_; 135 my ($self, $item) = @_;
137 my $title = $item->title->present ($self); 136 my $title = $item->title->present ($self);
138 " <channel>\n", 137 " <channel>\n"
139 " <link>$metadata{link}</link>\n", 138 . " <link>$metadata{link}</link>\n"
140 " <language>$metadata{language}</language>\n", 139 . " <language>$metadata{language}</language>\n"
141 " <title>$title</title>\n", 140 . " <title>$title</title>\n"
142 $item->content->present ($self), 141 . $item->content->present ($self)
143 " </channel>\n" 142 . " </channel>\n"
144} 143}
145 144
146sub view_head2 { 145sub view_head2 {
147 my ($self, $item) = @_; 146 my ($self, $item) = @_;
148 my $title = $item->title->present ($self); 147 my $title = $item->title->present ($self);
149 " <item>\n", 148 " <item>\n"
150 " <title>$title</title>\n", 149 . " <title>$title</title>\n"
150 . " <description>"
151 $item->content->present ($self), 151 . $item->content->present ($self)
152 . " </description>"
152 " </item>\n" 153 . " </item>\n"
153} 154}
154 155
155sub view_textblock { 156sub view_textblock {
156 my ($self, $item) = @_; 157 my ($self, $item) = @_;
157 " <description><![CDATA[$item]]></description>\n" 158 " <![CDATA[$item]]>\n"
158} 159}

Diff Legend

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