Moved modules to src/.

modules/Calc.pm

@@ -1,130 +0,0 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
-# Copyright (C) 2010-2011 Xelhua Development Team (doc/CREDITS)
-# 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 
-{
-    # Check for JSON::PP.
-    eval {
-        require JSON::PP;
-        1;
-    } or return 0;
-	# Create the CALC command.
-	cmd_add("CALC", 0, 0, \%m_Calc::HELP_CALC, \&m_Calc::calc) or return 0;
-
-	# Success.
-	return 1;
-}
-
-# Void subroutine.
-sub _void 
-{
-	# Delete the CALC command.
-	cmd_del("CALC") or return 0;
-
-	# 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 (%data) = @_;
-
-	# 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. 
-	my @args = @{ $data{args} };
-    if (!defined $args[0]) {
-        notice($data{svr}, $data{nick}, trans("Not enough parameters").".");
-        return 0;
-    }
-    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($data{svr}, $data{chan}, "Result: ".$d->{lhs}." = ".$d->{rhs});
-		}
-		else {
-	        # Otherwise, send an error message.
-			privmsg($data{svr}, $data{chan}, "Google Calculator sent an error.");
-		}
-	}
-	else {
-	    # Otherwise, send an error message.
-		privmsg($data{svr}, $data{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.0d", __PACKAGE__);
-# vim: set ai sw=4 ts=4:
-# 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.0a2+.
-
-=back