Cleanup.
This commit is contained in:
1 parent
1da4798567
commit
0adcdf4b8f
1 file changed
+16
-13
+16
-13
@@ -32,12 +32,12 @@ sub _void
|
|||||||
|
|
||||||
# Help hashes.
|
# Help hashes.
|
||||||
our %SHELP_CALC = (
|
our %SHELP_CALC = (
|
||||||
'en' => "Calculate an expression.",
|
'en' => "Calculate an expression.",
|
||||||
);
|
);
|
||||||
|
|
||||||
our %FHELP_CALC = (
|
our %FHELP_CALC = (
|
||||||
'en' => "This command will calculate an expression using Google Calculator. Syntax: CALC <expression>",
|
'en' => "This command will calculate an expression using Google Calculator. Syntax: CALC <expression>",
|
||||||
);
|
);
|
||||||
|
|
||||||
# Callback for CALC command.
|
# Callback for CALC command.
|
||||||
sub calc
|
sub calc
|
||||||
@@ -58,19 +58,20 @@ sub calc
|
|||||||
my $response = $ua->get($url);
|
my $response = $ua->get($url);
|
||||||
|
|
||||||
if ($response->is_success) {
|
if ($response->is_success) {
|
||||||
# If successful, decode the content.
|
# If successful, decode the content.
|
||||||
my $d = $json->allow_nonref->utf8->relaxed->escape_slash->loose->allow_singlequote->allow_barekey->decode($response->decoded_content);
|
my $d = $json->allow_nonref->utf8->relaxed->escape_slash->loose->allow_singlequote->allow_barekey->decode($response->decoded_content);
|
||||||
# And send to channel
|
|
||||||
if ($d->{error} eq "" or $d->{error} == 0) {
|
if ($d->{error} eq "" or $d->{error} == 0) {
|
||||||
privmsg($data{svr}, $data{chan}, "Result: ".$d->{lhs}." = ".$d->{rhs});
|
# And send to channel
|
||||||
|
privmsg($data{svr}, $data{chan}, "Result: ".$d->{lhs}." = ".$d->{rhs});
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
# Otherwise, send an error message.
|
# Otherwise, send an error message.
|
||||||
privmsg($data{svr}, $data{chan}, "Google calculator sent an error.");
|
privmsg($data{svr}, $data{chan}, "Google Calculator sent an error.");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
# Otherwise, send an error message.
|
# Otherwise, send an error message.
|
||||||
privmsg($data{svr}, $data{chan}, "An error occurred while sending your expression to Google Calculator.");
|
privmsg($data{svr}, $data{chan}, "An error occurred while sending your expression to Google Calculator.");
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -88,8 +89,8 @@ __END__
|
|||||||
|
|
||||||
=over
|
=over
|
||||||
|
|
||||||
This module adds the CALC command for evaluating an
|
This module adds the CALC command for evaluating an expression using
|
||||||
expression using Google Calculator.
|
Google Calculator.
|
||||||
|
|
||||||
=back
|
=back
|
||||||
|
|
||||||
@@ -122,7 +123,9 @@ Add Calc to the module autoload.
|
|||||||
|
|
||||||
=over
|
=over
|
||||||
|
|
||||||
This module requires LWP::UserAgent, URI::Escape and JSON both obtainable from CPAN (http://cpan.org)
|
This module requires LWP::UserAgent, URI::Escape and JSON. All are obtainable
|
||||||
|
from the CPAN <http://www.cpan.org>.
|
||||||
|
|
||||||
This module is compatible with Auto version 3.0a2+.
|
This module is compatible with Auto version 3.0a2+.
|
||||||
|
|
||||||
=back
|
=back
|
||||||
Reference in new issue
Block a user