changed detection of disambiguation
This commit is contained in:
parent
69c7528883
commit
54ff27a516
1 changed files with 2 additions and 2 deletions
4
wiki.pl
4
wiki.pl
|
@ -44,11 +44,11 @@ if ($url !~ m/Special:Search/) {
|
||||||
my $table = $res->{'table'};
|
my $table = $res->{'table'};
|
||||||
my $isDis = 0;
|
my $isDis = 0;
|
||||||
|
|
||||||
if ($$table[1] !~ m/$ARGV[0]/i && $#$table == 1) {
|
if ($#$table > 0) {
|
||||||
foreach (@$img) {
|
foreach (@$img) {
|
||||||
#print "$_\n";
|
#print "$_\n";
|
||||||
# if ($_ =~ m/^http:\/\/upload\.wikimedia\.org\/wikipedia\/commons\/thumb\/.*\/.*\/Disambig/) {
|
# if ($_ =~ m/^http:\/\/upload\.wikimedia\.org\/wikipedia\/commons\/thumb\/.*\/.*\/Disambig/) {
|
||||||
if ($_ =~ m/Disambig/) {
|
if ($_ =~ m/Disambig/i) {
|
||||||
$isDis = 1;
|
$isDis = 1;
|
||||||
last;
|
last;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue