summaryrefslogtreecommitdiff
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, 0 insertions, 32 deletions
diff --git a/www/digest/rssify.pl b/www/digest/rssify.pl
deleted file mode 100755
index ba6fca7d8b..0000000000
--- a/www/digest/rssify.pl
+++ /dev/null
@@ -1,32 +0,0 @@
1#!/usr/bin/perl
2
3my $fill = "RRREEEPPP";
4
5my $end++;
6
7while(<STDIN>) {
8 my $line = $_;
9
10# $line =~ s/ZAGOR/Björn Stenberg/g;
11
12 $line =~ s/Ö/\&Ouml;/g;
13 $line =~ s/ö/\&ouml;/g;
14 $line =~ s/</\&lt;/g;
15 $line =~ s/>/\&gt;/g;
16
17 if($line =~ s/(LINK\((\"([^\"]*)\"))/$fill/) {
18 my $url = $2;
19 $url =~ s/@/\#%40;/g;
20 $url =~ s/=/\#%3D;/g;
21 $url =~ s/&/\&amp;/g;
22 $line =~ s/$fill/LINK\($url/;
23 }
24 print $line;
25
26 if($line =~ /^ *ENDDATE/) {
27 if($end++ == 15) {
28 last;
29 }
30
31 }
32}