% use Time::Piece;
<?xml version="1.0" encoding="utf-8" ?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
    <channel>
        <title>UNIX.dog Announcements</title>
        <link>https://unix.dog/announcements</link>
        <atom:link href="https://unix.dog/announcements.rss" rel="self" type="application/rss+xml"/>
        <description>UNIX.dog Announcements</description>
        <language>en-us</language>
        <image>
            <title>UNIX.dog Announcements</title>
            <url>https://unix.dog/favicon.ico</url>
            <link>https://unix.dog/announcements</link>
        </image>
        % foreach my $item (@$items) {
            <item>
                <title><![CDATA[<%= $item->{'title'} %>]]></title>
                <link>https://unix.dog/announcement/<%= $item->{'filename'} %></link>
                <guid isPermaLink="true">https://unix.dog/announcement/<%= $item->{'filename'} %></guid>
                <description><![CDATA[<%== $item->{'text'} %>]]></description>
                <author>Alpha</author>
                <pubDate><%= localtime($item->{'date'})->strftime("%a, %d %b %Y %H:%M:%S %z") %></pubDate>
            </item>
        % }
    </channel>
</rss>