118 lines
2.4 KiB
Perl
118 lines
2.4 KiB
Perl
# Module: FML. 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::FML;
|
|
use strict;
|
|
use warnings;
|
|
use API::Std qw(cmd_add cmd_del trans);
|
|
use API::IRC qw(privmsg notice);
|
|
use LWP::UserAgent;
|
|
|
|
# Initialization subroutine.
|
|
sub _init
|
|
{
|
|
# Create the FML command.
|
|
cmd_add('FML', 0, 0, \%M::FML::HELP_FML, \&M::FML::fml) or return 0;
|
|
|
|
# Success.
|
|
return 1;
|
|
}
|
|
|
|
# Void subroutine.
|
|
sub _void
|
|
{
|
|
# Delete the FML command.
|
|
cmd_del('FML') or return 0;
|
|
|
|
# Success.
|
|
return 1;
|
|
}
|
|
|
|
# Help hash.
|
|
our %HELP_FML = (
|
|
'en' => "This command will return a random FML quote. \002Syntax:\002 FML",
|
|
);
|
|
|
|
# Callback for FML command.
|
|
sub fml
|
|
{
|
|
my ($src, undef) = @_;
|
|
|
|
# Create an instance of LWP::UserAgent.
|
|
my $ua = LWP::UserAgent->new();
|
|
$ua->agent('Auto IRC Bot');
|
|
$ua->timeout(2);
|
|
|
|
# Get the random FML via HTTP.
|
|
my $rp = $ua->get('http://rscript.org/lookup.php?type=fml');
|
|
|
|
if ($rp->is_success) {
|
|
# If successful, decode the content.
|
|
my $d = $rp->decoded_content;
|
|
$d =~ s/(\n|\r)//g;
|
|
|
|
# Get the FML.
|
|
my (undef, $dfa) = split('Text: ', $d);
|
|
my ($fml, undef) = split('Agree:', $dfa);
|
|
|
|
# And send to channel.
|
|
privmsg($src->{svr}, $src->{chan}, "\002Random FML:\002 ".$fml);
|
|
}
|
|
else {
|
|
# Otherwise, send an error message.
|
|
privmsg($src->{svr}, $src->{chan}, "An error occurred while retrieving the FML.");
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
# Start initialization.
|
|
API::Std::mod_init('FML', 'Xelhua', '1.00', '3.0.0a4', __PACKAGE__);
|
|
# vim: set ai et sw=4 ts=4:
|
|
# build: cpan=LWP::UserAgent perl=5.010000
|
|
|
|
__END__
|
|
|
|
=head1 FML
|
|
|
|
=head2 Description
|
|
|
|
=over
|
|
|
|
This module adds the FML command for retrieving a random FML quote.
|
|
|
|
=back
|
|
|
|
=head2 Examples
|
|
|
|
=over
|
|
|
|
<JohnSmith> !fml
|
|
<Auto> Random FML: Today, the girl I've had a crush on decided she
|
|
wanted to see a movie with me. I tried to hold her hand during the
|
|
movie and it was great for about 4 minutes. Then she said "Can I
|
|
have my hand back?" FML
|
|
|
|
=back
|
|
|
|
=head2 To Do
|
|
|
|
=over
|
|
|
|
* Add Spanish, French and German translations for the help hash.
|
|
|
|
=back
|
|
|
|
=head2 Technical
|
|
|
|
=over
|
|
|
|
This module adds an extra dependency: LWP::UserAgent. You can get it from
|
|
the CPAN <http://www.cpan.org>.
|
|
|
|
This module is compatible with Auto version 3.0.0a4+.
|
|
|
|
Ported from Auto 2.0.
|
|
|
|
=back
|