| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546 |
- Index: leo
- --- leo.orig 2006-04-04 11:13:02 +0200
- +++ leo 2006-04-04 19:03:11 +0200
- @@ -34,8 +34,8 @@
- #
- my $highlight = 1;
- my $default_c = "\033[0m"; # reset default terminal color
- -my $bold_c = "\033[0;34m"; # blue color
- -my $copy_c = "\033[0;35m"; # copyright message color (green)
- +my $bold_c = "\033[0;1m"; # bold text
- +my $blue_c = "\033[0;34m"; # blue color
-
- my $ip = "dict.leo.org";
- my $port = "80";
- @@ -400,6 +400,9 @@
- # remove javascript links
- $site =~ s/<a onclick[^>]*>//gsi;
-
- + # remove sub/super-script word annotations
- + $site =~ s/<(sub|sup)>.*?<\/\1>//gsi;
- +
- # make single line per entry
- my @segments = split /<\/TR>\s*<TR>/i, $site;
- my $progress;
- @@ -518,18 +521,13 @@
- # dict entry
- $entry->{left} =~ s/^(.*)$/$1 . " " x ($maxsize - length($1))/e;
- if ($highlight) {
- - $entry->{left} =~ s/(\Q$string\E)/$bold_c . $1 . $default_c/ei;
- - $entry->{right} =~ s/(\Q$string\E)/$bold_c . $1 . $default_c/ei;
- + $entry->{left} =~ s/(\Q$string\E)/$blue_c . $1 . $default_c/ei;
- + $entry->{right} =~ s/(\Q$string\E)/$blue_c . $1 . $default_c/ei;
- }
- print $entry->{left} . $entry->{right} . "\n";
- }
- }
-
- -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 "$default_c" if $highlight;
-
-
-
|
