1 files changed, 32 insertions, 0 deletions

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;
+        }
+
+    }
+}