126 lines
2.8 KiB
Perl
126 lines
2.8 KiB
Perl
# Module: Calc. See below for documentation.
|
|
# Copyright (C) 2010-2011 Xelhua Development Group, et al.
|
|
# This program is free software; rights to this code are stated in doc/LICENSE.
|
|
package M::Calc;
|
|
use strict;
|
|
use warnings;
|
|
use API::Std qw(cmd_add cmd_del trans);
|
|
use API::IRC qw(privmsg notice);
|
|
use LWP::UserAgent;
|
|
use URI::Escape;
|
|
use JSON -support_by_pp;
|
|
|
|
# Initialization subroutine.
|
|
sub _init
|
|
{
|
|
# Create the CALC command.
|
|
cmd_add("CALC", 0, 0, \%M::Calc::HELP_CALC, \&M::Calc::calc) or return;
|
|
|
|
# Success.
|
|
return 1;
|
|
}
|
|
|
|
# Void subroutine.
|
|
sub _void
|
|
{
|
|
# Delete the CALC command.
|
|
cmd_del("CALC") or return;
|
|
|
|
# Success.
|
|
return 1;
|
|
}
|
|
|
|
# Help hash.
|
|
our %FHELP_CALC = (
|
|
'en' => "This command will calculate an expression using Google Calculator. \002Syntax:\002 CALC <expression>",
|
|
);
|
|
|
|
# Callback for CALC command.
|
|
sub calc
|
|
{
|
|
my ($src, @args) = @_;
|
|
|
|
# Create an instance of LWP::UserAgent.
|
|
my $ua = LWP::UserAgent->new();
|
|
$ua->agent('Auto IRC Bot');
|
|
$ua->timeout(2);
|
|
# Create an instance of JSON.
|
|
my $json = JSON->new();
|
|
# Put together the call to the Google Calculator API.
|
|
if (!defined $args[0]) {
|
|
notice($src->{svr}, $src->{nick}, trans("Not enough parameters").".");
|
|
return;
|
|
}
|
|
my $expr = join(' ', @args);
|
|
my $url = "http://www.google.com/ig/calculator?q=".uri_escape($expr);
|
|
# Get the response via HTTP.
|
|
my $response = $ua->get($url);
|
|
|
|
if ($response->is_success) {
|
|
# If successful, decode the content.
|
|
my $d = $json->allow_nonref->relaxed->escape_slash->loose->allow_singlequote->allow_barekey->decode($response->decoded_content);
|
|
|
|
if ($d->{error} eq "" or $d->{error} == 0) {
|
|
# And send to channel
|
|
privmsg($src->{svr}, $src->{chan}, "Result: ".$d->{lhs}." = ".$d->{rhs});
|
|
}
|
|
else {
|
|
# Otherwise, send an error message.
|
|
privmsg($src->{svr}, $src->{chan}, "Google Calculator sent an error.");
|
|
}
|
|
}
|
|
else {
|
|
# Otherwise, send an error message.
|
|
privmsg($src->{svr}, $src->{chan}, "An error occurred while sending your expression to Google Calculator.");
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
# Start initialization.
|
|
API::Std::mod_init('Calc', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
|
|
# build: cpan=LWP::UserAgent,URI::Escape,JSON,JSON::PP perl=5.010000
|
|
|
|
__END__
|
|
|
|
=head1 Calc
|
|
|
|
=head2 Description
|
|
|
|
=over
|
|
|
|
This module adds the CALC command for evaluating an expression using
|
|
Google Calculator.
|
|
|
|
=back
|
|
|
|
=head2 Examples
|
|
|
|
=over
|
|
|
|
<JohnSmith> !calc 1+1
|
|
<Auto> Result: 1+1 = 2
|
|
|
|
=back
|
|
|
|
=head2 To Do
|
|
|
|
=over
|
|
|
|
* Add Spanish, French and German translations for the help hash.
|
|
|
|
=back
|
|
|
|
=head2 Technical
|
|
|
|
=over
|
|
|
|
This module requires LWP::UserAgent, URI::Escape and JSON/JSON::PP.
|
|
All are obtainable from the CPAN <http://www.cpan.org>.
|
|
|
|
This module is compatible with Auto version 3.0.0a7+.
|
|
|
|
=back
|
|
|
|
# vim: set ai et sw=4 ts=4:
|