diff options
author | Daniel Stenberg <daniel@haxx.se> | 2005-04-10 22:38:40 +0000 |
---|---|---|
committer | Daniel Stenberg <daniel@haxx.se> | 2005-04-10 22:38:40 +0000 |
commit | dd78f8581e13a78a295320b8b3deef104603d3d0 (patch) | |
tree | aca42293b8c63e6f8c70ab29cedab7f5fa0a6a93 /www/digest/rssify.pl | |
parent | c194fab1624a417c374f1702e8b5dbd5100bee83 (diff) | |
download | rockbox-dd78f8581e13a78a295320b8b3deef104603d3d0.tar.gz rockbox-dd78f8581e13a78a295320b8b3deef104603d3d0.zip |
these are old and tired, but...
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@6266 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'www/digest/rssify.pl')
-rwxr-xr-x | www/digest/rssify.pl | 32 |
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 @@ | |||
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 | } | ||