weechat-scripts 20131007-1 / usr / share / weechat / perl / seeks.pl

This file is indexed.

/usr/share/weechat/perl/seeks.pl is in weechat-scripts 20131007-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  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
# Copyright (C) 2011 Fabien Dupont <seeks@kafe-in.net>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
#
# (this script requires WeeChat 0.3.6 or newer)
#
# Changelog :
#
# 2012-01-29, Sebastien Helleu <flashcode@flashtux.org>:
#     version 0.3: fix parsing of IRC message (now requires WeeChat >= 0.3.6)
# 2011-04-27: First working version !

use strict;
use URI::Escape;
use JSON;
use utf8;

my $SCRIPT_NAME = "seeks";
my $VERSION = "0.3";

# default values in setup file (~/.weechat/plugins.conf)
my %options = ( 'node'          => 'http://seeks.kafe-in.net',
                'nb_results'    => '3',
                'lang'          => 'en',
                'channels'      => '#seeks,#debian',
                'timeout'       => 60
);

weechat::register($SCRIPT_NAME, "Fabien Dupont <seeks\@kafe-in.net>", $VERSION, "GPL3", "Search terms on seeks node and display results (!seeks)", "", "");
init_config();

# Hooks
weechat::hook_config("plugins.var.perl.$SCRIPT_NAME.*", "toggle_config_by_set", "");
weechat::hook_signal("*,irc_in2_PRIVMSG", "message_callback", "in");
weechat::hook_command_run("/input return", "message_callback", "out");

# Incoming message
sub message_callback
{
        my ($data, $signal, $signal_data) = @_;
        my ($buffer, $channel, $text);

        # Parameter parsing
        if($data eq "out") {
                $buffer = weechat::buffer_get_string($signal, 'name');
                $channel = $buffer;
                $channel =~ s/^.+\.//;
                $text = weechat::buffer_get_string($signal, 'input');
        } elsif($data eq "in") {
                my $dict = weechat::info_get_hashtable("irc_message_parse", { "message" => $signal_data });
                $buffer = $signal;
                $buffer =~ s/,.*$//;
                $buffer = $buffer.".".$$dict{channel};
                $channel = $$dict{channel};
                $text = $$dict{arguments};
                $text =~ s/^[^:]+ : *//;
        }

        # check if this channel is autorized
        if($options{channels} =~ /(^|,)$channel(,|$)/ && $text =~ s/^!seeks +(.+)$//) {
                my $param = $1;
                weechat::hook_process("curl '".$options{node}.'/search?prs=on&expansion=1&output=json&action=expand&rpp='.$options{nb_results}.'&page=1&lang'.$options{lang}.'=&q='.uri_escape($param)."'", $options{timeout} * 1000, "exec_callback", $buffer);
        }

        return weechat::WEECHAT_RC_OK;
}

# Callback called when curl command is finished
sub exec_callback {
        my ($data, $command, $return_code, $out, $err) = @_;
        if(length $out) {
                my $json = JSON->new->allow_nonref;
                my %results = %{$json->decode($out)};
                my @snippets = @{$results{snippets}};
                my $i = 1;
                for my $snippet (@snippets) {
                        utf8::decode($$snippet{title});
                        weechat::command(weechat::buffer_search("irc", $data), "/say ".$i.": ".$$snippet{title}." ( ".$$snippet{url}." )");
                        $i++;
                }
        }
}

# Someone changed the config
sub toggle_config_by_set
{
    my ($pointer, $name, $value) = @_;
    $name = substr($name, length("plugins.var.perl.".$SCRIPT_NAME."."), length($name));
    $options{$name} = $value;
    return weechat::WEECHAT_RC_OK;
}

# Load the config, saved value or default if unset
sub init_config
{
    foreach my $option (keys %options)
    {
        if (!weechat::config_is_set_plugin($option))
        {
            weechat::config_set_plugin($option, $options{$option});
        }
        else
        {
            $options{$option} = weechat::config_get_plugin($option);
        }
    }
}

APT Browse - Built by Thomas Orozco.