archive/eggdrop
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

some more fixes...

Browse source
This commit is contained in:
lookshe 2012-03-07 19:48:54 +01:00
parent f55dfe54e1
commit 4814f77744
1 changed files with 21 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
wiki2.pl
View file

@ -8,14 +8,30 @@ use HTML::StripTags qw(strip_tags);
binmode(STDOUT, ":utf8"); binmode(STDOUT, ":utf8");
my $query = $ARGV[0];
my $lang = $ARGV[1]; my $lang = $ARGV[1];
if (!$lang) { if (!$lang) {
$lang = "de"; $lang = "de";
} }
my $found = 0;
my $result;
my $wiki = WWW::Wikipedia->new( language => $lang); while ($found < 5) {
$found++;
my $result = $wiki->search( "$ARGV[0]" ); my $wiki = WWW::Wikipedia->new( language => $lang);
$result = $wiki->search( "$query" );
if (defined $result) {
my @tmplines = split('\n', $result->text_basic());
if ($#tmplines == 0 && $tmplines[0] =~ m/^#/) {
$query = $tmplines[0];
$query =~ s/^#\w*\s(.*)$/$1/;
} else {
break;
}
} else {
break;
}
}
if (defined $result) { if (defined $result) {
my @lines = split('\n', $result->text_basic()); my @lines = split('\n', $result->text_basic());
my @newlines; my @newlines;
@ -86,8 +102,8 @@ if (defined $result) {
} }
} }
if ($isDis && $lst) { if ($isDis && $lst) {
print "For more see http://$lang.wikipedia.org/wiki/$ARGV[0]\n"; print "For more see http://$lang.wikipedia.org/wiki/$query\n";
} }
} else { } else {
print "No matches with $ARGV[0]\n"; print "No matches with $query\n";
} }