scip/leo
1
0
Fork 0
mirror of https://codeberg.org/scip/leo.git synced 2025-12-17 04:31:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed http404, updated copylefts

Browse Source
This commit is contained in:
TLINDEN
2016-01-27 00:09:16 +01:00
parent ca33f77d0f
commit cf76532303
4 changed files with 26 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
Org.pm
View File

@@ -1,13 +1,13 @@
# #
# Copyleft (l) 2000-2014 Thomas Linden <tom@daemon.de>. # Copyleft (l) 2000-2016 Thomas v.D. <tlinden@cpan.org>.
# 2014 Thomas von Dein <tom@vondein.org>. #
# leo may be # leo may be
# used and distributed under the terms of the GNU General Public License. # used and distributed under the terms of the GNU General Public License.
# All other brand and product names are trademarks, registered trademarks # All other brand and product names are trademarks, registered trademarks
# or service marks of their respective holders. # or service marks of their respective holders.
package WWW::Dict::Leo::Org; package WWW::Dict::Leo::Org;
$WWW::Dict::Leo::Org::VERSION = 1.39; $WWW::Dict::Leo::Org::VERSION = 1.40;
use strict; use strict;
use warnings; use warnings;
@@ -211,20 +211,18 @@ Accept-Language: en_US, en\r\n);
croak "proxy auth required or access denied!\n"; croak "proxy auth required or access denied!\n";
} }
else { else {
croak "got HTTP error $err!\n"; if ($site =~ /Leider konnten wir zu Ihrem Suchbegriff/ ||
$site =~ /found no matches for your search/
) {
return ();
}
else {
croak "got HTTP error $err!\n";
}
} }
} }
} }
if ($site =~ /produced\s+no\s+results\s+for\s+the\s+selected/
|| $site =~ /Die\s+Suche\s+nach.*lieferte\skeine/) {
return ();
}
#$site =~ s/(<table[^>]*>)/\n$1\n/g;
#$site =~ s/(<\/table[^>]*>)/\n$1\n/g;
#print $site;
my @request = ( my @request = (
{ {
id => 2, id => 2,
@@ -526,16 +524,14 @@ L<leo>
=head1 COPYRIGHT =head1 COPYRIGHT
WWW::Dict::Leo::Org - WWW::Dict::Leo::Org - Copyright (c) 2007-2016 by Thomas v.D.
Copyright (c) 2007-2014 by Thomas Linden
Copyright (c) 2014 by Thomas von Dein
L<http://dict.leo.org/> - L<http://dict.leo.org/> -
Copyright (c) 1995-2014 LEO Dictionary Team. Copyright (c) 1995-2016 LEO Dictionary Team.
=head1 AUTHOR =head1 AUTHOR
Thomas Linden <tlinden@cpan.org> Thomas v.D. <tlinden@cpan.org>
=head1 HOW TO REPORT BUGS =head1 HOW TO REPORT BUGS
@@ -545,6 +541,6 @@ Please don't forget to add debugging output!
=head1 VERSION =head1 VERSION
1.39 1.40
=cut =cut

10
README
View File

@@ -36,17 +36,13 @@ HISTORY
COPYRIGHT COPYRIGHT
WWW::Dict::Leo::Org WWW::Dict::Leo::Org + leo
Copyright (c) 2007-2014 by Thomas Linden <tom@daemon.de> Copyright (c) 2007-2016 by Thomas v.D. <tlinden@cpan.org>
leo
Copyright (c) 2000-2014 by Thomas Linden <tom@daemon.de>
http://dict.leo.org/ http://dict.leo.org/
Copyright (c) 1995-2014 LEO Dictionary Team. Copyright (c) 1995-2016 LEO Dictionary Team.
The search results returned by leo are based on the work of the people The search results returned by leo are based on the work of the people
at LEO.org. Thanks for the great work. at LEO.org. Thanks for the great work.
Thomas Linden.

14
leo
View File

@@ -10,12 +10,12 @@
# #
# $Id: leo,v 1.33 2008/04/22 22:23:39 scip Exp $ # $Id: leo,v 1.33 2008/04/22 22:23:39 scip Exp $
# #
# Copyleft (l) 2000-2014 by Thomas Linden <tom@daemon.de>. leo may be # Copyleft (l) 2000-2016 by Thomas v.D. <tlinden@cpan.org>. leo may be
# used and distributed under the terms of the GNU General Public License. # used and distributed under the terms of the GNU General Public License.
# All other brand and product names are trademarks, registered trademarks # All other brand and product names are trademarks, registered trademarks
# or service marks of their respective holders. # or service marks of their respective holders.
use lib qw(blib/lib); #use lib qw(blib/lib);
#use Org; #use Org;
use utf8; use utf8;
@@ -298,8 +298,8 @@ foreach my $section (@match) {
print "$copy_c" if $highlight; print "$copy_c" if $highlight;
print "\n Fetched by leo $version via http://dict.leo.org/"; print "\n Fetched by leo $version via http://dict.leo.org/";
print "\n Copyright (C) LEO Dictionary Team 1995-2014"; print "\n Copyright (C) LEO Dictionary Team 1995-2016";
print "\n [leo] GPL Copyleft Thomas Linden 2000-2014\n\n"; print "\n [leo] GPL Copyleft Thomas v.D. 2000-2016\n\n";
print "$default_c" if $highlight; print "$default_c" if $highlight;
@@ -589,7 +589,7 @@ the password will be read from STDIN.
=head1 AUTHOR =head1 AUTHOR
Thomas Linden <tom@daemon.de>. Thomas v.D. <tlinden@cpan.org>
=head1 BUGS =head1 BUGS
@@ -607,9 +607,9 @@ to me, thanks.
=head1 COPYRIGHT =head1 COPYRIGHT
B<leo> copyleft 2000-2014 Thomas Linden. All rights reserved. B<leo> copyleft 2000-2016 Thomas v.D.. All rights reserved.
http://dict.leo.org/ copyright (c) 1995-2014 LEO Dictionary Team. http://dict.leo.org/ copyright (c) 1995-2016 LEO Dictionary Team.
The search results returned by B<leo> are based on the work The search results returned by B<leo> are based on the work

2
t/run.t
View File

@@ -1,5 +1,5 @@
# -*-perl-*- # -*-perl-*-
# testscript for WWW::Dict::Leo::Org Class by Thomas Linden # testscript for WWW::Dict::Leo::Org Class by Thomas v.D.
use Test::More qw(no_plan); use Test::More qw(no_plan);