diff options
Diffstat (limited to 'www/digest/rssify.pl')
-rwxr-xr-x | www/digest/rssify.pl | 32 |
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 | |||
3 | my $fill = "RRREEEPPP"; | ||
4 | |||
5 | my $end++; | ||
6 | |||
7 | while(<STDIN>) { | ||
8 | my $line = $_; | ||
9 | |||
10 | # $line =~ s/ZAGOR/Björn Stenberg/g; | ||
11 | |||
12 | $line =~ s/Ö/\Ö/g; | ||
13 | $line =~ s/ö/\ö/g; | ||
14 | $line =~ s/</\</g; | ||
15 | $line =~ s/>/\>/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/&/\&/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 | } | ||