From dd78f8581e13a78a295320b8b3deef104603d3d0 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Sun, 10 Apr 2005 22:38:40 +0000
Subject: these are old and tired, but...

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@6266 a1c6a512-1295-4272-9138-f99709370657
---
 www/digest/rssify.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 www/digest/rssify.pl

(limited to 'www/digest/rssify.pl')

diff --git a/www/digest/rssify.pl b/www/digest/rssify.pl
new file mode 100755
index 0000000000..ba6fca7d8b
--- /dev/null
+++ b/www/digest/rssify.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+my $fill = "RRREEEPPP";
+
+my $end++;
+
+while(<STDIN>) {
+    my $line = $_;
+
+#    $line =~ s/ZAGOR/Björn Stenberg/g;
+
+    $line =~ s/Ö/\&Ouml;/g;
+    $line =~ s/ö/\&ouml;/g;
+    $line =~ s/</\&lt;/g;
+    $line =~ s/>/\&gt;/g;
+
+    if($line =~ s/(LINK\((\"([^\"]*)\"))/$fill/) {
+        my $url = $2;
+        $url =~ s/@/\#%40;/g;
+        $url =~ s/=/\#%3D;/g;
+        $url =~ s/&/\&amp;/g;
+        $line =~ s/$fill/LINK\($url/;
+    }
+    print $line;
+
+    if($line =~ /^ *ENDDATE/) {
+        if($end++ == 15) {
+            last;
+        }
+
+    }
+}
-- 
cgit v1.2.3