The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

BIGPRESH / Bot-BasicBot-Pluggable-1.30 / lib / Bot / BasicBot / Pluggable / Module / Google.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
—
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129

              
package Bot::BasicBot::Pluggable::Module::Google;
$Bot::BasicBot::Pluggable::Module::Google::VERSION = '1.30';
use base qw(Bot::BasicBot::Pluggable::Module);
use warnings;
use strict;
use Net::Google;
sub init {
    my $self = shift;
    $self->config(
        {
            user_google_key         => "** SET ME FOR GOOGLE LOOKUPS **",
            user_languages          => "en",
            user_num_results        => 3,
            user_require_addressing => 1,
        }
    );
}
sub help {
    return
"Searches Google for terms and spellings. Usage: google <terms>, spell <words>.";
}
sub told {
    my ( $self, $mess ) = @_;
    my $body = $mess->{body};
    return
      if ( $self->get("user_require_addressing") and not $mess->{address} );
    my ( $command, $param ) = split( /\s+/, $body, 2 );
    $command = lc($command);
    if ( $command eq "google" ) {
        return
"No Google key has been set! Set it with '!set Google google_key <key>'."
          unless $self->get("user_google_key");
        return
"Your configuration has exceeded the maximum number of allowed Google results (10)."
          if $self->get("user_num_results") > 10;
        my $google = Net::Google->new( key => $self->get("user_google_key") );
        my $search = $google->search(
            lr          => qw($self->get("user_languages")),
            max_results => $self->get("user_num_results")
        );
        $search->query( split( /\s+/, $param ) );
        my $res;    # magical concatenation of all results.
        $res .= $_->title . ": " . $_->URL . "\n" for @{ $search->results() };
        $res =~ s/<[^>]+>//g;    # remove the bolded search terms.
        return $res ? $res : "No results for \'$param\'.";
    }
    elsif ( $command eq "spell" ) {
        return
"No Google key has been set! Set it with '!set Google google_key <key>'."
          unless $self->get("user_google_key");
        my $google = Net::Google->new( key => $self->get("user_google_key") );
        my $res = $google->spelling( phrase => $param )->suggest();
        return $res ? $res : "No results for \'$param\'.";
    }
}
1;
__END__
=head1 NAME
Bot::BasicBot::Pluggable::Module::Google - searches Google for terms and spellings
=head1 VERSION
version 1.30
=head1 IRC USAGE
=over 4
=item google <terms>
Returns Google hits for the terms given.
=item spell <term>
Returns a Google spelling suggestion for the term given.
=back
=head1 VARS
To set module variables, use L<Bot::BasicBot::Pluggable::Module::Vars>.
=over 4
=item google_key
A valid Google API key is required for lookups.
=item languages
Defaults to 'en'; a space-separated list of language restrictions.
=item num_results
Defaults to 3; the number of Google search results to return (maximum 10).
=item require_addressing
Defaults to 1; whether you need to address the bot for Google searches.
=back
=head1 REQUIREMENTS
L<Net::Google>
L<http://www.google.com/apis/>
=head1 AUTHOR
Mario Domgoergen <mdom@cpan.org>
This program is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.