|
|
@@ -1,6 +1,6 @@
|
|
|
Index: leo
|
|
|
---- leo.orig 2005-04-18 12:46:37 +0200
|
|
|
-+++ leo 2005-08-28 22:04:45 +0200
|
|
|
+--- leo.orig 2006-04-04 11:13:02 +0200
|
|
|
++++ leo 2006-04-04 19:03:11 +0200
|
|
|
@@ -34,8 +34,8 @@
|
|
|
#
|
|
|
my $highlight = 1;
|
|
|
@@ -12,9 +12,9 @@ Index: leo
|
|
|
|
|
|
my $ip = "dict.leo.org";
|
|
|
my $port = "80";
|
|
|
-@@ -397,6 +397,9 @@
|
|
|
- # remove match hint, we are counting ourselfes
|
|
|
- $site =~ s/\d+?\s*treffer//i;
|
|
|
+@@ -400,6 +400,9 @@
|
|
|
+ # remove javascript links
|
|
|
+ $site =~ s/<a onclick[^>]*>//gsi;
|
|
|
|
|
|
+ # remove sub/super-script word annotations
|
|
|
+ $site =~ s/<(sub|sup)>.*?<\/\1>//gsi;
|
|
|
@@ -22,7 +22,7 @@ Index: leo
|
|
|
# make single line per entry
|
|
|
my @segments = split /<\/TR>\s*<TR>/i, $site;
|
|
|
my $progress;
|
|
|
-@@ -511,18 +514,13 @@
|
|
|
+@@ -518,18 +521,13 @@
|
|
|
# dict entry
|
|
|
$entry->{left} =~ s/^(.*)$/$1 . " " x ($maxsize - length($1))/e;
|
|
|
if ($highlight) {
|
|
|
@@ -37,8 +37,8 @@ Index: leo
|
|
|
|
|
|
-print "$copy_c" if $highlight;
|
|
|
-print "\n Fetched by leo $version via http://dict.leo.org/";
|
|
|
--print "\n Copyright © LEO Dictionary Team 1995-2005";
|
|
|
--print "\n [leo] GPL Copyleft © Thomas Linden 2000-2005\n\n";
|
|
|
+-print "\n Copyright © LEO Dictionary Team 1995-2006";
|
|
|
+-print "\n [leo] GPL Copyleft © Thomas Linden 2000-2006\n\n";
|
|
|
-print "$default_c" if $highlight;
|
|
|
|
|
|
|
