[FFmpeg-devel] [PATCH 5/5] web/rss: Write tag item/pubDate

[Alexander Strasser]

Signed-off-by: Alexander Strasser <eclipse7 at gmx.net>
---
 gen-rss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gen-rss b/gen-rss
index c686c58..6894147 100755
--- a/gen-rss
+++ b/gen-rss
@@ -2,6 +2,7 @@
 
 use strict;
 use warnings;
+use Time::Piece;
 
 print '<?xml version="1.0" encoding="UTF-8" ?>
 <rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom" xmlns:content="http://purl.org/rss/1.0/modules/content/">
@@ -18,10 +19,13 @@ while (<>) {
   if (m{<a *id="(.*)" *> *</a> *<h3>(.*20..), *(.*)</h3>}) {
     $do_print = 1;
     my ($id, $date, $title) = ($1, $2, $3);
+    my $time = Time::Piece->strptime($date, "%B %d, %Y");
+    my $tag_pubDate = $time->strftime("\n        <pubDate>%a, %d %b %Y %H:%M:%S +0000</pubDate>");
+
     $_ = "$closing_tags    <item>
         <title>$date, $title</title>
         <link>http://ffmpeg.org/index.html#$id</link>
-        <guid>http://ffmpeg.org/index.html#$id</guid>
+        <guid>http://ffmpeg.org/index.html#$id</guid>$tag_pubDate
         <description>$title</description>
         <content:encoded><![CDATA[
 ";
--