archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

(DoJournalRss): Handle past and future

Browse Source 
keywords.
This commit is contained in:
Alex Schroeder
2006-10-06 09:54:39 +00:00
parent e581a74c5c
commit bb50e9f95a
1 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
modules/journal-rss.pl
View File

@@ -16,7 +16,7 @@
# 59 Temple Place, Suite 330
# Boston, MA 02111-1307 USA
$ModulesDescription .= '<p>$Id: journal-rss.pl,v 1.7 2005/07/20 20:05:51 as Exp $</p>';
$ModulesDescription .= '<p>$Id: journal-rss.pl,v 1.8 2006/10/06 09:54:39 as Exp $</p>';
$Action{journal} = \&DoJournalRss;
@@ -41,6 +41,25 @@ sub DoJournalRss {
if ($reverse) {
@pages = reverse @pages;
}
if ($mode eq 'reverse' or $mode eq 'future') {
@pages = reverse @pages;
}
my $today = CalcDay($Now);
if ($mode eq 'future') {
for (my $i = 0; $i < @pages; $i++) {
if ($pages[$i] gt $today) {
@pages = @pages[$i..$#pages];
last;
}
}
} elsif ($mode eq 'past') {
for (my $i = 0; $i < @pages; $i++) {
if ($pages[$i] lt $today) {
@pages = @pages[$i..$#pages];
last;
}
}
}
# Generate artifical rows in the list to pass to GetRcRss. We need
# to open every single page, because the meta-data ordinarily
# available in the rc.log file is not available to us. This is why