devs/foxbox
1
0
Fork 0
forked from len0rd/rockbox
Code Pull requests Activity

these are old and tired, but...

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@6266 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Daniel Stenberg 2005-04-10 22:38:40 +00:00
parent c194fab162
commit dd78f8581e
8 changed files with 435 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

32
www/digest/rssify.pl Executable file
View file

@ -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;
}
}
}