rockbox/www/digest/rssify.pl

33 lines
562 B
Perl
Raw Normal View History

#!/usr/bin/perl
my $fill = "RRREEEPPP";
my $end++;
while(<STDIN>) {
my $line = $_;
# $line =~ s/ZAGOR/Bj<42>rn Stenberg/g;
$line =~ s/<2F>/\&Ouml;/g;
$line =~ s/<2F>/\&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;
}
}
}