summaryrefslogtreecommitdiffstats
path: root/www/digest/rssify.pl
diff options
context:
space:
mode:
Diffstat (limited to 'www/digest/rssify.pl')
-rwxr-xr-xwww/digest/rssify.pl32
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;
+ }
+
+ }
+}