bandali(.fa).txt: link to atom and rss feeds

[~bandali/bndl.org] / txt2pre

diff --git a/txt2pre b/txt2pre
index 49bd164..1f04eb4 100644 (file)
--- a/txt2pre
+++ b/txt2pre
@@ -200,6 +200,7 @@ $title .= " — $author" if $title !~ /$author/;
 my ($upd, $pub, $url) = $txt =~ /(.*)\r?\n(.*)\r?\n(.*)\r?\n?\z/;
 ($upd) = $upd =~ /(?:updated|ویرایش): (.*)/ if $upd;
 ($pub) = $pub =~ /(?:published|انتشار): (.*)/ if $pub;
 my ($upd, $pub, $url) = $txt =~ /(.*)\r?\n(.*)\r?\n(.*)\r?\n?\z/;
 ($upd) = $upd =~ /(?:updated|ویرایش): (.*)/ if $upd;
 ($pub) = $pub =~ /(?:published|انتشار): (.*)/ if $pub;

+$upd = $pub if (!$upd);

 ($url) = $url =~ /(?:plain text|متن ساده): (.*)/ if $url;
 $url = 'https://bndl.org/bandali-cv.txt'
     if (!$url and $title =~ /curriculum vitae/);
 ($url) = $url =~ /(?:plain text|متن ساده): (.*)/ if $url;
 $url = 'https://bndl.org/bandali-cv.txt'
     if (!$url and $title =~ /curriculum vitae/);


@@ -272,7 +273,7 @@ qq(<link href="$url" rel="alternate" type="text/plain" />
 <link>$url_html</link>
 <guid isPermaLink="false">$note_id</guid>
 <pubDate>$pub_rfc5322</pubDate>\n)
 <link>$url_html</link>
 <guid isPermaLink="false">$note_id</guid>
 <pubDate>$pub_rfc5322</pubDate>\n)

-. ($updated ? $updated : '') .
+. (($updated and $pub ne $upd) ? $updated : '') .

 qq(<content:encoded><![CDATA[<pre>)
         : '';
 }
 qq(<content:encoded><![CDATA[<pre>)
         : '';
 }