dd78f8581e
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@6266 a1c6a512-1295-4272-9138-f99709370657
32 lines
562 B
Perl
Executable file
32 lines
562 B
Perl
Executable file
#!/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;
|
|
}
|
|
|
|
}
|
|
}
|