forked from github/kensanata.oddmuse
102 lines
3.6 KiB
Raku
102 lines
3.6 KiB
Raku
# Copyright (C) 2004 Alex Schroeder <alex@emacswiki.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 2 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, write to the
|
|
# Free Software Foundation, Inc.
|
|
# 59 Temple Place, Suite 330
|
|
# Boston, MA 02111-1307 USA
|
|
|
|
$ModulesDescription .= '<p>$Id: atom.pl,v 1.6 2004/08/16 01:46:39 as Exp $</p>';
|
|
|
|
$Action{atom} = \&DoAtom;
|
|
|
|
sub DoAtom {
|
|
print GetHttpHeader('application/xml');
|
|
DoRc(\&GetRcAtom);
|
|
}
|
|
|
|
sub AtomTime {
|
|
my ($sec, $min, $hour, $mday, $mon, $year) = gmtime(shift);
|
|
return sprintf( "%4d-%02d-%02dT%02d:%02dZ",
|
|
$year+1900, $mon+1, $mday, $hour, $min);
|
|
}
|
|
|
|
sub AtomTag {
|
|
my ($tag, $value, $escaped) = @_;
|
|
return '' unless $value;
|
|
if ($escaped) {
|
|
return "<$tag mode=\"escaped\">$value</$tag>\n";
|
|
} else {
|
|
return "<$tag>$value</$tag>\n";
|
|
}
|
|
}
|
|
|
|
sub GetRcAtom {
|
|
# from http://www.ietf.org/internet-drafts/draft-ietf-atompub-format-01.txt
|
|
print <<EOT;
|
|
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
|
<?xml-stylesheet href="http://www.blogger.com/styles/atom.css" type="text/css"?>
|
|
<feed version="0.3" xmlns="http://purl.org/atom/ns#">
|
|
EOT
|
|
my $title = $SiteName;
|
|
my $link = $ScriptName;
|
|
print AtomTag('title', QuoteHtml($title), 1);
|
|
print "<link href=\"$link\" rel=\"alternate\" title=\"$title\" type=\"text/html\"/>\n";
|
|
print AtomTag('author', AtomTag('name', $RssPublisher)) if $RssPublisher;
|
|
print AtomTag('contributor', AtomTag('name', $RssContributor)) if $RssContributor;
|
|
print "<generator url=\"http://www.oddmuse.org/\">Oddmuse</generator>\n";
|
|
print AtomTag('copyright', QuoteHtml($RssRights), 1) if $RssRights;
|
|
print <<EOT;
|
|
<info mode="xml" type="text/html">
|
|
<div xmlns="http://www.w3.org/1999/xhtml">This is an Atom formatted XML site feed. It is intended to be viewed in a Newsreader or syndicated to another site.</div>
|
|
</info>
|
|
EOT
|
|
print AtomTag('modified', AtomTime($LastUpdate));
|
|
my @excluded = ();
|
|
if (GetParam('exclude', 1)) {
|
|
foreach (split(/\n/, GetPageContent($RssExclude))) {
|
|
if (/^ ([^ ]+)[ \t]*$/) { # only read lines with one word after one space
|
|
push(@excluded, $1);
|
|
}
|
|
}
|
|
}
|
|
GetRc(sub {},
|
|
sub {
|
|
my ($pagename, $timestamp, $host, $userName, $summary, $minor, $revision, $languages, $cluster) = @_;
|
|
return if grep(/$pagename/, @excluded);
|
|
my $title = FreeToNormal($pagename);
|
|
$title =~ s/_/ /g;
|
|
my $link = $ScriptName . ($UsePathInfo ? '/' : '?') . UrlEncode($pagename);
|
|
my $author = $userName;
|
|
$author = $host unless $author;
|
|
# output
|
|
print "<entry>\n",
|
|
AtomTag('title', QuoteHtml($title), 1),
|
|
"<link href=\"$link\" rel=\"alternate\" title=\"$title\" type=\"text/html\"/>\n",
|
|
"<id>$link</id>\n",
|
|
AtomTag('author', AtomTag('name', $author)),
|
|
AtomTag('modified', AtomTime($timestamp)),
|
|
AtomTag('issued', AtomTime($timestamp)),
|
|
AtomTag('summary', QuoteHtml($summary), 1);
|
|
print '<content type="application/xhtml+xml">', "\n",
|
|
'<div xmlns="http://www.w3.org/1999/xhtml">', "\n";
|
|
OpenPage($pagename);
|
|
PrintPageDiff();
|
|
PrintPageHtml();
|
|
print "\n</div>\n</content>\n</entry>\n";
|
|
},
|
|
@_);
|
|
print "</feed>\n";
|
|
return '';
|
|
}
|