This file is indexed.

/usr/share/weechat/perl/fortune.pl is in weechat-scripts 20140928-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
# This script is a port from the original fortune.pl irssi script written by
# Ivo Marino <eim@cpan.org>. This script is in the public domain
# 
# Original WeeChat Author: Julien Louis <ptitlouis@sysif.net>
#
# Port to WeeChat 0.3.0: Sid Vicious (aka Trashlord) <dornenreich666@gmail.com>

weechat::register("fortune", "ptitlouis", "0.2", "Public domain", "Send a random fortune cookie to a specified nick", "", "");

weechat::hook_command("fortune", "Send a random fortune cookie to a specified nick",
	"<nick> [lang]", 
	"<nick> The nickname to send the fortune cookie\n" .
	" [lang] The cookie language (Default: en)\n",
	"", "fortune", "");

sub fortune {

    my ($data, $buffer, $param) = @_;
    my $rc = weechat::WEECHAT_RC_OK;
    my $cookie = '';
    if ($param) {
        (my $nick, my $lang) = split (' ', $param);
        $lang = 'en' unless ($lang eq 'de'|| $lang eq 'it' || $lang eq
                             'en' || $lang eq 'fr' );
        weechat::print($buffer, "Nick: " . $nick . ", Lang: \"" . $lang . "\"");
        
        if ($lang eq 'de') {
            $cookie = `fortune -x`;
        } 
        elsif ($lang eq 'it') {
            $cookie = `fortune -a italia`;
        } 
        else {
            $cookie = `fortune -a fortunes literature riddles`;
        }
        
        $cookie =~ s/\s*\n\s*/ /g;
        if ($cookie) {
            weechat::command($buffer, $nick . ": " . $cookie, $channel);
        }
        
        else {
            weechat::print($buffer, "No cookie.");
            $rc = weechat::WEECHAT_RC_ERROR;
        }
    }
    else {
        weechat::print ($buffer, "Usage: /fortune <nick> [language]");
        $rc = weechat::WEECHAT_RC_ERROR;
    }
    
    return $rc;
}