forked from github/kensanata.oddmuse
1c4e082755
sub ParseData is fully backwards compatible. If some module runs it in list context, then it will get listified hash like previously. New code should always run it in scalar context though (everything in our code base was changed according to that). sub GetTextRevision is not backwards compatible (don't let “wantarray” usage to confuse you). Most modules do not touch that subroutine, so we are probably fine (modules from our git repo that do use were changed accordingly). “EncodePage(%$page)” looks wrong. It seems like we should change it to accept hash ref.
76 lines
2.6 KiB
Perl
76 lines
2.6 KiB
Perl
# Copyright (C) 2007 Alex Schroeder <alex@gnu.org>
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
use strict;
|
|
use v5.10;
|
|
|
|
AddModuleDescription('enclosure.pl', 'Podcasting');
|
|
|
|
our (%Page, %IndexHash, @MyRules, $FreeLinkPattern);
|
|
our (@Enclosures);
|
|
|
|
push(@MyRules, \&EnclosureRule);
|
|
|
|
# [[enclosure:page name]]
|
|
# [[enclosure:page name|alt text]]
|
|
# [[enclosure:url|size in bytes|mime type]]
|
|
|
|
sub EnclosureRule {
|
|
if (m!\G\[\[enclosure:\s*$FreeLinkPattern(\|([^\]]+))?\]\]!cgi) {
|
|
my $id = FreeToNormal($1);
|
|
# Make sure we don't add duplicates; we will add non-existing
|
|
# enclosures as well. We test for existence only when the RSS feed
|
|
# is being produced.
|
|
my %enclosures = map { $_ => 1 } split(' ', $Page{enclosures});
|
|
$enclosures{$id} = 1;
|
|
$Page{enclosures} = join(' ', keys %enclosures);
|
|
return GetDownloadLink($id, undef, undef, $3);
|
|
}
|
|
return;
|
|
}
|
|
|
|
*OldEnclosurePrintWikiToHTML = \&PrintWikiToHTML;
|
|
*PrintWikiToHTML = \&NewEnclosurePrintWikiToHTML;
|
|
|
|
sub NewEnclosurePrintWikiToHTML {
|
|
$Page{enclosures} = '';
|
|
return OldEnclosurePrintWikiToHTML(@_);
|
|
}
|
|
|
|
*OldEnclosureRssItem = \&RssItem;
|
|
*RssItem = \&NewEnclosureRssItem;
|
|
|
|
sub NewEnclosureRssItem {
|
|
my $id = shift;
|
|
my $rss = OldEnclosureRssItem($id, @_);
|
|
require MIME::Base64;
|
|
my $data = ParseData(ReadFileOrDie(GetPageFile($id)));
|
|
my @enclosures = split(' ', $data->{enclosures});
|
|
my $enclosures = '';
|
|
foreach my $enclosure (@enclosures) {
|
|
# Don't add the enclosure if the page has been deleted in the mean
|
|
# time (or never existed in the first place).
|
|
next unless $IndexHash{$enclosure};
|
|
my $url = GetDownloadLink($enclosure, 2); # just the URL
|
|
my %item = ParseData(ReadFileOrDie(GetPageFile($enclosure)));
|
|
my ($type) = TextIsFile($item{text});
|
|
my ($data) = $item{text} =~ /^[^\n]*\n(.*)/s;
|
|
my $size = length(MIME::Base64::decode($data));
|
|
$enclosures .= qq{<enclosure url="$url" length="$size" type="$type" />\n};
|
|
}
|
|
$rss =~ s!</item>$!$enclosures</item>! if $enclosures;
|
|
return $rss;
|
|
}
|