GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-23 04:19:27 +01:00
Code Issues Projects Releases Wiki Activity

Plugins/Wolfram: fix typo in comments

Browse Source
This commit is contained in:
Pragmatic Software 2021-07-06 12:37:50 -07:00
parent c3f1b62006
commit 68e8351a28
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Plugins/Wolfram.pm
View File

@ -18,13 +18,13 @@ use URI::Escape qw/uri_escape_utf8/;
sub initialize {
my ($self, %conf) = @_;
# add default registry entry
# add default registry entry for `appid`
$self->{pbot}->{registry}->add_default('text', 'wolfram', 'appid', '');
# make registry entry private by default
# make `appid` registry entry private by default
$self->{pbot}->{registry}->set_default('wolfram', 'appid', 'private', 1);
# registry `wolfram` bot command
# add `wolfram` bot command
$self->{pbot}->{commands}->register(sub { $self->cmd_wolfram(@_) }, 'wolfram', 0);
}
@ -32,11 +32,11 @@ sub initialize {
sub unload {
my ($self) = @_;
# unregister `wolfram` bot command
# remove `wolfram` bot command
$self->{pbot}->{commands}->unregister('wolfram');
}
# `wolfram` bot command
# the `wolfram` bot command
sub cmd_wolfram {
my ($self, $context) = @_;
@ -48,10 +48,11 @@ sub cmd_wolfram {
return "$context->{nick}: Registry item wolfram.appid is not set. See https://developer.wolframalpha.com/portal/myapps to get an appid.";
}
my $question = uri_escape_utf8 $context->{arguments};
my $units = uri_escape_utf8 ($self->{pbot}->{users}->get_user_metadata($context->{from}, $context->{hostmask}, 'units') // 'metric');
my $ua = LWP::UserAgent::Paranoid->new(agent => 'Mozilla/5.0', request_timeout => 10);
my $question = uri_escape_utf8 $context->{arguments};
my $units = uri_escape_utf8($self->{pbot}->{users}->get_user_metadata($context->{from}, $context->{hostmask}, 'units') // 'metric');
my $response = $ua->get("https://api.wolframalpha.com/v1/result?appid=$appid&i=$question&units=$units&timeout=10");
if ($response->is_success) {