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

Comparing deliantra/www/generate (file contents):
Revision 1.31 by elmex, Wed Apr 28 05:44:37 2010 UTC vs.
Revision 1.32 by elmex, Wed Apr 28 06:06:55 2010 UTC

… …
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$PodRSS::max_cnt = 20;
28$html = join '', $pom->present ("PodRSS"); 29$html = join '', $pom->present ("PodRSS");
29open FH, ">", "src/news.rss" or die "src/news.rss: $!"; 30open FH, ">", "src/news.rss" or die "src/news.rss: $!";
30print FH $html; 31print FH $html;
31close FH; 32close FH;
32 33
… …
50 51
51use strict; 52use strict;
52use warnings; 53use warnings;
53use utf8; 54use utf8;
54 55
55my $rcsid = '$Id: generate,v 1.31 2010/04/28 05:44:37 elmex Exp $'; 56my $rcsid = '$Id: generate,v 1.32 2010/04/28 06:06:55 elmex Exp $';
56 57
57use base "Pod::POM::View"; 58use base "Pod::POM::View";
58 59
59our $subdir; 60our $subdir;
60our $dir; 61our $dir;
… …
86 $str 87 $str
87} 88}
88 89
89sub view_textblock { 90sub view_textblock {
90 my ($self, $item) = @_; 91 my ($self, $item) = @_;
91 "<p class=\"news_item\">$item</p>\n" 92 "<p class=\"news_item\">\n$item\n</p>\n"
92} 93}
93 94
94sub view_seq_bold { 95sub view_seq_bold {
95 my ($self, $item) = @_; 96 my ($self, $item) = @_;
96 "<b>$item</b>" 97 "<b>$item</b>"
… …
120use utf8; 121use utf8;
121 122
122use base "Pod::POM::View"; 123use base "Pod::POM::View";
123 124
124our %metadata; 125our %metadata;
126our $max_cnt;
125 127
126sub view_pod { 128sub view_pod {
127 my ($self, $item) = @_; 129 my ($self, $item) = @_;
128 "<?xml version='1.0' encoding='utf-8'?>\n" 130 "<?xml version='1.0' encoding='utf-8'?>\n"
129 . "<rss version='2.0'>\n" 131 . "<rss version='2.0'>\n"
… …
131 . "</rss>\n" 133 . "</rss>\n"
132} 134}
133 135
134sub view_head1 { 136sub view_head1 {
135 my ($self, $item) = @_; 137 my ($self, $item) = @_;
136 my $title = $item->title->present ($self);
137 " <channel>\n" 138 " <channel>\n"
138 . " <link>$metadata{link}</link>\n" 139 . " <link>$metadata{link}</link>\n"
139 . " <language>$metadata{language}</language>\n" 140 . " <language>$metadata{language}</language>\n"
140 . " <title>$title</title>\n" 141 . " <title>" . $item->title->present ($self) . "</title>\n"
141 . $item->content->present ($self) 142 . $item->content->present ($self)
142 . " </channel>\n" 143 . " </channel>\n"
143} 144}
144 145
145sub view_head2 { 146sub view_head2 {
146 my ($self, $item) = @_; 147 my ($self, $item) = @_;
147 my $title = $item->title->present ($self); 148 my $r =
149 $max_cnt-- > 0
148 " <item>\n" 150 ? " <item>\n"
149 . " <title>$title</title>\n" 151 . " <title>" . $item->title->present ($self) . "</title>\n"
150 . " <description>" 152 . " <description>"
151 . $item->content->present ($self) 153 . $item->content->present ($self)
152 . " </description>" 154 . " </description>"
153 . " </item>\n" 155 . " </item>\n"
156 : "";
157 $r
154} 158}
155 159
156sub view_textblock { 160sub view_textblock {
157 my ($self, $item) = @_; 161 my ($self, $item) = @_;
158 " <![CDATA[$item]]>\n" 162 " <![CDATA[$item]]>\n"

Diff Legend

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