brmlab/brmdoor
4
0
Fork 0
mirror of https://github.com/brmlab/brmdoor.git synced 2025-06-08 11:44:01 +02:00
Code Issues Projects Releases Packages Wiki Activity

rework answer

Browse source
This commit is contained in:
Pavol Rusnak 2011-06-22 18:11:20 +02:00
parent fdac0b1044
commit db22869e4e
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
brmd/brmd.pl
View file

@ -546,7 +546,6 @@ sub irc_public {
}
if ( my ($alpha) = $what =~ /^!alpha (.+)/ ) {
my $answer = '';
my $wa = WWW::WolframAlpha->new ( appid => 'P6XPHG-URK5HXVWXL', );
my $query = $wa->query( input => $alpha, );
if ($query->success) {
@ -554,15 +553,16 @@ sub irc_public {
if (!$pod->error) {
foreach my $subpod (@{$pod->subpods}) {
if ($subpod->plaintext) {
my $answer = '';
$answer .= ($pod->title . ': ') if $pod->title;
$answer .= ($subpod->title . ': ') if $subpod->title;
$answer .= ($subpod->plaintext . "\n");
$answer .= $subpod->plaintext;
$irc->yield( privmsg => $channel => $answer );
}
}
}
}
}
$irc->yield( privmsg => $channel => $answer ) if $answer;
}
}