|
|
@@ -1,6 +1,6 @@
|
|
|
Index: leo
|
|
|
---- leo.orig 2006-04-04 11:13:02 +0200
|
|
|
-+++ leo 2006-12-04 19:51:10 +0100
|
|
|
+--- leo.orig 2007-02-14 09:20:42 +0100
|
|
|
++++ leo 2007-02-14 20:03:04 +0100
|
|
|
@@ -34,8 +34,8 @@
|
|
|
#
|
|
|
my $highlight = 1;
|
|
|
@@ -12,16 +12,7 @@ Index: leo
|
|
|
|
|
|
my $ip = "dict.leo.org";
|
|
|
my $port = "80";
|
|
|
-@@ -295,7 +295,7 @@
|
|
|
- "$conf{user_agent}
|
|
|
- Host: $ghost
|
|
|
- Accept: text/*;q=1.0, image/png;q=1.0, image/jpeg;q=1.0, image/gif;q=1.0, image/*;q=0.8, */*;q=0.5
|
|
|
--Accept-Encoding: x-gzip; q=1.0, gzip; q=1.0, identity
|
|
|
-+Accept-Encoding: identity
|
|
|
- Accept-Charset: iso-8859-1;q=1.0, *;q=0.9, utf-8;q=0.8
|
|
|
- Accept-Language: en_US, en\r\n";
|
|
|
-
|
|
|
-@@ -400,6 +400,9 @@
|
|
|
+@@ -399,6 +399,9 @@
|
|
|
# remove javascript links
|
|
|
$site =~ s/<a onclick[^>]*>//gsi;
|
|
|
|
|
|
@@ -31,7 +22,7 @@ Index: leo
|
|
|
# make single line per entry
|
|
|
my @segments = split /<\/TR>\s*<TR>/i, $site;
|
|
|
my $progress;
|
|
|
-@@ -518,18 +521,13 @@
|
|
|
+@@ -517,18 +520,13 @@
|
|
|
# dict entry
|
|
|
$entry->{left} =~ s/^(.*)$/$1 . " " x ($maxsize - length($1))/e;
|
|
|
if ($highlight) {
|
|
|
@@ -46,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-2006";
|
|
|
--print "\n [leo] GPL Copyleft © Thomas Linden 2000-2006\n\n";
|
|
|
+-print "\n Copyright © LEO Dictionary Team 1995-2007";
|
|
|
+-print "\n [leo] GPL Copyleft © Thomas Linden 2000-2007\n\n";
|
|
|
-print "$default_c" if $highlight;
|
|
|
|
|
|
|
