diff options
| author | Björn Stenberg <bjorn@haxx.se> | 2007-01-08 23:52:01 +0000 |
|---|---|---|
| committer | Björn Stenberg <bjorn@haxx.se> | 2007-01-08 23:52:01 +0000 |
| commit | 6d4c19707ef95942e323cbdc89fbbfdbe45e7cc5 (patch) | |
| tree | d11bbebc69df06d60970d05b4816e13d93602f2d /www/digest/rssify.pl | |
| parent | 8cece5a745f30234bfced4becfd9dfe4ca1047d4 (diff) | |
| download | rockbox-6d4c19707ef95942e323cbdc89fbbfdbe45e7cc5.zip rockbox-6d4c19707ef95942e323cbdc89fbbfdbe45e7cc5.tar.gz rockbox-6d4c19707ef95942e323cbdc89fbbfdbe45e7cc5.tar.bz2 rockbox-6d4c19707ef95942e323cbdc89fbbfdbe45e7cc5.tar.xz | |
Splitting out www
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@11952 a1c6a512-1295-4272-9138-f99709370657
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 ba6fca7..0000000 --- a/www/digest/rssify.pl +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/perl - -my $fill = "RRREEEPPP"; - -my $end++; - -while(<STDIN>) { - my $line = $_; - -# $line =~ s/ZAGOR/Björn Stenberg/g; - - $line =~ s/Ö/\Ö/g; - $line =~ s/ö/\ö/g; - $line =~ s/</\</g; - $line =~ s/>/\>/g; - - if($line =~ s/(LINK\((\"([^\"]*)\"))/$fill/) { - my $url = $2; - $url =~ s/@/\#%40;/g; - $url =~ s/=/\#%3D;/g; - $url =~ s/&/\&/g; - $line =~ s/$fill/LINK\($url/; - } - print $line; - - if($line =~ /^ *ENDDATE/) { - if($end++ == 15) { - last; - } - - } -} |